请教各位关于Excel 的 Union
但是这样少量多次反复循环操作的话,合并3万次不到1秒。Sub test2()
tms = Timer
For i = 1 To 1000
Set rng = [a1]
For j = 1 To 30
r = Int(Rnd * 10000) + 1
Set rng = Union(rng, Cells(r))
Next
Next
MsgBox Format(Timer - tms, "0.000s ")
End Sub
复制代码
上面的代码来自 网上的,请问如何转换为VFP,且速度一样快。