【VBA】データの最終行をバックグラウンドで配列に格納する方法

日々の業務で大量のデータを取り扱っている方にとって、効率的なデータ処理は非常に重要です。特に、特定の範囲のデータを一括で取り扱う際には、配列を使用することで大幅な時間短縮が可能です。この記事では、Excel VBAを使って指定したシートの最終行までを配列に高速に格納する方法をご紹介します。

サンプルコード

VBA

Option Explicit

Sub DataToArray()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    Application.ScreenUpdating = False '画面更新停止
    
    Dim lastRow As Long, i As Long
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row '最終行を取得
    
    Dim data() As Variant
    ReDim data(1 To lastRow)
    
    For i = 1 To lastRow
        data(i) = ws.Cells(i, 1).Value 'データの配列格納
    Next i
    
    Application.ScreenUpdating = True '画面更新再開
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

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