如何删除指定区域的空行

caiyu93

1. Sub del()
   
2.     Dim r As Range, i As Range, arr$(), k&
   
3.     Set r = Range([l1], [n:n].Find("*", SearchDirection:=xlPrevious))
   
4.     For Each i In r.Rows
   
5.         If Replace(Join(Application.Transpose(Application.Transpose(i)), ""), " ", "") = "" Then
   
6.             ReDim Preserve arr(k)
   
7.             arr(k) = i.Address
   
8.             k = k + 1
   
9.         End If
   
10.     Next
    
11.     Range(Join(arr, ",")).Delete
    
12. End Sub
    

复制代码

smiletwo

截屏比拍照清楚

ccbbww

ccbbww 发表于 2023-2-11 19:39
按回复的要求，运行程序后没有删除空行，

谢谢老大的回复，问题解决啦！

ccbbww

ccbbww 发表于 2023-2-11 19:05
Sub DeleteEmptyRows()
Dim LastRow As Long, r As Long, Rng As Range
LastRow = Range("L" & Rows.Co ...

感谢老师精心指点，问题解决啦，自己提高知识。

ccbbww

gwjkkkkk 发表于 2023-2-11 23:28
请参考。。。

感谢老师的精心指点，问题解决啦。

ccbbww

gwjkkkkk 发表于 2023-2-11 23:28
请参考。。。

感谢老师的指点，解决问题

ccbbww

caiyu93 发表于 2023-2-12 03:56

谢谢老师指点，