GBKEE

¦^´_ 5# a703130
6# Hsieh¶Wª© ¥Îªº¬OReplace ¨ç¼Æ
¤]¥i¥Î Replace ¤èªk

1. ption Explicit
   
2. Sub Ex()
   
3.     Dim Rng As Range, a As Range
   
4.     Set Rng = Range([C2], [C:C].Find("End", lookat:=xlWhole))
   
5.     For Each a In Range([F2], [F2].End(xlDown))
   
6.     ' mystr = Join(Application.Transpose(Rng), "¡B")
   
7.         a.Offset(, 2) = Rng.Replace(a & " ", a.Offset(, 1) & " ", xlPart)
   
8.     Next
   
9. End Sub

½Æ»s¥N½X