碰到实际困难,VBA高手求助,祥见附件

xiawangying

碰到实际困难,VBA高手求助,祥见附件 0507.rar (43.02 KB, 下载次数: 12)

2013-5-7 13:33 上传

点击文件名下载附件

该贴已经同步到 xiawangying的微博

grf1973

1. Sub tt()
   
2.     gys = [b4]: riqi = [c3]: mc = [a6]
   
3.     sl = [b6]: dj = [c6]: je = [d6]: bz = [e6]
   
4.     With Sheet2
   
5.         r = .[a65536].End(3).Row + 1
   
6.         .Cells(r, 1).Resize(1, 7) = Array(gys, riqi, mc, sl, dj, je, bz)
   
7.     End With
   
8. End Sub
   

复制代码