excel - Sumif函数并将值复制到VBA中的工作簿

Question

我有一个从 Sumif 获取值的过程，但我无法将值复制并粘贴到另一个工作簿。任何帮助将不胜感激。这是我的在制品：

Sub WLPTdata()

Dim NEO As Range

NEO = Application.SumIf(Range("C7:C3000"), "TM-NEO", Range("K7:K3000"))

Selection.Copy

Windows("HSD_PTdata.xlsx").Activate
 Sheets("pdata").Select
Range("B160").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

Answer 1

NEO 应定义为 Double 或 Long，具体取决于您期望 SumIf 提供的数据。

然后你可以用

workbooks("HSD_PTdata.xlsx").Sheets("pdata").range("B160")=NEO

或者，您可以在一行中完成

Range("[HSD_PTdata.xlsx]pdata!B160")=Application.SumIf(Range("C7:C3000"), "TM-NEO", Range("K7:K3000"))

假设您在相应的工作表上开始 Sum。如果没有，请更改 sumif 中的范围以包含完整的参考，例如"[Book1]Sheet2!C7:C300"