GBKEE

¦^´_ 1# eric093

¸Õ¸Õ¬Ý

1. Sub bb()
   
2.     Dim xRng(1 To 2) As Range, J As Integer
   
3.     Application.DisplayAlerts = False
   
4.     Set xRng(1) = Range("A2")
   
5.     J = 1
   
6.     Do While xRng(1) <> ""
   
7.         If xRng(1).Offset(J) = xRng(1) Then
   
8.             Set xRng(2) = Union(IIf(xRng(2) Is Nothing, xRng(1), xRng(2)), xRng(1).Offset(J))
   
9.             J = J + 1
   
10.         Else
    
11.             Set xRng(1) = xRng(1).Offset(J)
    
12.             J = 1
    
13.             xRng(2).Merge
    
14.             Set xRng(2) = Nothing
    
15.         End If
    
16.     Loop
    
17. End Sub

½Æ»s¥N½X