エクセル 別シートへのコピーを，セルの色や太字斜体までやりたい。

質問

Ｔ関数を使って，シート１からシート２へ同じ文字をコピーしています。
その時に，そのセルの色や，太字，斜体などは，コピーすることができませんよね。なんとか，そのセルの色や太字，斜体などもコピーしたいのですが，そんなことは可能でしょうか。お教えください。

回答No.3

misatoanna · ベストアンサー

残念ながら、一般関数ではセルの属性そのものを取り入れることはできません。
#1さんのおっしゃるように、いわゆるコピペしか方法はありません。

どうしてもということでしたら、ＶＢＡの世界です。
Sheet1 の A1 を Sheet2 の B3 にコピーする場合、マクロ自動記録機能を使えば、
次のようなマクロが取得できます。
Sub Macro1()
Sheets("Sheet1").Select
Range("A1").Select
Selection.Copy
Sheets("Sheet2").Select
Range("B3").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub

これを応用して――
Sub Macro1()
Sheets("Sheet1").Select
ActiveCell.Copy
Sheets("Sheet2").Select
ActiveCell.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub

とすれば――
Sheet1 のコピー元セルをクリックしてから Sheet2 のコピー先のセルをクリックし、このマクロを実行することによって、コピー元のすべての情報がコピー先セルに引き継がれます。
Sheet2 にマクロボタンを作成し、このマクロを登録しておけば処理も簡単ですね。

お礼

ありがとうございます。
やはり，マクロの世界となってしまいますね。
関数がないかなあと思っていたのでした。
これでやってみます。
ありがとうございました。

回答No.4

kazuhiko5681

初めまして。
簡単に実行することが出来るマクロを組んでみました。シート１の内容を同じブックのシート２にコピー＆ペーストできるように組んであります。

・データの入っているブックを立ち上げ、ＡＬＴ＋Ｆ１１キーを押してＶＢＥ画面を開き、画面左上のVBAProjectと書かれている下のThisWorkbookと書かれている上でダブルクリックし、表示された右側の白い部分に下記のコードをコピー＆ペーストする。

Sub Test
Worksheets(1).Cells.copy Destination:=Worksheets(2).Cells
End Sub

メニューバーからツール→マクロ→マクロと順にクリックし、出てきたダイアログボックスの広い白いボックスの中に書かれているThisWOrkbook.Testと書かれている文字の上でクリックして上の狭いボックスの中に同じ文字が入力されているのを確認後、実行ボタンを押す。

これで、マクロが走り、動作を確認することが出来ます。

不具合・ご不明な点等がございましたら、お気軽にお知らせ下さい。

お礼

ありがとうございます。
すべてではなくて特定のセルだけ，移したかったのです。
説明が不十分で申し訳ありません。

回答No.2

imogasi

エクセルの関数は、値（Value)だけを加工するもので、
「セルの色や，太字，斜体など」を対象とした関数は
今ありません（２００２まで）。値と言ってもColorindex
値やRGB値は対象外です。
したがって複数個のセルを対象にする限り＃１の回答方法も使えず、VBAで組むか、操作でコピー－形式を選択して貼り付け－すべて、しかないと思います。

お礼

ありがとうございます。
やはり，関数はないのですね。残念。
マクロでやってみます。

回答No.1

epson01

「すべて選択」をして、別シートで「貼り付け」を行います。それですべての属性が移行されます。
すべて選択とは
「列A」の左にある（行１の上）四角い枠をクリックすることです。