如何根据工作表最后一列中的单元格值隐藏行？

Question

我正在尝试创建一个宏，在其中搜索工作表的最后一列以查找值，如果在单元格中找到该值，则隐藏单元格的整行。我也在尝试为此使用动态范围，因为最后一列会发生变化。

With ws1

LastColumn = .Cells(1, Columns.Count).End(xlToLeft).Column
LastRow = .Cells(.Rows.Count, LastColumn).End(xlUp).Row

Set rDataRange = .Range(.Cells(2, LastColumn), .Cells(LastRow, LastColumn))

For Each rCell in RDataRange 
    If rCell.Value = "Yes" Then
        rCell.EntireRow.Hidden = True
    End If
Next rCell
End With

有人知道为什么这可能不起作用吗？

Answer 1

试试：

Option Explicit

Sub test()

    Dim LastColumn As Long, Lastrow As Long, i As Long
    Dim str As String

    With ThisWorkbook.Worksheets("Sheet1")

        str = "Test"
        LastColumn = .Cells(1, .Columns.Count).End(xlToLeft).Column
        Lastrow = .Cells(.Rows.Count, LastColumn).End(xlUp).Row

        For i = 1 To Lastrow

            If .Cells(i, LastColumn).Value = str Then
                .Rows(i).EntireRow.Hidden = True
            End If

        Next i

    End With

End Sub