求助，取非空单元格

cmzji

Sql = "select * from [2 - 中文次页$R16:T16]"
Cells(h, 3).CopyFromRecordset cnn.Execute(Sql)

想把一个EXCEL中2 - 中文次页这个SHEET里的R16到T16单元格里非空的那个数取到另一个EXCEL的指定的一个单元格，求大神指导怎么改以上这段代码

现在的效果是只能取出三个单元格贴到第二个EXCEL的三个单元格里 example.rar (16.21 KB, 下载次数: 5)

2014-1-14 10:40 上传

点击文件名下载附件
例子

急求解答，感谢各位大神，献花和掌声附送

antlia

你现在例子里的代码也达不到把三个单元格区域内的非空单元格复制过去的效果。
那个代码从设计思路上就有问题，而且还有运行时错误。