復制行內容和格式（到另一個工作表）

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

看起來你試圖將單元格從“Front_Pages”復制到“vg”，因為你在“范圍”內使用“單元格”

范圍（細胞......）。

如果是這樣，您可以簡單地將單元格格式更改為excel一般范圍; 試試這段代碼：

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

Answer 2

Cells是指活性片的細胞。 因此，您會收到錯誤：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") 替換 ，否則也會導致錯誤。

要復制整行，請使用：

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