如何用VBA批量删除空白行

longming3 · 发表于 2011-9-8 20:43

Columns("A").SpecialCells(4).EntireRow.Delete

smartsoft · 发表于 2011-9-8 20:45

做个排序就好啦

ddxuyi · 发表于 2011-10-17 15:09

可以学习一下，{:soso_e179:}{:soso_e179:}

soho有我 · 发表于 2013-8-12 22:45

Range("a1:a" & maxh)是什么意思啊

soho有我 · 发表于 2013-8-12 22:46

flysum2008 发表于 2011-9-8 20:27
9楼正解

Range("a1:a" & maxh)中"a1:a" & maxh是什么结构

huazai688 · 发表于 2014-6-5 19:58

收藏！！！！！！！！！

laujifuly · 发表于 2019-6-14 21:34

本帖最后由 laujifuly 于 2019-6-15 09:30 编辑

Sub DeleteEmptyRows()
'删除空行
Dim LastRow As Long, r As Long
LastRow = ActiveSheet.UsedRange.Rows.Count
LastRow = LastRow + ActiveSheet.UsedRange.Row - 1
For r = LastRow To 1 Step -1
If WorksheetFunction.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
End Sub

Sub DeleteEmptyColumns()
'删除空列
Dim LastColumn As Long, c As Long
LastColumn = ActiveSheet.UsedRange.Columns.Count
LastColumn = LastColumn + ActiveSheet.UsedRange.Column
For c = LastColumn To 1 Step -1
If WorksheetFunction.CountA(Columns(c)) = 0 Then Columns(c).Delete
Next c
End Sub

poongsan · 发表于 2019-11-3 15:24

很好用的代码

ibearbear · 发表于 2019-11-28 15:06

hwmj8301 发表于 2011-9-8 19:00
没下载附件
以2楼代码为基础
对第3行稍作修改参考

学习了！收藏了！点赞了！

舞贱 · 发表于 2020-9-14 15:21

学习了！！

		自动登录	找回密码
密码			免费注册

[求助] 如何用VBA批量删除空白行

最新热点 /1