excel - Sumif 関数と VBA のブックへの値のコピー

Question

Sumif から値を取得する手順がありますが、値をコピーして別のワークブックに貼り付けることができません。どんな助けでも大歓迎です。これが私のWIPです：

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 は、SumIf から期待されるデータに応じて、Double または Long として定義する必要があります。

次に、その値を次のように割り当てることができます

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

または、1行で実行できます

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

適切なシートで合計を開始していると仮定します。そうでない場合は、sumif の範囲を変更して、次のような完全な参照を含めます。"[Book1]Sheet2!C7:C300"