没看源代码，从5、6楼的回复看，应该是比较绕的非直接代码。

后续不变，图形就是EXCEL中选择性粘贴中的“转置”了。现代电脑的速度人脑感觉不出来的。
要图形转置回来，后面得搞修正主义

很好，和楼主好好学习

摘于wengjl楼主:[  IF TYPE('thisform.text'+ALLTRIM(STR(i))+PADL(ALLT(STR(j)),2,'0'))$"Oo"     &&如果是对象，则移除]
请教各位：
根据楼主的提示( 'thisform.text'+ALLTRIM(STR(i))+PADL(ALLT(STR(j)),2,'0') )中表示是对象，既然是对象，类型为对象用o表示，哪 "Oo" 的表示形式是啥？   
 

Type()函数返回值为大写字母,[o]在此有点多此一举了。
正确写法应该是
IF TYPE('thisform.text'+ALLTRIM(STR(i))+PADL(j,2,'0'))=="O"

楼主对PADL()函数的用法，还没研究透彻。

谢谢sdte版主：
你的介释为正规，懂了。