エクセルマクロで、太字のみ合計するVBAコードをご紹介します。
このページのマクロコードは、コピペで使えます。
太字のみ合計する
以下のExcelVBAを実行すると、太字のみ合計します。
Sub 太字になっている数値の合計を集計()
Dim MyRange As Range
Dim Total As Long
Total = 0
'検索範囲
For Each MyRange In Range("B1:B20")
'セルが太字かつ数値だったら
If MyRange.Font.Bold = True And IsNumeric(MyRange) Then
'太字の数字を加算
Total = Total + MyRange
End If
Next
'太文字の合計を表示
MsgBox "【太文字の合計】 " & Total
End Sub
マクロ実行後
太字のセルだけの合計を算出します。
[MyRange.Font.Bold = True] は、セルが太文字かどうかチェックします。
[IsNumeric(MyRange)] は、セルに入力されている値が数値かどうかチェックします。
動画の解説もぜひご覧ください!
この記事がお役に立ちますと幸いです。

【エクセルマクロ】下線のみ合計する:成果を出す時短術
...
「たった1秒で仕事が片づくExcel自動化の教科書【増強完全版】」
「5時間かかる作業が3時間でできます」ではなく「1秒で終わらせます」へ
毎日の業務を瞬時に終わらせるしくみを解説
リンク