[已解决]请高手帮忙解决宏在执行时的问题

mengcao888

本人自编了一段自动汇总功能的宏，但是在执行是出现了一点问题，不知道怎样更改，因此请教各位高手，帮忙调试一下，先谢谢了。具体情况如附件中。

最佳答案

月排行榜 / 总排行榜

爱疯

2013-3-1 11:44

Sub Macro2()
    With Sheets("装箱单")
        .Range("H:H").ClearContents
        .Range("H2") = "实收"
        .Range("H3").FormulaR1C1 = "=SUMIF(Sheet1!R2C1:R13C2,VLOOKUP(装箱单!RC[-2],Sheet1!R2C1:R13C2,1,FALSE),Sheet1!R2C2:R13C2)"
        .Range("H3").AutoFill Destination:=.Range("H3:H" & .Cells(.Cells.Rows.Count, "a").End(xlUp).Row)
    End With
End Sub


加个清除

跳转到最佳答案楼层

mengcao888

咦，怎么没有人能解决！

爱疯

Sub Macro2()
    With Sheets("装箱单")
        .Range("H:H").ClearContents
        .Range("H2") = "实收"
        .Range("H3").FormulaR1C1 = "=SUMIF(Sheet1!R2C1:R13C2,VLOOKUP(装箱单!RC[-2],Sheet1!R2C1:R13C2,1,FALSE),Sheet1!R2C2:R13C2)"
        .Range("H3").AutoFill Destination:=.Range("H3:H" & .Cells(.Cells.Rows.Count, "a").End(xlUp).Row)
    End With
End Sub


加个清除

mengcao888

刚才测试了，很好用，谢谢