Excel 如何删除给定工作簿中的空白页？

问题：我试图删除空表，但我无法获得确切的代码。有人能帮我解决这个问题吗？谢谢。

您没有定义

wb

的来源，也没有使用

sh

在工作表中进行迭代

我假设您希望遍历活动工作簿中的工作表。如果是这样，您不需要

wb

或

c

。试试这个：

Sub deleteemptysheets()
Dim sh As Worksheet, wb As Workbook, c As Range
sh = Sheets(wb.Sheets)
    For Each c In wb.Sheets
        If IsEmpty(sh.UsedRange) Then
            sh.Delete
        End If
    Next
Set sh = Nothing
Set wb = Nothing
Set c = Nothing
End Sub

---

我想通过输入框从不同的工作簿中选择工作表。好的，然后请使用调用deleteemptysheets（）Sub delete（）Dim sh As Worksheet、wb As Workbook、c As Range wb=Inputbox（“工作簿名称”）sh=wb.sheets的代码更新您的问题，如果为空（sh.UsedRange）然后sh.delete End If Next End Sub

Sub deleteemptysheets()
    Dim sh As Worksheet
    For Each sh In ActiveWorkbook.Sheets
        If IsEmpty(sh.UsedRange) Then
            sh.Delete
        End If
    Next
    Set sh = Nothing
End Sub