部分代码:

    objSheet.Range("A" & intI + 2) = "合计"
    objSheet.Range("A" & intI + 2).Font.Bold = True
    objSheet.Range("G" & intI + 2) = "= Sum(G2:G" & intI + 1 & ")"
    objSheet.Range("G" & intI + 2).Font.Bold = True

附   件:

点击下载此附件

演   示: