首页 文章

使用excel VBA将数据从一个工作表复制并粘贴到另一个工作表，从第二个工作表复制粘贴到第三个工作表

提问于
浏览 次
0

我有要求，我需要将范围的单元格部分中的值（非公式）复制到另一个工作表中的相应单元格，然后从第二个工作表复制到第三个工作表中的相应单元格 .

从前两秒复制数据我使用下面的代码，

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有不同的 Value .

excel vba excel-vba excel-formula

1 回答

  • 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
    回复于

相关问题