用vba复制指定列粘贴到指定区域

manyuan363382

求各位大神指导，感谢

02761752696

供参考......
测试写入DE列，位置自己修改

02761752696

........

manyuan363382

02761752696 发表于 2022-11-26 12:52
........

您好，我按照您的这个测试了一下，为什么我只能贴前2行的数据？我哪里错了？
Sub test()
    Dim arr, brr(1 To 100, 1 To 2), crr, i%, j%, h%
    Sheet2.Range("D2:E100").ClearComments
    arr = Sheet1.Range("A1").CurrentRegion
    crr = Array(2, 5, 6, 8)
    For i = 1 To UBound(crr) + 1
        For j = 2 To UBound(crr)
            h = h + 1
            brr(h, 1) = arr(j, 1)
            brr(h, 2) = arr(j, crr(i - 1))
        Next
    Next
    Sheet2.Range("D1").Resize(1, 2) = Array("客户ID", "name")
    Sheet2.Range("D2").Resize(UBound(brr), 2) = brr
End Sub

02761752696

manyuan363382 发表于 2022-11-26 13:32
您好，我按照您的这个测试了一下，为什么我只能贴前2行的数据？我哪里错了？
Sub test()
    Dim arr,  ...

关于求助贴的答复效率与发帖规范