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

a703130

¦p¤U­±³sµ²

http://forum.twbts.com/thread-9000-1-1.html

§Ú¾Ç¨ìreplaceªº¤èªk

¦ý¬O¤S¹J¨ì¥t¤@­Ó°ÝÃD
¦pªþ¥ó
·s¼WMicrosoft Excel ¤u§@ªí (2).rar (1.76 KB)

¤U¸ü¦¸¼Æ: 3

2013-2-22 18:32

§Ú¦pªG­n¨ú¥N¦r¦ê¤¤ªºNever

¦ý§Ú¤]·|¦P®É¨ú¥N Never_1 ...

¤£ª¾¹D¬O§_¦³¤èªk¥u¨ú¥N Never ¦Ó¤£·|³sNever_1 µ¥Ãþ¦ü¦r¦ê¤@°_¨ú¥N

Hsieh

¦^´_ 13# a703130

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

a703130

¦^´_ 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¬°¦ó?

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

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

a703130

¦^´_ 4# Hsieh

ÁÂÁÂH¤j~¥H¤F¸Ñ

Microsoft Excel ¤u§@ªí (2).rar (1.82 KB)

¤U¸ü¦¸¼Æ: 6

2013-2-23 11:11

§Ú²{¦b¹J¨ì¥t¤@­Ó°ÝÃD
·í§Ú¸ê®ÆÅܦh®É,§Ú¬O¨Ï¥Îdo loop ¹J¨ì"END" °±¤î³B²z
¦Ó®ÇÃ䪺Àx¦s®æ¬O§Ú¨ú¥NªºÃöÁä¦r
³o³¡¥÷¤]¬O¥Îdo loop ¹J¨ì" " °±¤î³B²z
¨ú¥N«áªºÀx¦s®æ­n¦s¦Ücells(x,9) ,x ©¹¤U¼W¥[
¦ý¬O³Ì«á·|Åܦ¨¥u¨ú¥N1_Never_

´M§äªº¦r¦ê      «Ý¨ú¥Nªº¦r¦ê
Never                             Test
Never_1                     apple
1_Never_                     Gone

¬O§_¦³¿ìªk¸Ñ¨M??

Hsieh

¦^´_ 3# a703130

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

a703130

¦^´_ 2# Hsieh

§Aªº·N«ä¬O

³æ¤@ Never ¦r¦ê³£¦b«á­±¥[¤WªÅ¥Õ¿ëÃѶÜ??

Hsieh

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

a703130

¦^´_ 3# Hsieh

½Ð°Ý¬O§_¯à¥Îreplace ¤è¦¡ª½±µ´À´«?