合并功能在vba中不起作用

我需要的其实很简单。例如：

        Br         56

        Bc          6

        Bt          20

        Br          23

        bc          15

我要这些重复的bc/br/bt合并并求和它们的数字 这是我写的代码的一部分。然而，它总是给我“应用程序定义的或对象定义的错误”。有人能说出问题出在哪里吗

         Sub lo()
         Dim sr As Variant
         Range("a1", Range("a1").End(xlDown).End(xlToRight)).Select

           Set sr = Selection

          Range("n1").Consolidate Sources:=sr,
            _Function:=xlSum,TopRow:=False, LeftColumn:=True, 
                _CreateLinks:=False
             End Sub

---

显然，此函数要求范围采用R1C1参考样式。下面的代码应该适合您

我还必须将下划线移到每行的末尾，而不是下一行的开头

         Sub lo()
         Dim sr As Variant
         Range("a1", Range("a1").End(xlDown).End(xlToRight)).Select

           Set sr = Selection

          Range("n1").Consolidate Sources:=sr.address(ReferenceStyle:=xlR1C1), _
            Function:=xlSum,TopRow:=False, LeftColumn:=True, _
                CreateLinks:=False
             End Sub

---

显然，此函数要求范围采用R1C1参考样式。下面的代码应该适合您

我还必须将下划线移到每行的末尾，而不是下一行的开头

         Sub lo()
         Dim sr As Variant
         Range("a1", Range("a1").End(xlDown).End(xlToRight)).Select

           Set sr = Selection

          Range("n1").Consolidate Sources:=sr.address(ReferenceStyle:=xlR1C1), _
            Function:=xlSum,TopRow:=False, LeftColumn:=True, _
                CreateLinks:=False
             End Sub

---

在回答这个问题时，我实际上学会了如何使用这个函数。谢谢你的邀请！在回答这个问题时，我实际上学会了如何使用这个函数。谢谢你的邀请！