一、首先找到需要删除空白的地方，如下图：
二、然后将所填内容部分选中，如下图：
三、然后按ctrl+g，就会出现下图中的界面，然后点击下图中箭头所指的“定位条件”：
四、点击“定位条件后”，就会出现下图中的界面，然后依次点击“空值”——“确定”，如下图：
五、然后就会选中所选择的空格，如下图：
六、再选中的空值上面，单击鼠标右键，点击“删除”，如下图：
七、点击“删除”后，然后再点击“下方单元格上移”，如下图：
八、最终的效果图如下：
首先全选数据（ctrl+A)
按F5键打开定位，点击定位条件按钮，选为空值
点击确定按钮此时，所有空值被选中
在选中空值上点击右键，删除，表列
完成
追问多个excel文件，不是在一个工作簿内
excel批量删除空白页面
方法一
1、打开要的文档
2、点击菜单的"视图"
3、选择"分面预览",
4、在表格中拖动分页符到有内容的位置，这样操作以后，空白页就没有了。
方法二
1、进入“视图”>“页面布局”；按住Ctrl并滚动鼠标滚轮缩放视图，然后在文档中“框选空白页”。
2、当框选了空白页后右单击框选的空白页，弹出的快捷菜单中点击“删除”。
3、在弹出的删除对话框中，选择右侧单元格左移或下方单元格上移后确定删除。（请勿选择整行、整列，以免删除到数据）
4、通过以上步骤Excel中的空白页已被删除掉。（注：如果文档中有多个空白页，请逐个删除）
'双击左边的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+右或下的键盘箭头，选中表全部空白列或空白行删除，你这操作看看如何