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
上面是代码，请教大神 ，经过第5和第6句的删除后，有一个sheet的range 为空了，执行 rg1.Copy rg 会出错，在这儿我试了 IsNull IsEmpty IsNothing等判别方法，都判别rg1为真，试了Count之类的方法，又是无法读取到对象（rg1），请教一下，如何在这里判别 rg1 为空。
PS：我这是一个循环，是将多个sheet复制到一个sheet里的，将经过删除空行和第一个不是数字的行之后的sheet复制到一个sheet里面。
With Workbooks(dirname).Sheets(i)
.Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
.Columns(1).SpecialCells(xlCellTypeConstants, 2).EntireRow.Delete
rg1.Copy rg
上面是代码，请教大神 ，经过第5和第6句的删除后，有一个sheet的range 为空了，执行 rg1.Copy rg 会出错，在这儿我试了 IsNull IsEmpty IsNothing等判别方法，都判别rg1为真，试了Count之类的方法，又是无法读取到对象（rg1），请教一下，如何在这里判别 rg1 为空。
PS：我这是一个循环，是将多个sheet复制到一个sheet里的，将经过删除空行和第一个不是数字的行之后的sheet复制到一个sheet里面。
