Set rg1 = Workbooks(dirname).Sheets(i).UsedRange     
                                   With Workbooks(dirname).Sheets(i)
                   .Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete        
 .Columns(1).SpecialCells(xlCellTypeConstants, 2).EntireRow.Delete                  
                                    rg1.Copy rg
上面是代码，请教大神 ，经过第3和第4句的删除后，有一个sheet的range 为空了，执行 rg1.Copy rg 会出错，在这儿我试了 IsNull IsEmpty IsNothing等判别方法，都认为rg1为真，试了Count之类的方法，又是无法读取到对象（rg1），请教一下，如何在这里判别 rg1 为空。

[此贴子已经被作者于2017-11-9 15:01编辑过]

能发一下你的文件吗？我测试了一下，不会出错啊