VBA求解:A列行数未知，超10000行，想用VBA数组方式给对应的B列赋值，B列等

Question

VBA求解:A列行数未知，超10000行，想用VBA数组方式给对应的B列赋值，B列等于A列后四位字符(right(A2,4)) 。一定要用数组，不然速度太慢，谢谢！

Answer 1

先把第二行用函数赋值后，把鼠标拖到该单元格右下角边缘处，会显示实心的十字标识，然后鼠标左键双击即可出来下面所以行数的数值。（如果不行，估计是你的excel设置的问题）。
需要可以帮到你。追问

要用VBA数组，谢谢！

Answer 2

Sub test()
Dim r%, i%, arr, brr()
r = Range("a65536").End(xlUp).Row
arr = Range("a2:a" & r)
ReDim brr(1 To r - 1, 1 To 1)
For i = 1 To r - 1
brr(i, 1) = Right(arr(i, 1), 4)
Next
Range("b2:b65536").Clear
Range("b2:b" & r) = brr
End Sub追问

不好意思，看到大神回复手抖不小心把第一个答案给采纳率，真对不住。

之前一直绕不过弯，感谢您！

追答

呃，习惯性思维了，刚才的代码还可以再精简一些，BRR可以不用，直接在ARR上操作就行了。
Sub test()
Dim r%, i%, arr
r = Range("a65536").End(xlUp).Row
arr = Range("a2:a" & r)
For i = 1 To r - 1
arr(i, 1) = Right(arr(i, 1), 4)
Next
Range("b2:b65536").Clear
Range("b2:b" & r) = arr
End Sub

追问

再次感谢，如果有时间我刚发了一个提问，还是绕不过来