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

koutx

一个Excel工作薄中有两个Sheet1和Sheet2，当打开此Excel工作薄时，如果Sheet1中是空的，而Sheet2中有内容时，如何用VBA语句来判断并将Sheet2设为当前活动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

复制代码

koutx

谢谢了.

余方方

学习代码