エラーを無視してExcelのセル範囲を合計するにはどうすればよいですか？

時々、ワークシートにいくつかのエラー値が含まれている場合がありますが、エラー値を無視して選択したセル範囲を合計したいとします。範囲に対して直接Sum関数を適用すると、間違った結果が得られます。ここでは、簡単で効果的な方法をいくつかご紹介します。

配列数式を使用してエラーを無視してセル範囲を合計する

VBAコードを使用してエラーを無視してセル範囲を合計する

配列数式を使用してエラーを無視してセル範囲を合計する

次のスクリーンショットに示すように、セル値の範囲があると仮定します。エラーを無視して範囲を合計するために、この配列数式を適用できます。以下のように操作してください：

1. 空白のセルに、この数式 =SUM(IF(ISERROR(A1:C6),"",A1:C6)) を入力し、スクリーンショットをご覧ください：

注: 上記の数式では、A1:C6は合計したい範囲です。必要に応じて変更できます。

2. 次に、Ctrl + Shift + Enterキーを同時に押して終了します。そして、次の結果が得られます：

Kutools AIでExcelの魔法を解き放つ

• スマート実行: セル操作、データ分析、グラフ作成を簡単なコマンドで行います。
• カスタム数式: ワークフローを合理化するための独自の数式を生成します。
• VBAコーディング: 簡単にVBAコードを作成し実装します。
• 数式の解釈: 複雑な数式を簡単に理解できます。
• テキスト翻訳: スプレッドシート内の言語障壁を取り除きます。

AI搭載ツールでExcelの機能を強化しましょう。今すぐダウンロードして、かつてないほどの効率を体験してください！

VBAコードを使用してエラーを無視してセル範囲を合計する

以下のVBAコードも、エラーのあるセル値の合計を迅速に取得するのに役立ちます。

1. ALT + F11キーを押しながら押すと、Microsoft Visual Basic for Applicationsウィンドウが開きます。

2. 挿入 > モジュールをクリックし、モジュールウィンドウに次のコードを貼り付けます。

VBAコード: エラーを無視してセル範囲を合計する

Sub SumNumNoError()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim xSum As Long
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    If Not (IsError(Rng.Value)) Then
        xSum = xSum + Rng.Value
    End If
Next
MsgBox xSum
End Sub

3. 次に、F5キーを押してコードを実行すると、合計したい範囲を選択するよう求めるプロンプトボックスが表示されます。

4. その後、[OK]をクリックすると、結果を示すプロンプトボックスが表示されます。

関連記事：

Excelのリスト内で最大または最小の3つの値を合計するにはどうすればよいですか？

Excelで他の行やn番目の行/列を迅速に合計するにはどうすればよいですか？

Excelでフィルタリングされたセルまたは表示されているセルのみを合計するにはどうすればよいですか？