Question

EXCEL中VBA如何实现有条件删除整行

EXCEL中VBA如何实现有条件删除整行

以行进行判断，哪一行有连续2个或2个以上不为空单元格，直接删除这行

http://pan.baidu.com/s/1eRxbcdG

Answer 1

Sub s()
    n = ActiveSheet.UsedRange.Item(ActiveSheet.UsedRange.Count).Row
    m = ActiveSheet.UsedRange.Item(ActiveSheet.UsedRange.Count).Column - 1
    For i = n To 1 Step -1
        For j = 1 To m
            If Cells(i, j) <> "" And Cells(i, j + 1) <> "" Then
                Rows(i).Delete
                Exit For
            End If
        Next
    Next
End Sub