COUNTIFの条件

Question

Anonymous

黒い文字の表中にある赤い文字の数を数えるにはどう入力すれば効果的でしょうか？ご教授お願いします。

ロックされた質問。この質問は、Microsoft サポートコミュニティから移行されました。役に立つかどうかに投票することはできますが、コメントの追加、質問への返信やフォローはできません。

0 件のコメント

1 件の回答

Answer 1

書式を数える関数はないのでマクロにしました。

Sub 赤色文字の個数()

'調べる範囲を選択してから実行

Dim ko As Long

Dim seru As Range

For Each seru In Selection

If seru.Font.Color = vbRed Then

ko = ko + 1

End If

End Sub