使用excel VBA將數據從一張紙復制並粘貼到另一張紙，然后從第二張紙復制到第三張紙

Question

我有一個要求，在這里，我需要將范圍的一部分工作表單元格中的值（而不是公式）復制到另一工作表中的相應單元格，然后從第二工作表復制到第三工作表中的相應單元格。

為了從前兩秒復制數據，我正在使用以下代碼，

Sub Test()

    Dim rng         As Range
    Dim c           As Range
    Dim dest        As Worksheet


    Set rng = Range("C3:E3")
    Set dest = ThisWorkbook.Worksheets("Sheet2")

        For Each c In rng

        c.Copy dest.Cells(c.Row, c.Column)

    Next c

End Sub

現在，我想從sheet2復制到sheet3 。 我特別需要工作表sheet2 ，因為我的第一張工作表可能具有與sheet2不同的值。

Answer 1

如果需要Sheet1包含公式，但是需要Sheet2和Sheet3僅包含值，請將代碼修改為以下內容：

Sub Test()

Dim rng         As Range
Dim c           As Range
Dim dest        As Worksheet
Dim dest2       As Worksheet


Set rng = Range("C3:E3")
Set dest = ThisWorkbook.Worksheets("Sheet2")
Set dest2 = ThisWorkbook.Worksheets("Sheet3")

For Each c In rng
    c.Copy
    dest.Cells(c.Row, c.Column).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    dest2.Cells(c.Row, c.Column).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Next c

Application.CutCopyMode = False

End Sub