VBA,可以直接把字典转换成二维数组吗答:Public Sub qqq()Dim d As Object, ar, br(), i, n, a, b Set d = CreateObject("scripting.dictionary")ar = Range("b2:c" & [a2].End(4).Row)ReDim br(1 To UBound(ar), 1 To 2)For i = 1 To UBound(ar)If ar(i, 1) <> "" And Not d.exists(ar(i, 1)) ...
在EXCEL VBA 中如何在调用子程序时传递数组参数?我的数组是二维的,答:Sub test()Dim arr(), H As Long, L As Longarr = Range("A1:C8")L = 2H = 5MsgBox "工作表的第" & H & "行,第" & L & "列的值是:" & arr(H, L), , Title:="主程序信息"Call CD(arr, H, L)End SubSub CD(iarr, iH, iL)ss = iarr(iH, iL)MsgBox "工作表...