粘贴艺术品是指VBA

Question

假设我有两个Excel工作簿（实际上我有一个工作表结果，可能还有一个包含数据的其他工作簿）。我想创建一个宏，允许我采用选择的算术平均值并将其粘贴到我的活动单元格中。我编写了一个宏，允许我在不同的工作簿之间粘贴复制的值，非常简单：

Sub PasteVal()
    Selection.PasteSpecial xlPasteValues
End Sub

尝试进行算术平均复制不起作用，但是：

Sub PasteMean()
     ActiveCell.PasteSpecial (Application.WorksheetFunction.Average(Selection))
End Sub

任何帮助将不胜感激

感谢。

Answer 1

你尝试过吗？ activecell.value=Application.WorksheetFunction.Average(Selection)

Answer 2

随便偶然发现了这篇文章。考虑使用xlPasteSpecial方法 XlPasteSpecialOperation枚举。

xlPasteSpecialOperationAdd xlPasteSpecialOperationDivide xlPasteSpecialOperationMultiply xlPasteSpecialOperationNone xlPasteSpecialOperationSubtract

With Worksheets("Sheet1") 
.Range("C1:C5").Copy 
.Range("D1:D5").PasteSpecial _ 
Operation:=xlPasteSpecialOperationAdd 
End With