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

[µo°Ý] ¼Æ¦r»P¼Æ¦r¤¤¦pªG¦³ªÅ®æ ­n¦p¦ó¨ú¥N©Î§R°£©O?

¬Ý°_¨Ó³£¬O¤d¤À¦ì«á­±ªº¤T¦ì¼Æ¦r¦h¤@­ÓªÅ¥Õ¦r¤¸,
¦Û­q¨ç¼Æ:
  1. Function ClearSpace(xStr$) As String
  2. Dim TT, i%
  3. TT = Split(Replace(xStr, ",", "_,"), "_")
  4. For i = 0 To UBound(TT)
  5.     If TT(i) Like ",[0-9][0-9] [0-9]*" Then
  6.        TT(i) = Replace(TT(i), " ", "", 1, 1)
  7.     End If
  8. Next
  9. ClearSpace = Join(TT, "")
  10. End Function
½Æ»s¥N½X
Xl0000109.rar (40.52 KB)

¤½¦¡¡G=ClearSpace(A2)
¡@
¡@

TOP

¦^´_ 5# ¤p«L«È

4¼Ó¥Îªº¥u¬O«Ü´¶³qªº§PÂ_¦¡, »P¥¿«hµLÃö, ©|¥B§Ú¹ï¥¿«h¨ÃµL¬ã¨s!!!

¨ú¤å¦rªº°ÝÃD, ¶·¥ý¬Ý§¹¾ãªº¤å¦r, ¦Ó«D¤ù¬q, §_«h¤£ºÞ¥Î¥¿«h©Î¨ä¥¦¤èªk, ³£¥i¯à¥X¿ù!

³Ì¦nªþ¤W³Ì§¹¾ãªº¤º®e¤Î»Ý¨D, ¯à¼ÒÀÀµ²ªG§ó¦n!

TOP

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2016-9-13 15:01 ½s¿è

¥¿«h¯uªº¤£®e©ö¡I¡I¡I

¸Õ¸Õ¤½¦¡¦p¦ó¡G
=SUM(--TEXT(1&RIGHT(LEFT(A1,FIND("¦~",A1&"¦~")-1),{4,5}),"[<11901]-9;[>12099]-9;1;!0"))>0

­­©w 1901~2099 ¦~¤§¶¡¬°¦³®Ä¦~¡A
02015¦~¡@Áö¬°¢±¢¯¢°¢´¦~¡A¦ý¦]§t¢´­Ó¼Æ¦r¡A§P¬°µL®Ä¡A
¤£¹L¡Aabcd2015ppuy ³o­Ó¤£§t"¦~"¦r¡A¢±¢¯¢°¢´´NµLªk¥Î³o¤½¦¡§PÂ_¡A
abcd2015¦~ppuy¡@´N¢Ý¢Ù¡I

TOP

        ÀR«ä¦Û¦b : ¥Í®ð¡A´N¬O®³§O¤Hªº¹L¿ù¨ÓÃg»@¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD