VBA删除空值的单元格

2020-05-13 17:46:40  阅读 373 次 评论 0 条
Sub 删除空行()
Dim rng As Range, ads As String
For Each rng In [d1:d5000]
  If rng = "" Then ad = ad & rng.Address & ","
Next
ads = Left(ad, Len(ad) - 1)
Range(ads).EntireRow.Delete
End Sub

范围为D1至D5000行

WPS达师专注于免费分享WPS Office使用教程、PPT、word模板及办公常用软件等资源,欢迎大家收藏和分享本站。
WPS交流群:121023130

发表评论


表情

还没有留言,还不快点抢沙发?