[已解决]求教大师，动态数据下的sumxmy2的使用方法

zeqas

求教大师，动态数据下的sumxmy2的使用方法

Sub a()
Dim k As Integer
k = Worksheets("sheet1").Range("a36656").End(xlUp).Row
Range("d" & h + 1 & "") = Application.WorksheetFunction.SumXMY2(Range("b1:b" & h & ""), Range("c1:c" & h & ""))
End Sub

最佳答案

月排行榜 / 总排行榜

extyg

2012-9-13 20:39

是这个意思?
Sub a()
    Dim k As Integer
    k = Worksheets("sheet1").Range("b36656").End(xlUp).Row
    Range("d" & k + 1) = Application.WorksheetFunction.SumXMY2(Range("b1:b" & k), Range("c1:c" & k))
End Sub

跳转到最佳答案楼层

zeqas

刚才程序的源文件，我是新人，请高手多多指教

ysh01

没有看懂1111111111111

extyg

是这个意思?
Sub a()
    Dim k As Integer
    k = Worksheets("sheet1").Range("b36656").End(xlUp).Row
    Range("d" & k + 1) = Application.WorksheetFunction.SumXMY2(Range("b1:b" & k), Range("c1:c" & k))
End Sub

zeqas

恩 恩 就是这个 呵呵 灰常感谢