Sumif函數和複製值到VBA工作簿

我有一個過程來從Sumif中獲取值，但我無法將該值複製並粘貼到另一個工作簿。任何幫助將不勝感激。這裏是我的WIP：Sumif函數和複製值到VBA工作簿

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

來源

2013-03-06 herrtodd33

確切的問題是什麼？錯誤？沒有價值？值不正確？ – psubsee2003 2013-03-06 19:01:43

NEO應該被定義爲一個雙人間或一個長期的，這取決於你從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"))

假設你在適當的紙張開始的總和。如果沒有，請在sumif中更改您的範圍以包含完整的參考，例如"[Book1]Sheet2!C7:C300"

來源

2013-03-06 19:09:37 SeanC

工作完美。非常感謝！！ – herrtodd33 2013-03-06 19:54:03

Sumif函數和複製值到VBA工作簿

回答

相關問題