excel vba 动态数组的问题
发布网友
发布时间：2022-04-25 20:41
共1个回答
热心网友
时间：2022-06-17 06:01
将A列所有数据，都变为100，显示在B列？
Sub a()
Dim brr(1 To 5000, 1 To 1)
arr = Range("a1:a" & Range("a65536").End(xlUp).Row)
For i = 1 To UBound(arr)
brr(i, 1) = 100
Next
[b1].Resize(i, 1) = brr
End Sub
