订阅Excel VBA定制如何快速删除表格空白单元格
来源：网络收集 点击： 时间：2024-04-17【导读】：
今天跟大家分享一下如何使用vba批量删除空白单元格工具/原料moreExcel方法/步骤1/7分步阅读
2/7
3/7
4/7
5/7
6/7
7/7
如下图表格中含有部分空单元格，现在我们想要批量讲这些空单元格删除掉。
2/7首先我们选中这些数据单元格区域
3/7然后同时按下Alt+F11，打开vba编辑页面。
4/7接着点击sheet1，在下图区域录入vba代码
5/7然后按下F5运行代码
6/7在弹出对话框内输入0，然后点击【确定】即可完成。
7/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
版权声明：
1、本文系转载，版权归原作者所有，旨在传递信息，不代表看本站的观点和立场。
2、本站仅提供信息发布平台，不承担相关法律责任。
3、若侵犯您的版权或隐私，请联系本站管理员删除。
4、文章链接：http://www.1haoku.cn/art_533950.html
上一篇：MathType怎么输入余弦函数
下一篇：在Excel中如何统计字符的个数
