EXCEL VBA 文中の書式ごと複写するには

質問

EXCEL VBAのプログラミングについて教えてください。

セルA1とセルB1が結合されており、セルには「あいうえお」と入力されています。
入力された「あいうえお」の内、「いうえ」は赤文字＋太字を設定したと仮定します。

その結合されたセルの文章と文字色＋太字を、結合されていないA3というセルに複写する場合、
下記の様なコードを考えてみましたが、長文になると処理が遅いので知恵を貸してください。

Range("A3").Value = Range("A1").Text
For i = 1 To Len(Range("A1").Text)
　　Range("A3").Characters(i, 1).Font.Color = Range("A1").Characters(i, 1).Font.Color
　　Range("A3").Characters(i, 1).Font.Bold = Range("A1").Characters(i, 1).Font.Bold
Next i

よろしくお願いします。

回答No.1

tom11 · ベストアンサー

こんにちは、

Range("a1").Copy
Range("a3").PasteSpecial xlPasteAll

で、どうでしょう。

お礼

参考にさせて頂きました。
ありがとうございました。

回答No.3

hotosys

結合されたセルの値やその属性は一番左上のセルの値として保存されていたと思います。
なので
Range("A1").Copy Range("A3")
でいいのでは？

回答No.2

n-jun

・Ｂ３に値がなければ、一旦コピペしてから結合を解除する。
・Ｂ３に値があれば、一旦変数に取り込んでコピペし、結合を解除してからＢ３に代入する。
とかかな？？？