Question

在这种情况下，我使用Range("a5")到SUM单元格a1：a3。 SUM完成后，我要运行VBA，然后将SUM中的sheet1结果粘贴到sheet2

如果直接在Range("a5")中键入数字，则一切正常。

我一直在与PasteSpecial合作，到目前为止，我还没有成功。

我本以为value或value2已经实现了这一目标，但到目前为止并非如此。我有一种感觉，我很想念这个东西。

Sub TransferSum()

    Dim Rng As Range

    Set Rng = Worksheets("Sheet1").Range("a5")

    Rng.Copy

    Worksheets("Sheet1").Paste Destination:=Worksheets("Sheet2").Range("a1")

    Application.CutCopyMode = False

End Sub

Answer 1

您的公式引用的是其位置上方的单元格，但A1上方没有单元格，因此出现错误。另外，您的语法已关闭。

如果您只想转移值...

Sub TransferSum()

    Dim Rng As Range

    Set Rng = Worksheets("Sheet1").Range("a5")

    Rng.Copy
    Worksheets("Sheet2").Range("a1").pastespecial xlvalues
    'OR IN ONE LINE
    Worksheets("Sheet2").Range("a1").value=rng.value 'or Value2

End Sub

如何将SUM值传输到另一页（获取错误= SUM（#REF！））

1 个答案: