Hsieh

1. Sub ex()
   
2. Dim A As Range
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. For Each A In Range("H2:H15")
   
5.   st = Split(Application.WorksheetFunction.Substitute(A, "-", Chr(10), 2), Chr(10))(1)
   
6.   A.Offset(, 1) = st '¼g¤J
   
7.   If IsEmpty(d(st)) Then '¦P¤å¦rÀx¦s®æ½d³ò¼È¦s
   
8.     Set d(st) = A.Offset(, 1)
   
9.     Else
   
10.     Set d(st) = Union(d(st), A.Offset(, 1))
    
11.   End If
    
12. Next
    
13. For Each ky In d.keys
    
14. For i = 7 To 12
    
15. With d(ky).Borders(i) 'µe®Ø½u
    
16.         .LineStyle = xlContinuous
    
17.         .ColorIndex = 0
    
18.         .TintAndShade = 0
    
19.         .Weight = IIf(i > 10, xlThin, xlMedium)
    
20. End With
    
21. Next
    
22. Next
    
23. End Sub

½Æ»s¥N½X

¦^´_ 6# v03586