セルのエラーを無視する方法

前提・実現したいこと

ブックAからブックBに値をコピーするコードを書いたのですが、ブックA(ソース元)のセルのエラー(左上が緑三角になっている)によりはじかれます。
このエラーは意味のないエラーなので、無視して値をコピーしてきたいのですが、方法はあるのでしょうか。

このセルにある数式は、隣接したセル以外の範囲を参照します。

試したこと

ErrorをIgnoreにすればよいと思ったのですが、該当のエラーが何のエラーオブジェクト(xlNumberAsTextのような)なのかがわかりませんでした。
また、ローカルウィンドウで探したのですが、タグ分岐でわかりませんでした。

meg_

2020/08/12 12:13

コードとシートの画像を掲載してください。

行動規範の内容に同意します

回答1件

ベストアンサー

エラーになっているセルを IFERROR関数でエラーにならないようにしたらどうですか。

ExcelのIFERROR関数の使い方｜エラーの場合に指定した値を返す｜Office Hack

直接の回答ではないですが、

セル側でエラーを無視すれば回るのですが、数が膨大なのでVBA側で出来る方法を探っていました

シート上のすべてのエラーのあるセルをIFERROR関数でエラー無視するように修正するVBAを作ってみました。

下記を実行するとアクティブなシートのエラーセルのエラーを""に変換します。

vba
1Sub エラーセルを修正する()
2    Dim errRng As Range
3    On Error Resume Next
4    Set errRng = Cells.SpecialCells(xlCellTypeFormulas, xlErrors)
5    On Error GoTo 0
6
7    If errRng Is Nothing Then
8        MsgBox "エラーのセルはありません。"
9    Else
10        Dim errCell As Range
11        For Each errCell In errRng
12            Dim f As String
13            f = errCell.Formula
14            errCell.Formula = "=IFERROR(" & Mid$(f, 2) & ","""")"
15        Next
16    End If
17End Sub