Question

vba 这个哪错了

Answer 1

有几处问题：

1、Sheets数组在执行Delete一张Sheet后会发生变化，如果把Sheets(1)删除，那那删除后，原来的第Sheets(2)就会变为Sheets(1)，后面的也都会往往前推。同时Sheets.count也会减1。

2、Sheets(i).cells是一个对象集合，可以给它赋值为空，但却不能用一个对象集合与空进行比较。可以考虑判断Sheets(i).UsedRange.address是否为A1,且A1为空。

3、虽然Sheets.count会变化，但对于FOR循环，后面的循环范围只会计算一次，所以要改为DO...LOOP循环

4、一个EXCEL表格最少有一张表格，如果EXCEL所有表格均为空，那么会出错，因此要增加判断是否只有一张表。

 另外，下面的代码可以放在模块中，也可以放在thisworkbook的代码中，但不能放在Sheet中，如果放在Sheet中，当这张Sheet为空时程序要进行删除操作，虽然运行时没有问题，但运行结束时会发生自动化错误，因此代码所在的那张Sheet被删除了。

 

 

Sub test()
Dim i%
Application.DisplayAlerts = False
i = 1
Do
If Sheets(i).UsedRange.Address = "$A$1" And Sheets(i).Cells(1, 1) = Empty Then
Sheets(i).Delete
Else
i = i + 1
End If
Loop Until i > Sheets.Count Or Sheets.Count = 1
Application.DisplayAlerts = True
End Sub

Answer 2

删除应该从后往前删，否则会有漏网之鱼
for i = sheets.count to 1 step -1

Answer 3

不可能删除所有的表的，至少要保留一个空白的
如果空白的也不想要的话。可以隐藏啊！