【エクセルマクロ】数字のみ色をつける：馬鹿みたいに高速化

エクセルマクロで、数字のみ色をつけるVBAコードをご紹介します。

このページのマクロコードは、コピペで使えます。
せひ、お試しください。

数字のみ色をつける

以下のExcelVBAを実行すると、数値の色を一括で変更します。

Sub 数字に色を付ける()

Dim myStr As String
Dim MasterChar   As String
Dim IntRow As Long
Dim IntColumn As Long
Dim UsedRow As Long
Dim UsedClm As Long
Dim i As Long
    
    Range("A1").Select

    'データ入力エリアを取得
    With ActiveSheet.UsedRange
        UsedRow = .Rows(.Rows.Count).Row
        UsedClm = .Columns(.Columns.Count).Column
    End With

    '列ループ
    For IntRow = 1 To UsedClm

        '行ループ
        For IntColumn = 1 To UsedRow

            '対象セルの文字列
            MasterChar = Cells(IntColumn, IntRow).Text

            '一文字ずつループ
            For i = 1 To Len(MasterChar)

              With Cells(IntColumn, IntRow)
                  myStr = .Characters(Start:=i, Length:=1).Text
                
                  If myStr Like "[0-9]" Then
                       .Characters(Start:=i, Length:=1).Font.ColorIndex = 3
                  End If
              End With

            Next i
         Next IntColumn
     Next IntRow
         
End Sub