我在Excel电子表格中有5000行数据，我需要对数据执行重复性任务 . 每次客户名称更改时我都需要换行，突出显示黄色的行，并汇总美元金额 . 如何创建一个宏来添加美元金额并将其移动到一列以上，以便我可以验证数据是否在表单底部正确分割 . 我熟悉宏，但不熟悉不断变化的范围 . 太糟糕了，sum函数在宏中不起作用，还是不行？

Original data

Joes Pizza   10.00
Mikes Pizza  10.00
Mikes Pizza  10.00
Bobs Pizza   10.00
Bobs Pizza   10.00
Bobs Pizza   10.00

Formatted data

Joes Pizza   10.00
Total        10.00

Mikes Pizza  10.00
Mikes Pizza  10.00
Total        20.00

Bobs Pizza   10.00
Bobs Pizza   10.00
Bobs Pizza   10.00
Total        30.00

等等数千行数据 . 我需要一个excel宏来计算每次遇到换行符时的美元金额 . 如果在客户名称更改时放入换行符是可撤消的，则至少有一个公式使其自动汇总美元金额 .

这是我在宏中所拥有的，它将无法正常工作 . GetSum lastrow = thisworkbook.sheets（“sheet1”） . cells（rows.count，2）.end（x1up）.row thisworkbook.sheets（“sheet1”） . range（“b”＆lastrow 1）= worksheetfunction.sum（ thisworkbook.sheets（“sheet1”） . range（“b2：b＆lastrow”）

你能看到错误吗？

excel vba