excel - 选择整个过滤的行，而不仅仅是单元格

Question

Private Sub cbCWorker_Change()

With Sheet3
        Dim lastRow As Long
        lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        Dim filterRange As Range
        Set filterRange = .Range("A2:F" & lastRow)
    
        With filterRange
            .AutoFilter 1, lblTask.Caption
            Dim filter As Range
            Set filter = .Range("A2:F" & lastRow).SpecialCells(xlCellTypeVisible)
            lbCWorker.List = Worksheets("Resource Planning_EMP").Range(filter, filter.End(xlDown)).value

        End With
    
End With
End Sub

上面的代码只显示了第一个过滤的单元格，但我想查看包含过滤数据的整行。

标签： excelvba