關於VBA的問題 請VBA大師或專家來解決!!!!!!!!!

未排序，可以先對**進行排序。

sub test()

dim arr, i, j, n, temp() as long, dic

set dic = createobject("")

arr = range("a4:d" & a65536].end(xlup).row)

for i = 1 to ubound(arr, 1)

if not , 2)) then

n = n + 1

arr(i, 2), n

end if

nextredim temp(1 to n)

for i = 1 to n

temp(i) = 4

nextf:iv].clearcontents

for i = 1 to ubound(arr, 1)

n = val(dic(arr(i, 2)))

cells(3, (n - 1) *3 + 6).resize(1, 3) = split("收到銷售的日期")

cells(2, (n - 1) *3 + 7) = arr(i, 2)

cells(temp(n), n - 1) *3 + 6) = arr(i, 1)

cells(temp(n), n - 1) *3 + 7) = arr(i, 3)

cells(temp(n), n - 1) *3 + 8) = arr(i, 4)

temp(n) = temp(n) +1

nextend sub

如果分數少一點，我有時間給你寫，如果沒有時間就算了。

ii = ii + 1 溢位，不是嗎？ 即ii定義為整數型別，最大值為65535，而你的迴圈是不打晚Na是丹奇到65536，那麼它就會溢位。

當滑鼠放在 ii 上溢位時，觀察值是多少？

程式應控制工作表中有效行的行數，並且不要迴圈到工作表容量的最後一行，這將浪費時間。

對不起，房東，你的子程式。

ribbononload（ribbon as iribbonui）在**中呼叫？ 因為 rib 物件是在這個子例程中定義的。 如果不先執行此子例程，則在執行 sub marcohide（） 時將出現錯誤，因為 rib 物件尚未定義。

您可以嘗試在此句子前面的下乙個錯誤恢復中新增錯誤處理語句

讓我們看看它是怎麼回事。

什麼是iribbonui，你需要先載入它。

string str = ',');

string sql = "select top 10 * from table where 1=1 ";

for (int i = 0; i < i++)else

咱們做乙個拼接，列表名可以換成你想要的，我這裡用的模糊查詢，也可以改成“in”方式，你可以根據自己這邊的情況自己修改。

<>把橙色的服務員放進去。

這是可以做到的，這很好。

我自動找到了最後一行，它符合您的要求，請嘗試。

private sub commandbutton1_click()dim row_last as integerdim temp1 as integer

flag = false

do while flag = falseif = 1 then

exit do

end if

temp1 = isempty(

temp2 = isempty(

if temp1 = true and temp2 = true then

0).select

elseflag = true

exit do

end if

looprow_last =

range(cells(1, 1), cells(row_last, 1)).select

copies:=1

end sub

range("a1:a22").select

copies:=1, collate:=true

將上述內容貼上到“控制項”區域。

可實現自定義區域的列印 沒問題。