求和单元格将最终值粘贴到其他工作表中

Question

Sub Copy8()
'H0544
Worksheets("PCR AND HPC").Sum(.Range("D3:D5")).Copy
Worksheets("CARE").Range("c25").PasteSpecial Paste:=xlValues
End Sub

我正在尝试对一张纸上的 3 个单元格求和，然后将该值粘贴到另一张纸中

Answer 1

Sum 是 WorksheetFunctions 的一部分：

Application.WorksheetFunction.Sum(Worksheets("PCR AND HPC").Range("D3:D5"))

您无法复制内存值，只需将其分配给输出单元格：

Worksheets("CARE").Range("c25").Value = Application.WorksheetFunction.Sum(Worksheets("PCR AND HPC").Range("D3:D5"))