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

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"))