如何删除指定区域的空行

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

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

复制代码

smiletwo · 发表于 2023-2-12 11:56

截屏比拍照清楚

ccbbww · 发表于 2023-2-12 15:46

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

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

ccbbww · 发表于 2023-2-12 16:28

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

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

ccbbww · 发表于 2023-2-12 16:29

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

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

ccbbww · 发表于 2023-2-12 16:30

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

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

ccbbww · 发表于 2023-2-12 16:44

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

谢谢老师指点，

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

[求助] 如何删除指定区域的空行