ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] Àx¦s®æ¤º¬Û¦P¦r¦ê³B²z_¨ú¥N

¦^´_ 5# a703130
  1. Sub ex()
  2. Set Rng = Range([C2], [C:C].Find("End", lookat:=xlWhole))
  3. For Each a In Range([F2], [F2].End(xlDown))
  4.      mystr = Join(Application.Transpose(Rng), "¡B")
  5.      a.Offset(, 2) = Replace(mystr, a & " ", a.Offset(, 1) & " ")
  6. Next
  7. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 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

TOP

¦^´_ 11# Hsieh

Sub ex()
Set Rng = Range([C2], [C:C].Find("End", lookat:=xlWhole))    '³]©w´M§ä½d³ò
For Each a In Range([F2], [F2].End(xlDown))                                 '¨ú¥Nªº¼Æ¶q
     mystr = Join(Application.Transpose(Rng), "¡B")                     '???
     a.Offset(, 2) = Replace(mystr, a & " ", a.Offset(, 1) & " ")      
Next
End Sub
   
½Ð°Ý  mystr = Join(Application.Transpose(Rng), "¡B")  ³o¦æªº·N«ä¬O??  "¡B"¥Î·N¬°¦ó?

TOP

¦^´_ 13# a703130

mystr = Join(Application.Transpose(Rng), "¡B")                     
¥H¹y¸¹(¡B)³sµ²Rng½d³òªº¤º®e
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ®É®É¦n¤ß´N¬O®É®É¦n¤é¡C
ªð¦^¦Cªí ¤W¤@¥DÃD