【VBA】データの最終行を配列を使って高速に置換する方法

日々の業務の中で大量のデータを扱う際、手作業での修正は労力を要します。特に最終行のデータが頻繁に変更される場合、その効率化は大きな課題です。この記事では、VBAを使用して配列を通じて高速に置換する方法を紹介し、業務効率を大幅に向上させます。

サンプルコード

VBA

Option Explicit
Sub ReplaceLastRowData()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 最終行の取得
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    ' 配列の準備
    Dim dataArr() As Variant
    dataArr = ws.Range("A2:A" & lastRow)
    
    ' データ置換処理
    Application.ScreenUpdating = False
    For i = LBound(dataArr) To UBound(dataArr)
        If dataArr(i, 1) = "元の値" Then
            dataArr(i, 1) = "新しい値"
        End If
    Next i
    
    ' 配列をシートに戻す
    ws.Range("A2:A" & lastRow).Value = dataArr
    Application.ScreenUpdating = True
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

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