excel - 将总和放在行尾之后并应用于所有工作表

Question

我有一个包含多个名称不同的工作表的工作簿。我想在 A 和 B 列的最后一行后面加上一个总和，我希望它应用于工作簿中的所有工作表。另外，我需要该总和以粗体显示并以黄色突出显示。
请帮助我使用适当的 VBA 宏
编辑:
我在这里也看到了这段代码，但这只会将一个总和放在一张预定义工作表名称为 Sheet1 的工作表上。我的床单名称不同。我需要一个宏来将其应用于所有工作表，而不管工作表名称如何。

Sub test() 
    Dim ws as worksheet 
    Dim VR as Long 
    Dim rng as Range

    Set ws = Thisworkbook.Worksheets("Sheet1")  
    With ws
        VR = .Cells(.Rows.Count, 8).End(xlUp).Row  
    End with

    Set rng = ws.Cells((VR+1), 10)  
    rng.Offset(2,0).Formula ="=SUM(J2:J" & VR & ")"
End Sub

Answer 1

我建议使用 here 中描述的 FIND() 函数。
此外，您似乎正在积极地将第 10 列作为目标，以使您的总和低于最后一个值。列数将来可能会发生变化。为了使其更健壮，您可以检查列名或始终将总和放在范围的最后一列下方。我还建议再次使用小计而不是 SUM 函数 109，以使其更加健壮。