Excelで下線が付いたセルだけを合計する方法｜関数では難しい場合のVBA活用術

Excelでは通常、SUM関数などを使ってセルの合計を計算できます。しかし、「下線が引かれている金額だけを合計したい」というように、セルの見た目（書式）を条件にした集計は標準関数だけでは簡単に行えません。

この記事では、指定範囲内の下線付きセルだけを自動で合計する方法について、VBAを使ったユーザー定義関数の作成方法や注意点を分かりやすく解説します。

Excelの関数だけでは下線付きセルの合計が難しい理由
VBAで下線付きセルを合計するユーザー定義関数を作成する
D70セルに下線付き金額の合計を表示する方法
VBAを使用するときの注意点
下線ではなく別の条件で管理する方法
まとめ

Excelの関数だけでは下線付きセルの合計が難しい理由

ExcelのSUMIF関数やSUMIFS関数は、セルの値や文字列などを条件にして計算できます。しかし、下線、太字、色などの「書式情報」は通常の関数では条件として扱えません。

例えば、C6:H67の範囲に入力された金額の中で、下線が付いているものだけを合計したい場合、セルの中身が同じ数値であればExcelの標準関数は下線の有無を判断できません。

このような場合は、VBAでセルの書式を確認する処理を作成すると、自動計算できるようになります。

VBAで下線付きセルを合計するユーザー定義関数を作成する

まず、ExcelのVBA画面を開きます。「開発」タブから「Visual Basic」を選択するか、Altキー＋F11キーを押してVBAエディターを起動します。

次に「挿入」から「標準モジュール」を選び、以下のコードを入力します。

Function UnderlineSum(rng As Range) As Double
    Dim cell As Range
    Dim total As Double
    total = 0
    For Each cell In rng
        If cell.Font.Underline <> xlUnderlineStyleNone Then
            If IsNumeric(cell.Value) Then
                total = total + cell.Value
            End If
        End If
    Next cell
    UnderlineSum = total
End Function

この関数は、指定した範囲内を確認し、下線が設定されているセルの数値だけを合計します。