Hsieh

¦^´_ 3# andy8426

1. Sub ex()
   
2. Dim a As Range, s&
   
3. Set dic = CreateObject("Scripting.Dictionary")
   
4. With Sheets("Sheet4")
   
5.   For Each a In .Range(.[B1], .[B1].End(xlDown))
   
6.      dic(a & a.Offset(, 1)) = dic(a & a.Offset(, 1)) + 1
   
7.   Next
   
8. End With
   
9. With Sheets("Sheet3")
   
10.   For Each a In .Range(.[F2], .[F2].End(xlDown))
    
11.   s = dic(a.Offset(, -3).MergeArea(1) & a)
    
12.      a.Offset(, 1) = s
    
13.   Next
    
14. End With
    
15. End Sub

½Æ»s¥N½X