【エクセルマクロ】オートフィルタで可視セルをループ:動画あり

ExcelVBA-オートフィルタ可視セルループ--アイキャッチ エクセルマクロで効率化する

エクセルマクロで、オートフィルタで可視セルをループするVBAコードをご紹介します。

このページのマクロコードは、コピペで使えます。
ぜひお試しください!

オートフィルタで可視セルをループ

以下のExcelVBAを実行すると、オートフィルタで抽出結果をループします。


Sub オートフィルタ可視セルをループ()

Dim i As Long
Dim LastRow As Long
Dim Cnt As Long

    '最終行を取得
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    Cnt = 1

    'フィルターでデータ抽出
    Range("A1").CurrentRegion.AutoFilter _
        Field:=3, _
        Criteria1:="埼玉県"

     '可視セルをループ
     For i = 2 To LastRow

        '行が非表示じゃなければ文字入力
        If Rows(i).Hidden = False Then
            Cells(i, 4) = Cnt
            Cnt = Cnt + 1
        End If
    Next

End Sub

 

マクロ実行後

オートフィルタで絞り込んだデータをループします。

ループ処理で、D列に連番を入力してみました。


 

オートフィルタを解除した状態です。


 

この記事がお役に立ちますと幸いです。
 

【エクセルマクロ】オートフィルタ処理を自動化:超便利18選
...

 

「たった1秒で仕事が片づくExcel自動化の教科書【増強完全版】」
「5時間かかる作業が3時間でできます」ではなく「1秒で終わらせます」へ
毎日の業務を瞬時に終わらせるしくみを解説