想做个宏统计重复数据之和，求助各位！

我该怎么办

A列是原始单位名称，B列是格式化的单位名称，因为A列中有带空格的相同单位名称，格式化后便于对比，D列是用函数统计的重复单位个数，并用条件格式突出显示，E列也是用函数和条件格式突出显示重复单位的名称,F列是要突出显示重复单位对应的金额总和，因为实际运用时单位名称较多，想做个宏来提高效率，请高手帮帮忙吧~~~~~

贴上实例

老鬼

Sub abc()
Dim a
a = [A65536].End(xlUp).Row
For Each CL In Range("D2" & a)
  CL.Value = Application.WorksheetFunction.CountIf(Range("B2" & a), CL.Offset(0, -2))
Next CL
End Sub

我该怎么办

太棒了！非常感谢鬼老大！可俺想保留同时显示重复的单位名称，该怎么加？

老鬼

以下是引用我该怎么办在2005-4-21 8:12:40的发言：
太棒了！非常感谢鬼老大！可俺想保留同时显示重复的单位名称，该怎么加？

“保留同时显示重复的单位名称”是什么意思？

我该怎么办

就是俺原来的F列里面突出显示的重复单位的名称，鬼老大的宏里没这个了。

老鬼

在CL.Value = Application.WorksheetFunction.CountIf(Range("B2" & a), CL.Offset(0, -2))下面加一句 CL.Offset(0,1).Value =CL.Offset(0, -2).Value

我该怎么办

多谢！俺加上了，可是它显示了所有的单位名称，俺只要重复的单位的名称，咋办？

老鬼

改成If CL.Value>1 Then CL.Offset(0,1).Value =CL.Offset(0, -2).Value即可

我该怎么办

这样就完美啦！多谢多谢！

还要继续学习呀！