Excel でセル範囲内の太字の数値を合計またはカウントするには?
ワークシートに太字の数値を含むデータ範囲があり、その太字のセルだけを合計またはカウントしたい場合、手動で計算することもできますが、非常に時間がかかります。Excel で太字のセルを素早く簡単に合計したりカウントしたりするには、どうすればよいでしょうか?
ユーザー定義関数(VBA および数式)で範囲内の太字の数値をカウントする
ユーザー定義関数(VBA および数式)で範囲内の太字の数値を合計する
Kutools for Excel で数回クリックして範囲内の太字をカウントおよび合計する
ユーザー定義関数で範囲内の太字の数値をカウントする
以下のユーザー定義関数を使えば、太字の個数を瞬時に取得できます。次の手順に従ってください。
1。ALT + F11キーを押すと、Microsoft Visual Basic for Applications ウィンドウが開きます。
2。挿入>モジュールをクリックし、表示されたモジュールウィンドウに次のコードを貼り付けてください。
VBA コード:セル範囲内の太字の数値をカウントする
Function CountBold(WorkRng As Range)
'Update 20220516
Dim Rng As Range
Dim xCount As Double
For Each Rng In WorkRng
If Rng.Font.Bold Then
xCount = xCount + 1
End If
Next
CountBold = xCount
End Function
3。 次に、このコードを保存し、空のセルに次の数式 =CountBold(A1:C9)を入力してください(下記スクリーンショット参照)。

4 次にEnterキーを押すと、範囲 A1:C9 内の太字がカウントされます。

注:A1:C9は、この関数で太字のセルをカウントしたい範囲です。必要に応じて変更してください。
ユーザー定義関数で範囲内の太字の数値を合計する
データ範囲内で太字の数値だけを合計したい場合は、ユーザー定義関数を作成すれば実現できます。
1。ALT + F11キーを押すと、Microsoft Visual Basic for Applications ウィンドウが開きます。
2。挿入>モジュールをクリックし、表示されたモジュールウィンドウに次のコードを貼り付けます。
VBA コード:セル範囲内の太字の数値を合計する
Function SumBold(WorkRng As Range)
'Update 20220516
Dim Rng As Range
Dim xSum As Double
For Each Rng In WorkRng
If Rng.Font.Bold Then
xSum = xSum + Rng.Value
End If
Next
SumBold = xSum
End Function
3。次に、このコードを保存し、空のセルに次の数式 =sumbold(A1:C9)を入力してください(下記スクリーンショット参照)。

4。そしてEnterキーを押すと、範囲 A1:C9 内のすべての太字の数値が合計されます(下記スクリーンショット参照)。

注:A1:C9は、この関数で太字のセルを合計する範囲を示しており、必要に応じて変更できます。
Kutools for Excel で数回クリックして範囲内の太字をカウントおよび合計する
複雑な VBA コードの操作や数式を覚える必要なく、数回クリックするだけで範囲内のすべての太字を簡単にカウントまたは合計できます。
1。太字をカウントするには、まず結果を表示する空のセルを選択し、次にKutools>拡張機能>統計・数学>COUNTBYFONTBOLDをクリックします。
太字を合計するには、Kutools > 拡張機能 > 統計・数学 > SUMBYFONTBOLD をクリックしてください(下記スクリーンショット参照)。

2。関数の引数ダイアログボックスで、太字を含みカウントまたは合計したいセル範囲を Reference ボックスに指定し、OKボタンをクリックします。

選択したセルには、指定範囲内にあるすべての太字セルのカウントまたは合計結果が表示されます(下記スクリーンショット参照)。

Kutools for Excel— 300 以上の必須ツールでExcel を強化し、作業をより迅速・簡単に。AI 機能を活用して、スマートなデータ処理と生産性の飛躍的な向上を実現します。今すぐ入手
デモ:Kutools for Excel で範囲内の太字をカウントおよび合計する
関連記事:
Excel で太字のセルやテキストを特定して選択するにはどうすればよいですか?
最高の Office 業務効率化ツール
| 🤖 | KUTOOLS AI アシスタント:次に基づいてデータ分析を革新します:インテリジェント実行 | コード生成| カスタム数式作成 | データ分析とチャート生成| 拡張機能呼び出し… |
| 人気の機能:検索・ハイライト、または重複をマーキング | 空白行を削除する | データを失うことなく列の結合またはセルを | 数式を使用しない四捨五入... | |
| スーパー LOOKUP:複数条件 VLookup | 複数値 VLookup | 複数シート間 VLookup | ファジーマッチ.... | |
| 高度なドロップダウンリスト:ドロップダウンリストをすばやく作成 | 連動型ドロップダウンリスト | 複数選択可能なドロップダウンリスト.... | |
| 列マネージャー:指定した数の列を追加|列の移動|非表示列の表示状態を切り替え|範囲および列の比較... | |
| 注目の機能:グリッドフォーカス | デザインビュー |強化された数式バー | ワークブックとシートマネージャー | リソースライブラリ(オートテキスト)| 日付ピッカー | ワークシートの統合 | 暗号化/セルの復号化 | リストからメール送信 | スーパーフィルター | 特殊フィルタ(太字のフォントを持つセルをフィルタリング/斜体/取り消し線。。。) 。。。 | |
| トップ15 ツールセット:12 テキストツール(テキストの追加、特定の文字を削除、...)| 50+チャートタイプ(ガントチャート、...)| 40+実用的関数(誕生日に基づいて年齢を計算します、...)| 19 挿入ツール(QR コードを挿入、パスから画像を挿入、...)| 12 変換ツール(単語に変換する、為替レートの変換、...)| 7 結合と分割ツール(高度な行のマージ、セルの分割、...)|さらに多数 |
Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。
Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします
- Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
- 複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
- 日々の生産性を50%も向上させ、毎日数百回ものマウスクリックを削減します!
すべてのKutools アドインが、たった1 つのインストーラーで完結。
Kutools for Officeスイートには、Excel ・Word ・Outlook ・PowerPoint 用のアドインと Office Tab Pro が含まれており、複数の Office アプリを横断して作業するチームに最適です。
- オールインワンスイート— Excel、Word、Outlook、PowerPoint 用アドイン+Office Tab Pro
- インストーラー1 つ、ライセンス1 つ— 数分でセットアップ可能(MSI 対応)
- 連携してさらにパワーアップ— Office アプリ全体で生産性が向上
- 30 日間のフル機能トライアル— 登録不要、クレジットカード不要
- 最高のお得感— 個別アドイン購入よりお得