一、手工删除 空行少的时候 右键--删除
二、ctrl+G ---定位条件----空行----确定---删除
三、利用“宏“快速删除空行
Sub 删除空行()
Dim LastRow As Long
Dim R As Long
Dim Counter As Long
Dim Un As Range
Dim D As String
Dim T1, T2
'T1 = Timer
Set Un = Range(2 ^ 16 & "：" & 2 ^ 16)
Application.ScreenUpdating = False
LastRow = ActiveSheet.UsedRange.Rows.Count + _
ActiveSheet.UsedRange.Rows(1).Row - 1
For R = LastRow To 1 Step -1
If 是否空行(Rows(R)) = "是" Then
Set Un = Union(Un, Rows(R))
'D = Un.Address
'Un.Select
Counter = Counter + 1
End If
Next R
Un.Delete
Application.ScreenUpdating = True
'T2 = Timer - T1
'MsgBox T2
MsgBox Counter & " 个完整空行被删除。"
End Sub
Private Function 是否空行(Rg As Range)
If Application.WorksheetFunction.CountA(Rg) = 0 Then
是否空行 = "是"
End If
End Function
大家试试吧！
分享到:
閱讀更多 淡墨留餘香 的文章
