Excelでコピーをとったセルの色を変えたい

#3のものです。 質問文から「コピー元」に着色したい、と判断したのですが、 「コピー先」を着色したいのなら、#3の回答は無視して下さい。 コピー元を着色というのであれば、下記のマクロでできると思いますが。 #3の回答で言葉が足りませんでした。 通常のコピーの変わりに「CPcolr」マクロ、 貼付の変わりに「PTcolr」マクロを使用して下さい。

マクロでもいいとのことなので。 実はもっと短くなるのかもしれませんが。 Dim Lcel As Integer Dim Rcel As Integer Dim Tcel As Integer Dim Bcel As Integer Sub CPcolr() Lcel = Selection.Column '選択された範囲の左端 Tcel = Selection.Row '　　　〃　　　　上端 Rcel = Lcel + Selection.Columns.Count - 1 '　　　〃　　　　右端 Bcel = Tcel + Selection.Rows.Count - 1 '　　　〃　　　　下端 Selection.Copy End Sub Sub PTcolr() Dim L2 As Integer Dim T2 As Integer L2 = Selection.Column '選択された範囲の左端 T2 = Selection.Row '　　　〃　　　　上端 Selection.PasteSpecial Paste:=1 Application.CutCopyMode = False Range(Cells(Tcel, Lcel), Cells(Bcel, Rcel)).Select With Selection.Interior .ColorIndex = 6 .Pattern = xlSolid Cells(T2, L2).Select End With End Subこんな感じで、それぞれ「CPcolr」と「PTcolr」をボタンもしくはショートカットに割り付けて下さい。 貼り付けのオプション指定は現在「全て」になっていますが、 値のみ等、形式を選択して貼り付けに対応できます。 現在の色設定は黄色になっています。

　コピー＆貼り付けではなく、切り取り＆貼り付けならどうでしょうか。 (1)元シートを保存するため、シート全体のコピーをとる。 　→ctrを押しながらシートタブをドラッグ (2)数値の入ったセル全体に色を付ける。 　→塗りつぶし (3)移したいセルを切り取り＆貼り付けする。 　→セルを選んでcrt＋X　→貼り付けたい場所でctr＋V 　これで、切り取った跡は色がなくなります。

　こんにちは。 　ツールバーに「塗りつぶし」（ペンキをこぼすマーク）のアイコンがあると思いますので，色を付けたいセルでそのアイコンを右クリックしてください。 （コピーと同時に色を変えるということでしたら，すいません，私には分かりませんので次の方にお答えを譲ります…）