【VBA】数式エラー(#N/A等)を開かずに(外部参照で)転記する方法

手作業でのデータ転記は時間と労力がかかります。特に数式エラー(#N/A等)が含まれる場合、作業はさらに複雑になります。この記事では、VBAを使用してこれらの問題を簡単に解決し、業務の効率化を図ります。

サンプルコード

VBA

Option Explicit
Sub TransferDataIgnoringErrors()
    Dim wsSource As Worksheet, wsTarget As Worksheet
    Dim lastRowSource As Long, i As Long
    
    ' ソースとターゲットシートの設定
    Set wsSource = ThisWorkbook.Sheets("Sheet1")
    Set wsTarget = ThisWorkbook.Sheets("Sheet2")
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    ' ソースシートの最終行を取得
    lastRowSource = wsSource.Cells(wsSource.Rows.Count, 1).End(xlUp).Row
    
    ' データ転記処理
    For i = 1 To lastRowSource
        If IsError(wsSource.Range("A" & i)) Then
            wsTarget.Range("B" & i) = ""
        Else
            wsTarget.Range("B" & i).Formula = wsSource.Range("A" & i).Formula
        End If
    Next i
    
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

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