VBA Sumif和Sumifs

时间:2018-11-09 02:15:56

标签: excel vba excel-vba

enter image description here


更新:

谢谢您的帮助!那绝对有效。

我想知道是否还有一种添加循环功能的方法。我想做的是参考工作表888的A列,以标识999的A列中的相同值,并对表的最后一列中的值求和(请记住,最后一列可能有所不同,因此允许宏,使其更具动态性。)

Dim LastRow, LastColumn As Long 
LastRow = Cells(Rows.Count, "A").End(xlUp).Row 
LastColumn = Worksheets("888").Cells(1, 
Columns.Count).End(xlToLeft).Column 

For x= 1 To LastRow 
Cells(x, 2).Value = 
WorksheetFunction.SumIf(Worksheets("888").Range("A:LastRow"), 
Worksheets("999").Range("A:LastRow"), 
Worksheets("888").Range("LastColumn:LastColumn")) 

Next c 

我不断收到错误消息“无法获取工作表函数类的SumIf属性。关于如何修复的任何想法?

1 个答案:

答案 0 :(得分:0)

我不太明白为什么公式可以完成工作时为什么要使用宏

在C2中放置下面的内容并向下拖动公式即可完成工作

=SUMIF(Sheet2!F:F,A2,Sheet2!H:H)+SUMIF(Sheet3!J:J,A2,Sheet3!L:L)

但是如果您坚持使用宏,

Worksheets("Sheet1").Range("C2").Value = "=SUMIF(Sheet2!F:F,A2,Sheet2!H:H)+SUMIF(Sheet3!J:J,A2,Sheet3!L:L)"
Worksheets("Sheet1").Range("C2:C7").FillDown