GBKEE

¦^´_ 1# turbine

1. Option Explicit
   
2. Sub Ex()
   
3.     With Sheets("sheet1")
   
4.         With .Range("b2", .Range("b2").End(xlDown))
   
5.             .Offset(, 1) = "=rc2&"" ""&rc1"
   
6.             .Cells = .Offset(, 1).Value
   
7.             .Offset(, 1) = ""
   
8.         End With
   
9.     End With
   
10. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 4# turbine
¦A¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim E As Range, S
   
4.     With Sheets("sheet1")
   
5.         For Each E In .Range("A2", .Range("A2").End(xlDown))
   
6.             S = Split(E, " ")
   
7.             S = Replace(E, S(0), "", 1, 1)
   
8.             E.Offset(, 1) = E.Offset(, 1) & S
   
9.         Next
   
10.     End With
    
11. End Sub

½Æ»s¥N½X