【VBA】可視セル(フィルタ結果)を開かずに配列に格納する方法

日々の業務で大量のデータからフィルタ結果だけを取り出す作業は大変な労力です。この記事では、Excel VBAを使用してフィルタ結果を配列に格納し、さらにそれを活用することで業務効率化を図る方法を紹介します。

サンプルコード

VBA

Option Explicit
Sub FilterToArray()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") 'フィルタを適用したシート名を指定
    
    Dim lastRow As Long, i As Long
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row 'データの最終行を取得
    
    Dim visibleCells() As Variant
    ReDim visibleCells(1 To Application.WorksheetFunction.Subtotal(103, ws.Range("A2:A" & lastRow)) + 1, 1 To 5) 'フィルタ結果の配列を初期化
    i = 1 '配列インデックス初期化
    
    For Each cell In ws.Range("A2:A" & lastRow)
        If cell.EntireRow.Hidden = False Then '非表示でない行のみ処理
            visibleCells(i, 1) = cell.Value 'フィルタ結果を配列に格納
            i = i + 1 '次のインデックスへ移動
        End If
    Next cell
    
    Debug.Print "フィルタ結果の配列:"
    For i = LBound(visibleCells) To UBound(visibleCells)
        Debug.Print visibleCells(i, 1)
    Next i
End Sub

よくある質問

Q 元に戻せますか？

VBAの実行結果は「元に戻す」が効きません。必ずバックアップを取ってから実行してください。

Q エラーが出たら？

シート名や列番号が正しいか確認してください。