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
