2016-11-17 59 views
0

我試圖做一個SumIf數據在Sheet6(債務)和Sumif需要被添加到Sheet5(總結 - 債務> 12個月)的地方。SumIf跨兩張

我已經聚集唯一的客戶編號和粘貼他們到山口B7:乙###

的客戶數量在色柱B的債務舉行,並SUMIF列是DebtH:H

要在公式編輯欄中爲此,我會寫:= SUMIF(債務!B:B,B7,債務H:1 H)

這是我到目前爲止有:

Dim lr As Long 
    Dim lra As Long 
lr = Sheets("Summary - Debt > 12 Months").Cells(Rows.Count, "B").End(xlUp).Row 
lra = Sheets("debt").Cells(Rows.Count, "B").End(xlUp).Row 
    Sheets("Summary - Debt > 12 Months").Range("H7:h" & lr).Formula = "=SUMif(sheet6!b2:b" & lra,(sheet5!b7:b" & lr),(Sheet6!h2:h" & lra))" 

回答

0

下面是答案:

Dim lr As Long 
     Dim lra As Long 

lr = Sheets("Summary - Debt > 12 Months").Cells(Rows.Count, "B").End(xlUp).Row 
    lra = Sheets("debt").Cells(Rows.Count, "B").End(xlUp).Row 

Sheets("Summary - Debt > 12 Months").Range("H7:h" & lr).Formula = "=SUMif(Debt!$b$2:$b$" & lra & ",b7,(Debt!$h$2:$h$" & lra & "))" 
0

嘗試分配你的最後行爲tring變量(比如sTest)和使用即時窗口Ctrl + G並鍵入?sTest

你試圖通過的將不會是你的想法。

您需要更多&的和起始引號。

Sheets("Summary - Debt > 12 Months").Range("H7:h" & lr).Formula = "=SUMif(sheet6!b2:b" & lra & ",(sheet5!b7:b" & lr & "),(Sheet6!h2:h" & lra & "))" 
+0

嗨,仍然沒有工作。結果是= SUMIF(Sheet6!B2:B8670,(B7),(Sheet6!H2:H8670))。該工作簿沒有名爲Sheet6的工作表,而是Debt ... –

+0

然後,這就是您的問題的一部分...您的代碼表sheet6 – Rdster

+0

@Rdster PO使用Sheet6作爲工作簿中的工作表索引。他實際上是指名爲'Debt'的工作表(再次閱讀他的文章)。只需在你的答案中將'sheet'修改爲'Debt',它就可以工作。並且'Sheet5'到'Summary - Debt> 12 Months' –