VBAで別のブックにシートをコピーするとセルの色が変わってしまう

VBAで他のブックにシートを移動（コピー）すると、色が一部分変わってしまいますがなぜでしょうか？コピーした後にセルの一部範囲の値を消すコードを書いたのですが、この列範囲見出しの色だけが
青からグレーに変わっていました。

Dim コピーするシート As Worksheet
set コピーするシート = ThisWorkbook.Worksheets("シート名")

Dim コピー先ブック As Workbook
Set コピー先ブック = Workbooks("ブック名")

コピーするシート.Copy befor:=コピー先ブック.Worksheet(1)

Worksheets("コピー先ブックのシート名").range("C23:AD26").ClearContens

＿＿＿＿

どうぞよろしくお願いいたします。

No.2 ベストアンサー 回答者： 銀鱗 回答日時： 2022/03/09 15:36

セルの中身だけ複製してますね。

書式も一緒に複製するようにしてみましょう。

Range.PasteSpecialやCells.PasteSpecialメソッドを使うと良いでしょう。

この回答へのお礼

なるほど、やってみます。どうもありがとうございます。

お礼日時：2022/03/09 16:11

No.1 回答者： fujillin 回答日時： 2022/03/09 15:33

こんにちは

＞がなぜでしょうか？
現象だけなのでなんともわかりませんけれど・・
　・カラーインデックスで色が付けられていて、ブック間でカラーパレットが異なる
　・別シートを参照するような「条件付き書式」が設定されている
あたりが怪しいかな？

※ どのようにして色が着いているのかを調べれば、原因がわかるのではないでしょうか？
※ 手操作で行った場合も同様になるのでしょうか？
　（多分なるのでしょうけれど・・）

この回答へのお礼

ありがとうございます。

お礼日時：2022/03/09 16:10