Excel VBA定制如何快速删除表格空白单元格

1、如下图表格中含有部分空单元格，现在我们想要批量讲这些空单元格删除掉。

3、然后同时按下Alt+F11，打开vba编辑页面。

5、然后按下F5运行代码

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