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

set rng = [a1]

set rng = Union(rgn,cells(r))
这二句为何意？？？

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

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

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

关键是要求“速度一样快”，这一定是无解了
随便写个速度肯定不一样快的示例

oExcel = CREATEOBJECT("Excel.Application")
oExcel.DisplayAlerts = 0
oExcel.WorkBooks.Add
tms = SECONDS()
RAND(-1)
n = 10
FOR i=1 TO n
    rng = oExcel.Range("A1")
    FOR j=1 TO 30
        r = INT(RAND()*n) + 1
        rng = oExcel.Union(rng, oExcel.Cells(r))
    ENDFOR 
ENDFOR
? SECONDS()-tms
rng.Interior.color = 0xFF
oExcel.Visible = 1

EXCEL2003列数最大是256
n=1000时要70多秒

tms = SECONDS()
RAND(-1)
n = 1000
nCols = 256
FOR i=1 TO n
    rng = oExcel.Range("A1")
    FOR j=1 TO 30
        r = INT(RAND()*nCols) + 1
        rng = oExcel.Union(rng, oExcel.Cells(r))
    ENDFOR 
ENDFOR
? SECONDS()-tms

FOR i=1 TO 1000
    rng = oExcel.Range("A1")
ENDFOR
这个循环的是什么意思

这个好像只是测试机器性能的一个函数。
Union()作用微软帮助文件有说明
Set rng = [a1]
放在循环中是有意义的，保证每次进入内循环前rng指向A1。因为内循环结束后，rng的指向不定。

谢谢各位老师！

应该不是什么轻量级、重量级的问题
VFP的CREATEOBJECT("Excel.Application")是跨进程调用，相对在EXCEL的VBA是快不了的。
可以考虑动态创建EXCEL的宏代码，VFP启动这个宏，这样应该与EXCEL调用宏差不多。
这里测试test2()显示1秒多

TEXT TO vbaCode TEXTMERGE NOSHOW PRETEXT 7
    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
ENDTEXT
oExcel = CREATEOBJECT("Excel.Application")
regKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\"+oExcel.Version+"\Excel\Security\AccessVBOM"
se = CREATEOBJECT("WScript.Shell")
se.RegWrite(regKey, 1, "REG_DWORD")
oExcel.DisplayAlerts = 0
oExcel.WorkBooks.Add
myModule = oExcel.ActiveWorkbook.VBProject.VBComponents.Add(1)  && vbext_ct_StdModule = 1
myModule.CodeModule.AddFromString(vbaCode)
oExcel.Run("test2")
oExcel.ActiveWorkbook.VBProject.VBComponents.Remove(myModule)
se.RegWrite(regKey, 0, "REG_DWORD")
oExcel.Visible = 1

吹版主的VBA技术太好了！  

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