Excel VBA で 一括書式設定（セル内の一部のみ）

質問

こんにちは。教えてください。

１つのセル内に、

あいうえお１か
き! くけこ２
さしすせそ3たち。
つてと45.67?

というように、いくつかのセル内改行を含み、文字数がばらばらのデータが入っています。そういうセルが、一行にいくつも並んでいます（途中に空白もあります）。
それらの１行目（上記の例で言うと、「あいうえお１か」）のみ、フォント赤色の書式設定を、マクロで行いたいのです。

そこで、以下のマクロを実行すると、選択セルがひとつだけのときは問題ないのですが、複数のセルを選択すると実行時エラー（型が一致しません）が出てしまいます。

Sub 一行目赤()

With Selection.Characters(Start:=1, Length:=InStr(Selection.Value, Chr(10)) - 1).Font
.ColorIndex = 3

End With

End Sub

選択セルのすべてに対し、一括で書式設定できるようにするにはどうしたらよいでしょうか？ご回答よろしくお願いいたします。

回答No.1

hana-hana3 · ベストアンサー

単一セル対象のコードなので複数セルを選択するとエラーになるのです。
複数セルに対応したコードに書き換える必要があります。

Sub 一行目赤()
For Each c In Selection
With c.Characters(Start:=1, Length:=InStr(Selection.Value, Chr(10)) - 1).Font
.ColorIndex = 3
End With
Next
End Sub

お礼

できました！
InStr(Selection.Value, Chr(10)) - 1)の"Selection"を"c"に修正したらできました。
ありがとうございました。（"c"はいまだに謎です…）

Sub 一行目赤()
For Each c In Selection
With c.Characters(Start:=1, Length:=InStr(c.Value, Chr(10)) - 1).Font
.ColorIndex = 3
End With
Next
End Sub

補足

早速のご回答ありがとうございます。
実行してみたのですが、ここ↓で実行時エラー（型が一致しません）エラーが出てしまいました。
With c.Characters(Start:=1, Length:=InStr(Selection.Value, Chr(10)) - 1).Font
無知で申し訳ないのですが、二行目（For Each c In Selection）の、"c"という文字は定義しなくてもいいのでしょうか？