用Excel中的宏编写下题程序，一定要用Excel的宏

Question

如题所述

Answer 1

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