excel不连续的列怎么赋值进一个数组啊？

perfect131

这样         

https://club.excelhome.net/forum ... amp;_dsign=7bceea07
https://club.excelhome.net/threa ... tml?_dsign=46b84f84

yu3924

说一下问题吧 其实问题根源在于 你的arr1 arr2都是二维数组 所以你不能用array进行合并 如果是一维数组那就没有问题了 所以你将单元格写入数组应该这样写arr1 = worksheetfunction.transpose(range("a1:a99")) 这样arr1就变成1维数组了

gwjkkkkk

Option Explicit
Sub TEST5()
    Dim ar, i&, dic As Object
   
    Set dic = CreateObject("Scripting.Dictionary")
   
    ar = [A1].CurrentRegion.Value
    For i = 2 To UBound(ar)
        dic(i) = Array(ar(i, 2), ar(i, 4), ar(i, 8))
    Next i
   
    ar = Application.Rept(dic.items, 1)
    MsgBox "数据已存入数组！"
   
    Set dic = Nothing
    Beep
End Sub

gwjkkkkk

..................