Excel Macro для подсчета данных сопоставления

Question

Мне нужен макрос для подсчета количества конкретных дат, а затем введите эту сумму рядом с каждой датой. Например, мне нужно преуспеть сделать следующее:

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 

Необходимо подсчитать, сколько раз появляется дата и введите его рядом с каждой ячейкой, соответствующей. В списке указано 5 раз 1/1/14, поэтому ему нужно 5, введенное в столбец B каждый раз, когда указан 1/1/14. И есть 3 раза 1/2/14 в списке, поэтому нужно ввести 3 рядом с этими датами в столбце B ... и т. Д. И т. Д.

Любые предложения для макроса, которые могли бы выполнить это ?

Answer 1

Вам не нужно VBA, вы можете использовать простую формулу:

=COUNTIF(A:A,A1) 

просто написать его в B1 и перетащить его вниз.

---

Но если УВА requared, вы можете использовать этот простой код:

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