更新:
谢谢您的帮助!那绝对有效。
我想知道是否还有一种添加循环功能的方法。我想做的是参考工作表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属性。关于如何修复的任何想法?
答案 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