Sub 宏1()
[D1] = Time '记录开始时间
Columns("A:A").Select '选择A列
Range("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"B1"), Unique:=True '将不重复的内容放B1开始
Range("C1").Select '选择C1
ActiveCell.FormulaR1C1 = "=COUNTIF(C[-2],RC[-1])" '以B1对A列计数
Range("C1").Select '选择C1
Selection.AutoFill Destination:=Range("C:C"), Type:=xlFillDefault '
Range("C:C").Select '粘贴到C列
[D1] = Time - [D1] '当前时间-开始时间
End Sub
温馨提示:答案为网友推荐,仅供参考