如何删除Excel最后几页？如何快速批量删除？
作者：佚名|分类：EXCEL|浏览：99|发布时间：2025-03-16 22:40:01
如何删除Excel最后几页？如何快速批量删除？
在处理Excel文件时，有时候我们可能需要删除最后几页，或者批量删除多个工作簿中的最后几页。以下是一些有效的方法来帮助你完成这个任务。
如何删除Excel最后几页？
方法一：手动删除
1. 打开Excel文件。
2. 点击“视图”选项卡，然后选择“工作簿视图”中的“页面布局”。
3. 在页面布局中，你可以看到工作簿的页码。找到你想要删除的最后一页。
4. 右键点击最后一页的页码，选择“删除”。
5. 确认删除操作。
这种方法适用于只需要删除一两个页面的情况。
方法二：使用快捷键
如果你想要快速删除最后一页，可以使用以下快捷键：
1. 打开Excel文件。
2. 点击“视图”选项卡，然后选择“工作簿视图”中的“页面布局”。
3. 按下`Ctrl + End`键，光标会跳转到工作簿的最后一页。
4. 按下`Delete`键删除该页。
这种方法同样适用于删除一两个页面。
如何快速批量删除？
方法一：使用VBA宏
1. 打开Excel文件。
2. 按`Alt + F11`键打开VBA编辑器。
3. 在VBA编辑器中，插入一个新的模块（Insert -> Module）。
4. 在模块中输入以下VBA代码：
```vba
Sub DeleteLastPages()
Dim ws As Worksheet
Dim wb As Workbook
Set wb = ThisWorkbook
For Each ws In wb.Sheets
ws.PageSetup.LeftMargin = 0.5
ws.PageSetup.RightMargin = 0.5
ws.PageSetup.TopMargin = 0.5
ws.PageSetup.BottomMargin = 0.5
ws.PageSetup.PrintArea = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintHeadings = False
ws.PageSetup.LeftHeader = ""
ws.PageSetup.CenterHeader = ""
ws.PageSetup.RightHeader = ""
ws.PageSetup.LeftFooter = ""
ws.PageSetup.CenterFooter = ""
ws.PageSetup.RightFooter = ""
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintQuality = 600
ws.PageSetup.PrintRange = ""
ws.PageSetup.PaperSize = xlPaperA4
ws.PageSetup.Orientation = xlLandscape
ws.PageSetup.FitToPagesWide = 1
ws.PageSetup.FitToPagesTall = 1
ws.PageSetup.BlackAndWhite = False
ws.PageSetup.PrintErrors = xlPrintErrorsNone
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintHeadings = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xlPrintObjectsNone
ws.PageSetup.PrintInfo = xlPrintInfoNone
ws.PageSetup.PrintAreas = ""
ws.PageSetup.PrintTitle = False
ws.PageSetup.PrintGridlines = False
ws.PageSetup.PrintComments = xlPrintCommentsNone
ws.PageSetup.PrintObjects = xl