VBA数组 A,B两列数据合并粘回到A列,为什么我的A列没有值了呢?

发布网友发布时间：2023-11-07 01:31

共2个回答

热心网友时间：2024-12-03 20:25

按照上面的代码来讲，执行完A列是有值的。
从第二行开始A列的值是AB两列数据合并的结果。

你说A列没值了，我想有一种可能性，就是代码里判断取值的时候用的是【Sheet2】，
而你Sheet2里没有值，最后粘贴到了Sheet1（或其他Sheet），导致没有值了。
你把程序里的Sheet2换成你现在用的Sheet名就可以了。追问十分感谢你的回答。

热心网友时间：2024-12-03 20:25

改成这样，对象指名是activesheet，同时，brr的下标明确写出来是1 to 1,option base 1 就可以不用了。

Sub test2()
Dim arr(), brr()
With ActiveSheet
    arr = .Range("A2:C" & .Range("A1048576").End(xlUp).Row)
    ReDim brr(1 To UBound(arr), 1 To 1)
    For i = 1 To UBound(arr)
    brr(i, 1) = arr(i, 1) & arr(i, 2)
    Next
    .Range("A2").Resize(UBound(brr), 1) = brr
End With
End Sub