【VBA】数式エラー(#N/A等)を高速に別ブックとして保存する方法

手作業で#N/A等のエラーセルを抽出するのは時間がかかります。この記事では、VBAを使って高速にエラーのあるセルだけを別のワークブックに保存する方法を紹介します。

サンプルコード

VBA

Option Explicit
Sub ExtractErrorsToNewWorkbook()
    Dim wb As Workbook, newWb As Workbook
    Dim ws As Worksheet, errorWs As Worksheet
    Dim lastRow As Long, i As Long
    
    Application.ScreenUpdating = False '画面更新を停止
    Set wb = ThisWorkbook '現在のワークブック
    Set ws = wb.Sheets("Sheet1") 'エラー抽出対象シート名に変更
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row '最終行取得
    
    Set newWb = Workbooks.Add '新しいワークブックを作成
    Set errorWs = newWb.Sheets(1) '新規ワークブックの最初のシートを設定
    
    For i = 1 To lastRow
        If IsError(ws.Cells(i, 1).Value) Then 'A列のセルがエラーであるか確認
            errorWs.Cells(errorWs.Rows.Count, "A").End(xlUp).Offset(1, 0).Value = ws.Cells(i, 1).Value 'エラーセルを新規ワークブックにコピー
        End If
    Next i
    
    Application.ScreenUpdating = True '画面更新を再開
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

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