セルの文字の一部のフォントや文字を操作する方法

Contents
• 今回の目標
• Characters プロパティについて
  • Characters プロパティについて
  • Characters プロパティの構文
• セル内の一部の文字フォントを設定する
• セル内の一部の文字を取得する
• セル内に文字を挿入する
• セル内の文字の一部を削除する
• セル内の文字数をカウントする
• 関連リンク

この記事では、セルの特定の文字範囲の操作をする方法を解説します。 例えば、セルA1の「12345」の「23」のフォントを変えたり、文字自体を削除します。

目標リスト

• セル内の特定位置の文字のフォントを設定する。
• セル内の特定位置の文字を削除する。
• セル内の特定位置に文字を挿入する。

セル内に文字を挿入する

セル内に文字を挿入するには、Charactersプロパティに続けて、Insert メソッドを使用します。
Charactersの第1引数には「挿入を開始する位置」、第2引数に「第1引数の位置から削除する文字数（0なら削除なし）」を指定します。 たとえば .Characters(6, 0).Insert "★" と書くと、6文字目の直後に★を挿入します。
サポートが終了したバージョンのExcelなど、環境によっては動作しない場合があります。

Sub CharactersSample3()
    With Range("A1")
        .Value = "ExcelVBA"
        .Characters(3, 0).Insert "★"
        Debug.Print .Value
    End With

    With Range("A2")
        .Value = "ExcelVBA"
        .Characters(3, 2).Insert "★"
        Debug.Print .Value
    End With
End Sub

セル内の文字の一部を削除する

セル内の文字の一部を削除するには、Charactersプロパティに続けて、Delete メソッドを使用します。
Charactersの第1引数に「削除を開始する位置」、第2引数に「削除する文字数」を指定します。
たとえば .Characters(2, 3).Delete と書くと、2文字目から3文字分が削除されます。
サポートが終了したバージョンのExcelなど、環境によっては動作しない場合があります。

Sub CharactersSample4()
    With Range("A1")
        .Value = "ExcelVBA"
        .Characters(1, 2).Delete
        Debug.Print .Value
    End With

    With Range("A2")
        .Value = "ExcelVBA"
        .Characters(2, 3).Delete
        Debug.Print .Value
    End With
End Sub

セル内の文字数をカウントする

Charactersプロパティに続けて、Count プロパティを使用します。
引数の指定は不要です。

Sub CharactersSample5()
    With Range("A1")
        .Value = "ExcelVBA"
        Debug.Print "A1の文字列→" & .Value
        Debug.Print "A1の文字数→" & .Characters.Count
    End With
    
    With Range("A2")
        .Value = "地道に学ぶExcelVBA"
        Debug.Print "A2の文字列→" & .Value
        Debug.Print "A2の文字数→" & .Characters.Count
    End With
End Sub

Sub CharactersSample5_BAD()
    With Range("A1")
        .Value = "ExcelVBA"
        Debug.Print "A1の文字列→" & .Value
        'Characters(0, 2).Text は、"Ex" の 2文字
        Debug.Print "Characters(0, 2).Count→" & _
                        .Characters(0, 2).Count
        'Characters(3, 1).Text は、"c" の 1文字
        Debug.Print "Characters(3, 1).Count→" & _
                        .Characters(3, 1).Count
        'Characters(3, 4).Text は、"cel " の 4文字
        Debug.Print "Characters(3, 4).Count→" & _
                        .Characters(3, 4).Count
    End With
End Sub

• 文字のフォントサイズを変更する方法

• 文字のフォントを変更する方法

• 文字列を太字に変更・太字を解除する方法

• 文字列を斜体に変更・解除する方法

• 文字列に下線を設定・解除する方法

• 文字列の取り消し線を設定・解除する方法

• 文字列に色を設定・解除する方法

• 文字列に上付き文字を設定・解除する方法

• 【セルの操作】Rangeについて