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

¨ú¥NÂù¤Þ¸¹¤ºªº¦r¦ê

¨ú¥NÂù¤Þ¸¹¤ºªº¦r¦ê

½Ð°Ý§Ú¦³¤@°ï¦r¦ê,§Ú­n±q¦r¦ê¤¤,§ä¥X¦³Âù¤Þ¸¹"  ",Âù¤Þ¸¹¤º¦³ªÅ¥Õ¤å¦r­n¨ú¥N¦¨_(©³½u),¦ý¬O¤£¦bÂù¤Þ¸¹ªºªÅ¥Õ´N¤£¥Î¨ú¥N,EX
"123ASD DSA321"­nÅܦ¨"123ASD_DSA321" ¦ý¬O­YªÅ¥Õ¤£¦bÂù¤Þ¸¹¤º,´N¤£¨ú¥N,EX


123ASD DSA321ÁÙ¬Oºû«ù 123ASD DSA321

½Ð°Ý³o¥i¥H¥ÎEXCEL¸Ñ¨M¶Ü?

If N = 1 And K = 0 Then K = InStr(i + 1, xStr, """")

§ï¦¨¦p¤U¡A¥i´£¥ÜÂù¤Þ¸¹µL°t¹ï¡G
If N = 1 And K = 0 Then
¡@¡@K = InStr(i + 1, xStr, """")
¡@¡@If K = 0 Then TT = "Âù¤Þ¸¹µLªk°t¹ï, ½ÐÀˬd!": Exit For
End If

TOP

ÁÂÁÂÁÂÁÂ,·P¿E¤£ºÉ

TOP

¦^´_ 7# VANESSA


¼Ó¤W¤w¥[¤Jµù¸Ñ¡AÅÞ¿è«Ü²³æ¡A¦ý¶·ªá¨Ç®É¶¡¥h²z¸Ñ¡I

TOP

ÁÂÁª©¥D,¸Ñ¨M§Úªº°ÝÃD¤F
¥i¥H¦A½Ð±Ð
           T = Mid(xStr, i, 1)
¡@¡@If T = """" Then N = 1 - N:  K = 0
¡@¡@If N = 1 And K = 0 Then K = InStr(i + 1, xStr, """")
¡@¡@If K > 0 And T = " " Then T = "_"
¡@¡@TT = TT & T
³o¬qªº·N«ä¶Ü?ÁÂÁÂ

TOP

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2015-12-10 13:27 ½s¿è

Âù¤Þ¸¹²Õ¼Æ¦³¦h²Õ, ¤å¦r¦r¤¸¼Æ¤£©T©w, ¥i¦Ò¼{¦Û­q¨ç¼Æ¡G
Function Replace_Space(xStr$) As String
Dim i%, N%, K%, T$, TT$
For i = 1 To Len(xStr)
¡@¡@T = Mid(xStr, i, 1)
¡@¡@'¡Ä³v¤@¨ú¥X¦r¦êªº¦r¤¸¡@
¡@¡@If T = """" Then N = 1 - N:  K = 0¡@
¡@¡@'¡ÄT­Y¬°Âù¤Þ¸¹¡A¢Ü­ÈÂà´«¦¨¢°©Î¢¯¡Ä·íN=0¡A1-0=1¡Ä·íN=1¡A1-1=0¡Ä¢ÙÂk¹s¡@
¡@¡@If N = 1 And K = 0 Then K = InStr(i + 1, xStr, """")
¡@¡@'¡Ä·íN=1¡Aªí¥Ü¬O¨C¹ïÂù¤Þ¸¹ªº¡e²Ä¢°­Ó¡f¡A¦A¥hÀˬd¨ä«á¬O§_¦³¥t¤@­ÓÂù¤Þ¸¹¥i°t¹ï¡A­Y¦³¡A«h¢Ù¡Ö¢¯¡@¡@
¡@¡@If K > 0 And T = " " Then T = "_"¡@
¡@¡@'¡Ä·í¢Ù¡Ö¢¯¡Aªí¥Ü¡eªÅ¥Õ®æ¡f¤´¦bÂù¤Þ¸¹½d³ò¤¤¡A¨ú¥N¬°"_"¡Aª½¦Ü¦A¹J¨ì¤U¤@­ÓÂù¤Þ¸¹¬°µ²§ô¡A¢Ü¤Î¢Ùªð¦^¢¯¡@
¡@¡@TT = TT & T
Next i
Replace_Space = TT
End Function


¤½¦¡¡G=Replace_Space(A1)¡@

TOP

ÁÂÁ¦U¦ì°ª¤â,¦ý¬O§Úªº®×¨Ò¬O¤@²Õ¦r¦ê¦³¦h­Ó" ",¦Ó¥B­n²Ä1­Ó"­n©M²Ä2­Ó" °t¦¨¤@²Õ,²Ä3­Ó"©M²Ä4­Ó"
°t¦¨¤@²Õ,©Ò¥H²Ä2­Ó"©M²Ä3­Ó"¤§¶¡ªºªÅ¥Õ­nºû«ù,
ªþ¤W¨Ò¤l
set address "Trust" "172.22.112.113/32 Apple TV" 172.22.112.113 255.255.255.255  "Tel 2245 U7A4"
­nÅܦ¨
set address "Trust" "172.22.112.113/32_Apple_TV" 172.22.112.113 255.255.255.255  "Tel_2245_U7A4"

TOP

=IF(LEFT(A1)&RIGHT(A1)="""""",SUBSTITUTE(A1," ","_"),A1)
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

http://blog.xuite.net/hcm19522/twblog/362710895

TOP

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2015-12-4 16:14 ½s¿è

¤@­Ó¦r¦ê¤¤¦³´X²ÕÂù¤Þ¸¹¡H
¤]³\³Ì¦n¦h´£¨Ñ¨Ç¨Ò¤l¡I

¥ý¥H¤@²ÕÂù¤Þ¸¹¬°¨Ò:
=LOOKUP("龥",IF({1,0},A1&"",REPLACE(A1,FIND(" ",A1,SEARCH("""* *""",A1)),1,"_")))
©Î
=IF(ISERR(SEARCH("""* *""",A1)),A1&"",REPLACE(A1,FIND(" ",A1,SEARCH("""* *""",A1)),1,"_"))

TOP

        ÀR«ä¦Û¦b : ¡i¬°µ½Ävª§¡j¤H¥Í­n¬°µ½Ävª§¡A¤À¬í¥²ª§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD