複製行內容和格式（到另一個表）

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

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") 

Answer 2

看起來你嘗試，因爲你使用的「細胞」內的「範圍」

範圍（細胞從「Front_Pages」到「VG」複製單元格...）。

如果是這樣，你可以簡單地改變單元格格式爲excel一般範圍;試試這個代碼：

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