循环通过动态过滤列表

Question

如何遍历过滤列表中的可见行？我在第一个过滤行中有一个单元格，假设 B 列是“Y”。我需要能够将特定列中的所有非隐藏单元格更改为 Y。这也需要是动态的，因为 B 列的范围每天都会有所不同。

基本上，我需要修改这段代码：

Range("B2").Select --Where B2 is "Y"

Selection.AutoFill Destination:=Range(*This is where I am unsure*)

Answer 1

不确定您在此处使用自动填充到底想达到什么目的，但这会让您了解如何处理过滤后的单元格...

Dim ws As Worksheet
Dim lr As Long
Dim FillWith As String

Set ws = ActiveSheet    'Change it as per your requirement
lr = ws.UsedRange.Rows.Count
FillWith = ws.Range("B2").Value     'Change it as per your requirement
If ws.FilterMode Then
    If ws.Range("B1:B" & lr).SpecialCells(xlCellTypeVisible).Cells.Count > 1 Then
        ws.Range("B2:B" & lr).SpecialCells(xlCellTypeVisible).Value = FillWith
    End If
End If

Answer 2

您只能使用SpecialCells 引用可见单元格

Range("A2:A100").SpecialCells (xlCellTypeVisible)