ashan0418

1. Dim S As String, AR As Variant, i As Integer
   
2. For Row = 1 To 100
   
3.     S = Range("A" & Row)
   
4.     AR = Split(S, " ")
   
5.     S = ""
   
6.     For i = 1 To 2
   
7.         S = IIf(S = "", "", S & " ") & AR(i)
   
8.     Next
   
9.     Range("B" & Row).Value = S
   
10.     S = ""
    
11.     For i = 4 To 6
    
12.         S = IIf(S = "", "", S & " ") & AR(i)
    
13.     Next
    
14.     Range("C" & Row).Value = S
    
15. Next

½Æ»s¥N½X

¦^´_ 3# s13983037