复制行内容和格式（到另一个表）

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