Office中国论坛/Access中国论坛

标题: 想做个宏统计重复数据之和，求助各位！ [打印本页]

作者: 我该怎么办 时间: 2005-4-21 01:12
标题: 想做个宏统计重复数据之和，求助各位！
A列是原始单位名称，B列是格式化的单位名称，因为A列中有带空格的相同单位名称，格式化后便于对比，D列是用函数统计的重复单位个数，并用条件格式突出显示，E列也是用函数和条件格式突出显示重复单位的名称,F列是要突出显示重复单位对应的金额总和，因为实际运用时单位名称较多，想做个宏来提高效率，请高手帮帮忙吧~~~~~

贴上实例[attach]10043[/attach]

作者: 老鬼 时间: 2005-4-21 02:22
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 16:13
太棒了！非常感谢鬼老大！可俺想保留同时显示重复的单位名称，该怎么加？

作者: 老鬼 时间: 2005-4-21 20:24

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

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

作者: 我该怎么办 时间: 2005-4-21 22:39
就是俺原来的F列里面突出显示的重复单位的名称，鬼老大的宏里没这个了。

作者: 老鬼 时间: 2005-4-22 01:59
在CL.Value = Application.WorksheetFunction.CountIf(Range("B2

" & a), CL.Offset(0, -2))下面加一句 CL.Offset(0,1).Value =CL.Offset(0, -2).Value

作者: 我该怎么办 时间: 2005-4-22 19:03
多谢！俺加上了，可是它显示了所有的单位名称，俺只要重复的单位的名称，咋办？

作者: 老鬼 时间: 2005-4-23 02:32
改成If CL.Value>1 Then CL.Offset(0,1).Value =CL.Offset(0, -2).Value即可

作者: 我该怎么办 时间: 2005-4-25 22:03
这样就完美啦！多谢多谢！

还要继续学习呀！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)