VBA高手进，表格多条件求和怎么用VBA代码怎么写？

Question

如图蓝色字体的求和怎么通过 VBA按钮实现每个人的工资合计？用公式比较麻烦而且容易出错。并且要在中间随机添加和删除行和列的同时不会影响合计结果。第5行是每个工序的单价，下面是填写每个人的数量，求合计结果上附件 链接：https://pan.baidu.com/s/15XotSrr-pz1j2g1WWlrRBQ 提取码：ow48

Answer 1

Sub demo()

    Dim SData As Range

    Dim DData As Range

    Dim RowSta As Long, RowLas As Long

    Dim ColSta As Long, ColLas As Long

    

    With Range("A1").CurrentRegion

        RowSta = .Find("姓名", , , xlPart).Row + 1

        ColSta = .Find("姓名", , , xlPart).Column + 2

        RowLas = .Columns(1).Find("合  计", , , xlPart).Row - 1

        ColLas = .Find("签 字", , , xlPart).Column - 3

    End With

    Set DData = Range(Cells(RowSta, ColSta), Cells(RowSta, ColLas))

    Set SData = DData.Offset(-1, 0)

    For i = RowSta To RowLas

        Cells(i, ColLas + 2) = Application.SumProduct(SData, DData)

        Set DData = DData.Offset(1, 0)

    Next i

End Sub

追问

再做个按钮，点击后可以同时触发多个想运算的某几个SHEET工作表，应该怎么改？
比如我点击后会同时对sheet 3和sheet 6触发
应该怎么改写VBA

Answer 2

用sumproduct即可。没必要代码。