GBKEE

¦^´_ 9# deyan
³o¬O317ªºµ{¦¡½X§Ú¥N¶K¤W,¼gªº«Ü¦n.

1. Sub nn()
   
2. Dim A As Range, r&
   
3. Application.DisplayAlerts = False
   
4. r = 3
   
5. Do While Cells(r, 2) <> ""
   
6.    Set A = Cells(r, 2)
   
7.    Do Until Cells(r, 2) <> A
   
8.    r = r + 1
   
9.    Loop
   
10.    Range(A, Cells(r - 1, 2)).Merge
    
11. Loop
    
12. Application.DisplayAlerts = True
    
13. End Sub

½Æ»s¥N½X