求VBA编写一个程序答:Sub 合并至总表() Dim Rng As Range, Rng1 As Range, Rng2 As Range, Sh As Worksheet Dim Dic As Object, i1&, j1&, i2&, j2&, K1$, K2$, K3$, i0& K1 = "水果": K2 = "其他1": K3 = "其他2" Set Dic = CreateObject("Scripting.Dictionary") Application....
你好,VBA 怎样给长度为变量的数组赋值,你知道吗?比如下面的程序,如何用...答:你好,VBA 怎样给长度为变量的数组赋值,你知道吗?比如下面的程序,如何用数组编写? 能帮忙就太感谢了! 10 Private Sub qq() Dim i As ingeter, j As ingeter, n As ingeter n=20000 For i = 2 To n Step 1 For j = 1 To n - i Step 1 If Cells(i, 3) = Cells(i + j, 3) And Cells...