我需要的是非常简单的。例如:
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
答案 0 :(得分:0)
显然,此功能要求范围采用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