VALUE! や #DIV/0! を一括抽出！エラーセルだけを別シートにコピーするExcelVBA【コピペOK】

Sub ExtractErrorCells()
    Dim ws As Worksheet
    Dim destWs As Worksheet
    Dim rng As Range, cell As Range
    Dim lastRow As Long, lastCol As Long
    Dim outputRow As Long

    Set ws = ActiveSheet

    ' 出力先シートを準備（存在しない場合は新規作成）
    On Error Resume Next
    Set destWs = Worksheets("エラー一覧")
    If destWs Is Nothing Then
        Set destWs = Worksheets.Add
        destWs.Name = "エラー一覧"
    Else
        destWs.Cells.ClearContents
    End If
    On Error GoTo 0

    ' ヘッダー作成
    destWs.Range("A1:C1").Value = Array("セル位置", "エラー内容", "セルの値")
    outputRow = 2

    ' データ範囲を取得（UsedRange）
    Set rng = ws.UsedRange
    For Each cell In rng
        If IsError(cell.Value) Then
            destWs.Cells(outputRow, 1).Value = cell.Address
            destWs.Cells(outputRow, 2).Value = CVErr(cell.Value)
            destWs.Cells(outputRow, 3).Value = cell.Text
            outputRow = outputRow + 1
        End If
    Next cell

    MsgBox "エラーセルを「エラー一覧」シートに抽出しました！", vbInformation
End Sub