GBKEE

1. Sub Ex()
   
2.     Dim D As Object, E As Range, Ar
   
3.     Set D = CreateObject("Scripting.Dictionary")
   
4.     For Each E In Sheet1.Range("A1", Sheet1.Range("A1").End(xlDown))
   
5.         If D.exists((Split(E, "-")(0))) Then
   
6.             Ar = D(Split(E, "-")(0))(1)
   
7.             D(Split(E, "-")(0)) = Array(Split(E, "-")(0), Ar + 1)
   
8.         Else
   
9.             D(Split(E, "-")(0)) = Array(Split(E, "-")(0), 1)
   
10.         End If
    
11.     Next
    
12.     Sheet2.[B1].Resize(D.Count, 2) = Application.Transpose(Application.Transpose(D.items))
    
13. End Sub

½Æ»s¥N½X