如何判断要打开的工作薄中哪个Sheet里有内容

roych

回复 koutx 的帖子

先贴是代码，把这段代码放置在workbook_Open事件中（如附件所示）：

1. 
   
2. For Each one In Application.Worksheets
   
3. 'For循环遍历工作表
   
4. If Application.WorksheetFunction.CountA(one.Range("A1:IV65536")) > 0 Then
   
5. '用内置函数计算是否有内容，注意，空格也算是有输入的。如果不算，还要调试代码，暂时先不做。
   
6. MsgBox one.Name & "内容不为空，现在转向不为空的工作表"
   
7. one.Select
   
8. ‘选中有内容的工作表（也可以用激活方法：Activate）
   
9. End If
   
10. Next one

复制代码