VBA求解:A列行数未知,超10000行,想用VBA数组方式给对应的B列赋值,B列等于A列后四位字符(right(A2,4)) 。一定要用数组,不然速度太慢,谢谢!
要用VBA数组,谢谢!
不好意思,看到大神回复手抖不小心把第一个答案给采纳率,真对不住。
之前一直绕不过弯,感谢您!
追答呃,习惯性思维了,刚才的代码还可以再精简一些,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
再次感谢,如果有时间我刚发了一个提问,还是绕不过来