行の内容と書式を別のシートにコピー

Question

行の内容全体と書式を別のシートにコピーする必要があります。私は新しいセルの内容に古いセルの内容を設定するので、それだけで内容をコピーしていない書式設定を行うことで解決しなければならなかった瞬間

。私がしようとしている、（これは同じシート内のセルのために正常に動作します）しかし

Range(Cells(45, 2), Cells(45, 3)).Copy Range(Cells(50, 2), Cells(50, 3)) 

：私は、次のしている現時点で

（私の細胞が異なる間で実施する必要のある色を持っています）あるシートから別のシートへ（シート 'Front_Page'から 'vg'にコピー）。私は以下を使ってみましたが、明らかにうまくいきませんでしたが、誰かが私に間違っていることを教えてもらえますか？

Range.Worksheet("Front_Page").Range(Cells(45, 2), Cells(45, 3)).Copy Worksheet("vg").Range(Cells(50, 2), Cells(50, 3)) 

Answer 1

は、活性シートの細胞を指す。したがって、エラーが発生します：vgはアクティブなシートではありません。別のシートのセルをRangeのパラメータとして指定すると、常にエラーが発生します。これは動作します：

Worksheets("Front_Page").Range(Worksheets("Front_Page").Cells(45, 2), Worksheets("Front_Page").Cells(45, 3)).Copy Worksheets("vg").Range(Worksheets("vg").Cells(50, 2), Worksheets("vg").Cells(50, 3)) 

しかし、それだけに最適化することができます。

Worksheets("Front_Page").Range("B45:C45").Copy Worksheets("vg").Range("B50:C50") 

また、Worksheet("vg")が動作しない旨の通知は、それは、それが原因となり、他のWorksheets("vg")とを交換する必要がありますエラーもあります。行全体、使用コピーする

：あなたは「セル」内の「範囲」

範囲（セルを使用するので、「VG」と「Front_Pages」からセルをコピーしようとするよう

Worksheets("Front_Page").Rows("45:45").Copy Worksheets("vg").Rows("50:50") 

Answer 2

が見えます...）。

もしそうなら、あなたは単にエクセルの一般的な範囲として、セルの書式を変更することができます。このコードを試してください：

Sheets("vg").Range("B5") = Sheets("Front_Pages").Range("B4") 
Sheets("vg").Range("C5") = Sheets("Front_Pages").Range("C4")