今天跟大家分享一下如何使用vba批量删除空白单元格
工具/原料
Excel
方法/步骤
1、如下图表格中含有部分空单元格，现在我们想要批量讲这些空单元格删除掉。
2、首先我们选中这些数据单元格区域
3、然后同时按下Alt+F11，打开vba编辑页面。
4、接着点击sheet1，在下图区域录入vba代码
5、然后按下F5运行代码
6、在弹出对话框内输入0，然后点击【确定】即可完成。
7、完成效果如下图，最后跟大家抵足谛垴分享一下本文这里所使用的vba代码。'激活工作表事件'激活工作表，写入除目录外所有表名'作者晗稍噔猷：如需Excelvba定制，请百度方方格子'------------------------------------------Sub删除选区空白单元格()OnErrorResumeNextDimrAsRange,tmpAsRangeSetr=Intersect(ActiveSheet.UsedRange,Selection)DimdirAsLongdir=Application.InputBox("删除后0：向上移动1：向左移动。",Default:=0,Type:=1)Ifdir=0Thendir=xlShiftUpElsedir=xlShiftToLeftEndIf
