動的フィルタリングされたループを介したループ

Question

フィルタリングされたリストの可視行をどのようにループしますか？最初のフィルタリングされた行にセルがあり、列Bが "Y"であるとします。特定の列の非表示セルをすべてYに変更する必要があります。列Bの範囲が毎日異なるため、これも動的である必要があります。基本的に

、私はこのコードを変更する必要があります：あなただけがオートフィルで、ここで達成しようとしている正確にわからないSpecialCells

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

Answer 1

を使用して可視セルを参照することができ

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

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

Answer 2

が、これは、フィルタリングされたセルを処理する方法についてのアイデアを提供します。

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