复制行内容和格式（到另一个工作表）-Copyarowscontentsandformatting(toanothersheet)

1  

Looks like you try to copy cells from "Front_Pages" to "vg" since you use "cells" inside "range"

看起来你试图将单元格从“Front_Pages”复制到“vg”，因为你在“范围”中使用“单元格”

Range (cells ...).

范围（单元格......）。

If so, you can simply change the cell format as excel general range; try this code :

如果是这样，您只需将单元格格式更改为excel一般范围;试试这段代码：

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

0  

Cells refers to cells of active sheet. Thus you get the error: vg is not the active sheet. Specifying cells of another sheet as parameters to Range object always leads to an error. This will work:

细胞是指活性片的细胞。因此，您会收到错误：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))

However, it can be optimized to just:

但是，它可以优化为：

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

Also, notice that Worksheet("vg") doesn't work, it should be replaced with Worksheets("vg") else it will cause error too.

另外，请注意Worksheet（“vg”）不起作用，应该用Worksheets（“vg”）替换，否则它也会导致错误。

To copy entire row, use:

要复制整行，请使用：

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