当前位置:首页 > WPS表格 > 正文内容

VBA删除空值的单元格

达叔3个月前 (05-13)WPS表格112
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达师发布,如需转载请注明出处。
标签: 空值空行vba