Question

我需要一个宏来计算特定日期的数量，然后在每个日期旁边输入该数量。例如，我需要excel来执行以下操作：

Column A Column B

1/1/2014 5
1/1/2014 5
1/1/2014 5
1/1/2014 5
1/1/2014 5
1/2/2014 3
1/2/2014 3
1/2/2014 3
1/3/2014 4
1/3/2014 4
1/3/2014 4
1/3/2014 4

需要计算日期显示的次数，并在每个匹配的单元格旁边输入。列出了1/1/14的5次，因此每次列出1/1/14时需要在B列中输入5个。并列出了3次1/2/14，因此需要在B栏中的那些日期旁边输入3 ...等等...

有关宏的任何建议可以实现此目的吗？

Answer 1

您不需要VBA，您可以使用简单的公式：

=COUNTIF(A:A,A1)

只需将其写入B1并将其拖下来。

但是如果需要VBA，你可以使用这个简单的代码：

Sub test()
    Dim lastrow As Long
    lastrow = Cells(Rows.Count, 2).End(xlUp).Row

    With Range("B1:B" & lastrow)
        .Formula = "=COUNTIF(A:A,A1)"
        .Calculate
        .Value = .Value
    End With
End Sub

用于计算匹配数据的Excel宏

1 个答案: