[已解决]删除表格中空行

ymq123

请编写代码
删除工作表2中空行，工作表3内是删除结果。

最佳答案

月排行榜 / 总排行榜

as0810114

2015-1-3 14:14

Sub test()
  Dim i%, j%
    With Sheets("2")
        For i = .Cells.Find("*", , , , , xlPrevious).Row To 1 Step -1
           If Application.CountA(.Rows(i)) = 0 Then
            .Rows(i).Delete
            End If
        Next
    End With
End Sub

跳转到最佳答案楼层

baksy

函数解决。

as0810114

Sub test()
  Dim i%, j%
    With Sheets("2")
        For i = .Cells.Find("*", , , , , xlPrevious).Row To 1 Step -1
           If Application.CountA(.Rows(i)) = 0 Then
            .Rows(i).Delete
            End If
        Next
    End With
End Sub