Hsieh

¦^´_ 1# a703130

1. Sub ex()
   
2. mystr = "I've been locked out of heaven"
   
3. k = UBound(Split([C5], mystr))
   
4. MsgBox "¨ú¥N²Ä2²Õ" & Application.WorksheetFunction.Substitute([C5], mystr, "END", 2)
   
5. MsgBox "¨ú¥N²Ä³Ì«á¤@²Õ" & Application.WorksheetFunction.Substitute([C5], mystr, "END", k)
   
6. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 1# a703130
Never¥[¤W¤@­ÓªÅ¥ÕÁä§@¬°·j´M¥Ø¼Ð
­n¨ú¥Nªº¦r¦ê¤]¥[¤WªÅ¥ÕÁä

Hsieh

¦^´_ 3# a703130

ªþ¥ó¤¤ªºNever«á­±¦³¤@­ÓªÅ®æ¡A¥i¥H¸òNever_°µÃѧO
©Ò¥H¥u¦³¦¹¤èªk°µ2ªÌ°Ï§O

Hsieh

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

Hsieh

¦^´_ 13# a703130

mystr = Join(Application.Transpose(Rng), "¡B")                     
¥H¹y¸¹(¡B)³sµ²Rng½d³òªº¤º®e