Excel VBA
Excel不规则表格金额求和
2016-12-31 09:33:30

群里讨论的问题,在不规则的表格里,如何求金额总和。

产品A10-A12的金额=12*0.9+113*0.1+14*0.11. 

注意:这里有个坑,单价有的单位为/双,所以要特别处理

作者:Excel小子-Office中国

原始数据源

 

Excel金额求和操作动画

 

 Excel金额求和详细VBA代码:                    

    Function sums(rg As Range, rg1 As Range)

        Dim i

        Dim c

        Dim s

        c = Application.ThisCell.MergeArea.Count

        For i = 1 To c

        '‘Stop

            s = s + Val(rg.Offset(i - 1, 0)) * Val(rg1.Offset(i - 1, 0)) / IIf(InStr(rg1.Offset(i - 1, 0), "片"), 1, 2)

        Next i

        sums = s

    End Function

点击加入群:Excel部落  结识Excel大神
学好Excel,效率成倍提高,薪水稳步增长,职位快速提升每天一个源创技巧,如觉得有用,请点上面 关注。更重要手机转发分享

如喜欢此技巧,手机右上角点开,分享到QQ空间,方便自己以后看