用于计算匹配数据的 Excel 宏答案

【问题标题】：Excel Macro For Counting Matching Data用于计算匹配数据的 Excel 宏
【发布时间】：2014-02-20 00:28:06
【问题描述】：

我需要一个宏来计算特定日期的数量，然后在每个日期旁边输入该数量。例如，我需要 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...等等...

对可以完成此任务的宏有什么建议吗？

【问题讨论】：

标签： vba date excel count

【解决方案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

【讨论】：