Set Talk Off * -- 创建 4 个测试用临时表 Create Cursor A01 (f1 C(20)) Create Cursor A02 (f1 C(20)) Create Cursor A03 (f1 C(20)) Create Cursor A04 (f1 C(20)) For ii = 0 To 3 cAlias = Textmerge('A0<<ii+1>>') For m.jj = 1 To 10000 &amp;&amp; 每个测试表插入 20 条测试用记录 Insert Into (cAlias)...

Local ASZ[50,7] Store [] To ASZ For lnI=1 To 50 For lnI1=1 To 7 ASZ[lnI,lnI1]=Padl(lnI*lnI1,4,[0]) Endfor Endfor Local cc, oo As Excel.Application m.oo = Newobject('Excel.Application') If m.oo.Workbooks.Count < 1 m.oo.Workbooks.Add() Endif If m.oo.Workbooks(1)....

x=132 y=Iif(x>26,Chr(64+Ceiling(x/26)-1),"")+Chr(64+Iif(Mod(x,26)=0,26,Mod(x,26))) MessageBox(y)

例如： 姓名 一月 二月 三月 张三 100 200 300 转置成 姓名 张三 一月 100 二月 200 三月 300 oExcel.Cells(1,1).Resize(2,4).Copy() &amp;&amp; 假设要被转置的数据在左上角，2行4列 oExcel.Cells(10,1).PasteSpecial(-4...