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

質問

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

１つのセル内に、

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

などと、いくつかのセル内改行を含み、文字数がばらばらのデータが入っています。
その１行目（上記の例で言うと、「あいうえお１か」）のみ、フォント赤色の書式設定を、マクロで行いたいのですが、できますでしょうか？

ご回答よろしくお願いいたします。

回答No.1

WDY · ベストアンサー

Sub Macro1()
Range("A1").Select

With ActiveCell.Characters(Start:=1, Length:=InStr(Range("A1").Value, Chr(10)) - 1).Font
.Name = "ＭＳ Ｐゴシック"
.FontStyle = "標準"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 3
End With
End Sub

お礼

早速のご回答ありがとうございます。
やってみたのですが、全部赤になってしまいます。
追記になってしまいましたが、元のデータは、別のシートでADDRESS関数で参照しているデータを、値貼り付けしたデータです。そのためにChr(10)が認識されていないのでしょうか。

補足

できました！
申し訳ございません。
私の勘違いでした。
ありがとうございました！