Kubi

¦^´_ 1# eric093

1. Sub bb()
   
2.     k = Range("A65536").End(xlUp).Row
   
3.     Application.DisplayAlerts = False
   
4.     For j = 1 To k
   
5.         If Cells(j, 1).Value <> A Then
   
6.             A = Cells(j, 1).Value
   
7.             d = Cells(j, 1).Address
   
8.         Else
   
9.             Range(d & ":" & Cells(j, 1).Address).Merge
   
10.         End If
    
11.     Next
    
12.     Application.DisplayAlerts = True
    
13. End Sub

½Æ»s¥N½X