1、如下图表格中含有部分空单元格，现在我们想要批量讲这些空单元格删除掉。
2、首先我们选中这些数据单元格区域
3、然后同时按下Alt+F11，打开vba编辑页面。
4、接着点击sheet1，在下图区域录入vba代码
5、然后按下F5运行代码
6、在弹出对话框内输入0，然后点击【确定】即可完成。
7、完成效果如下图，最后跟大家分享一下本文这里所使用的vba代码。'激活工作表事件'激活工作表，写入除目录外所有表名'作者：如需Excel vba定制，请百度方方格子'------------------------------------------Sub 删除选区空白单元格() On Error Resume Next Dim r As Range, tmp As Range Set r = Intersect(ActiveSheet.UsedRange, Selection) Dim dir As Long dir = Application.InputBox("删除后 0：向上移动 1：向左移动。", Default:=0, Type:=1) If dir = 0 Then dir = xlShiftUp Else dir = xlShiftToLeft End If
