|
想要達(dá)到excel中sumifs的公式效果，代碼如下，但是系統(tǒng)顯示類型不匹配，還請幫忙看下錯在哪里，謝謝！ sheet1中的B列為求和范圍，A列為條件范圍； sheet2中的A列為條件判斷范圍。 Sub summary() Dim i As Integer 'sheet2中需要輸入公式的最大行數(shù) Dim b As Integer 'sheet1中判定區(qū)域的最大行數(shù) Dim ar1 As Range 'sheet1中的求和區(qū)域 Dim ar2 As Range 'sheet1中的條件區(qū)域 Dim ar3 As Range 'sheet2中的判定區(qū)域 b = Sheets(1).Range("A3").End(xlDown).Row i = Range("A3").End(xlDown).Row Set ar1 = Sheets(1).Range("B3:B" & b) Set ar2 = Sheets(1).Range("A3:A" & b) Set ar3 = Sheets(2).Range("A4:A" & i) Sheets(2).Range("B4:B" & i) = WorksheetFunction.SumIfs(ar1, ar2, ar3) End Sub |
|
|
