如果3个单元格为空白，则在Excel中隐藏行

Question

我有一个包含A到F列的工作表。我正在寻找要在所有行中运行的程序（是否有办法只执行活动行？），然后检查D1＆E1＆F1是否为空，然后隐藏行（依此类推）。

这是我所拥有的，效果并不理想。

 Sub Celltest2()
 Dim rw As Range, cel As Range
 Dim i As Integer
 Dim celset As Range

 For Each rw In Sheets("Phonelist").Range("D2:F5000").Rows
    For Each cel In rw.Cells
            If Len(cel.Text) = 0 Then
            cel.EntireRow.Hidden = True

            End If
    Next
Next
 End Sub

Answer 1

请尝试以下代码：

Sub Celltest2()

Dim rw As Range, cel As Range
Dim i As Integer
Dim celset As Range
Dim LastRow As Long


With Sheets("Phonelist")
    ' find last row with data in Columns "D, "E" and "F" >> modify to your needs
    LastRow = WorksheetFunction.Max(.Cells(.Rows.Count, "D").End(xlUp).Row, _
                                    .Cells(.Rows.Count, "E").End(xlUp).Row, _
                                    .Cells(.Rows.Count, "F").End(xlUp).Row)

    For Each rw In .Range("D2:F" & LastRow).Rows
        If WorksheetFunction.CountA(Range("D" & rw.Row & ":F" & rw.Row)) = 0 Then
            rw.EntireRow.Hidden = True
        End If
    Next rw
End With

End Sub

选项2 ：您可以将以下循环（ For Each rw In .Range("D2:F" & LastRow).Rows的循环）替换为以下循环：

For i = 2 To LastRow
    If WorksheetFunction.CountA(Range("D" & i & ":P" & i)) = 0 Then
        Rows(i).EntireRow.Hidden = True
    End If
Next i