excel批量删除空白页面

产品型号：ASUS S340MC

系统版本：Windows 10

软件版本：Microsoft Office Excel 2019

1、首先打开电脑上的Excel文件。

2、然后点击工具栏上方的视图图标。

3、接着在工作簿视图一栏选择分页预览。

4、最后拖动右边边框删除多余的空白页即可。

总结

1、首先打开电脑上的Excel文件。

2、然后点击工具栏上方的视图图标。

3、接着在工作簿视图一栏选择分页预览。

4、最后拖动右边边框删除多余的空白页即可。

一、首先找到需要删除空白的地方，如下图：

二、然后将所填内容部分选中，如下图：

三、然后按ctrl+g，就会出现下图中的界面，然后点击下图中箭头所指的“定位条件”：

四、点击“定位条件后”，就会出现下图中的界面，然后依次点击“空值”——“确定”，如下图：

五、然后就会选中所选择的空格，如下图：

六、再选中的空值上面，单击鼠标右键，点击“删除”，如下图：

七、点击“删除”后，然后再点击“下方单元格上移”，如下图：

八、最终的效果图如下：

首先全选数据（ctrl+A)

按F5键打开定位，点击定位条件按钮，选为空值

点击确定按钮此时，所有空值被选中

在选中空值上点击右键，删除，表列

完成

追问多个excel文件，不是在一个工作簿内

excel批量删除空白页面

方法一

1、打开要的文档
2、点击菜单的"视图"
3、选择"分面预览",
4、在表格中拖动分页符到有内容的位置，这样操作以后，空白页就没有了。

方法二

1、进入“视图”>“页面布局”；按住Ctrl并滚动鼠标滚轮缩放视图，然后在文档中“框选空白页”。
2、当框选了空白页后右单击框选的空白页，弹出的快捷菜单中点击“删除”。
3、在弹出的删除对话框中，选择右侧单元格左移或下方单元格上移后确定删除。（请勿选择整行、整列，以免删除到数据）
4、通过以上步骤Excel中的空白页已被删除掉。（注：如果文档中有多个空白页，请逐个删除）

'新建一个xls,按Alt+F11
'双击左边的ThisWorkbook
'将下面代码复制至右边的空白窗口
'运行前请先用备份的xls作测试,没有问题再实际操作,以免误删.
'代码:
Sub DeleteSheet()
'######选中这行字,按F5,选择你需要删除空白sheet的workbook#####
Dim WB As Workbook
Dim str As Variant '定义数组，保存多个文件名
Dim I%, J%
str = Application.GetOpenFilename(FileFilter:="Excel (*.xlsx;*.xls),*.xlsx;*.xls", MultiSelect:=True)
If TypeName(str) = "Boolean" Then Exit Sub '检验是否有打开文件

'******************************************************************************************
'*****************下面代码会有删除sheet动作,并且不会有任何提示,本人不担任任何责任.*********
'******************************************************************************************
Application.DisplayAlerts = False
Application.ScreenUpdating = False
For I = 1 To UBound(str)
Set WB = Application.Workbooks.Open(str(I), , False) '打开选择的Excel

For J = WB.Sheets.Count To 1 Step -1
Debug.Print WB.Sheets(J).Name
Debug.Print WB.Sheets(J).UsedRange.Rows.Count
Debug.Print WB.Sheets(J).UsedRange.Columns.Count
'***************删除行和列使用率为1的sheet********************
If WB.Sheets(J).UsedRange.Rows.Count = 1 And WB.Sheets(J).UsedRange.Columns.Count = 1 Then WB.Sheets(J).Delete

Next J
WB.Save
WB.Close True '关闭并保存工作簿
Next I
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox "Done!"
End Sub

空白页产生的原因是某列或某行的内容达到了单元格的宽度限值，正好又在页边上，因此，我建议你方法如下：

选中有内容的所有列，比如是A列到F列，不能只是选中部分格子A1至F100等等。

再在选中的列将SHU标放到该列标志右边上，标题上，就是接手动拉列宽大小的地方。

待箭头由空心十字码变成实心的黑双向箭头时，迅速双击左键，那这几个选中列就会自动按内容改成最适应内容的宽度，

再去预览就会发现到底是哪儿出界了，你再根据情况改改列宽或是将那长的内容精简一下就可以了。

最后，如果以上方法没发现超界的格子，那就有可能是在空白地方不小心设置了非默认格式或输了什么内容，我一般都是选一列或一行空白的，再用CTR+SHIFT+右或下的键盘箭头，选中表全部空白列或空白行删除，你这操作看看如何

方法一：通过页面布局删除空白页 1、进入“视图”>“页面布局”；按住Ctrl并滚动鼠标滚轮缩放视图，然后在文档中“框选空白页”。 2、当框选了空白页后右单击框选的空白页，弹出的快捷菜单中点击“删除”。追问是有很多个，我需要的是批量删除空白页，而不是每一个都需要打开去调整

2007，
EXCEL的函数功能要比2003多很多。
2003毕竟太老了，如果别人用的是2007里EXCEL函数功能的话，2003很有可能会因为没有该函数功能而打不开。

你百度一下如何使用VBA批量删除空白页面试试

407538790@qq.com

本文如未解决您的问题请添加抖音号：51dongshi（抖音搜索懂视），直接咨询即可。