但是这样少量多次反复循环操作的话，合并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，且速度一样快。

应该是无解，可能Excel的合并区域Union 就是轻量级应用，多了就是卡。

另外发现1楼代码本身也有问题，即：Set rng = [a1] 放在循环内，没有实际意义。

谢谢，这个话题可以不用研究了，关闭吧。

谢谢各位老师！

吹版主的VBA技术太好了！  

有些操作人员不懂怎么启用宏，还要教，麻烦，所以启用宏不是很方便。