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

[µo°Ý] ¤å¦rÂà¼Æ¦r(¸Õ¹L«Ü¦h¤èªk³£¬O¥¢±Ñ)

[µo°Ý] ¤å¦rÂà¼Æ¦r(¸Õ¹L«Ü¦h¤èªk³£¬O¥¢±Ñ)

¥»©«³Ì«á¥Ñ jomeow ©ó 2018-2-5 12:05 ½s¿è

§Ú¬O±q«È¤áµ¹§Ú¶l¥ó§Û¤U¨Óªº¼Æ¦r«¬¤å¦r

§Ú·Q§â³o¤@¦ê¤å¦rÂà´«¦¨¼Æ¦r

¦ý¬O§Ú¥Î¨ç¼Æ value µ²ªG·|Åã¥Ü #VALUE!

©ÎªÌ¬O¨Ï¥Î±j¨î¼Æ­È¡u--¡v¡@µ²ªGÁÙ¬OÅã¥Ü #VALUE!

¥B¨Ï¥Î¿ï¾Ü©Ê¶K¤W¹Bºâ­È¬°­¼¡@Åã¥ÜªºÁÙ¬O¤å¦r

¥u¦³§Ú­«·s¿é¤J¤~·|Åܦ¨¼Æ­È

½Ð°Ý¦³¤°»ò¤èªk¥i¥H¤@¦¸§â¼Æ¦r«¬¤å¦rÂà´«¦¨¼Æ­È©O¡H

§Ú¤w¸g§â¡u  ¡v³£¨ú®ø¤F

ÁÂÁ¦U¦ì¤j¤j¥X¤âÀ°§U¡ã

text.rar (8.29 KB)

text

try this:
  1. Sub zz()
  2. Dim a, rg As Object
  3. Set rg = CreateObject("vbscript.regexp")
  4. a = Range("a1:a" & [a1048576].End(3).Row).Value
  5. rg.Pattern = "[^\d+\.]"
  6. For i = 2 To UBound(a)
  7.     a(i, 1) = CDbl(rg.Replace(a(i, 1), ""))
  8. Next
  9. [b1].Resize(i - 1, 1) = a
  10. End Sub
½Æ»s¥N½X
  1. Function z#(rng As Range)
  2. Dim a, rg As Object
  3. Set rg = CreateObject("vbscript.regexp")
  4. a = rng.Value
  5. With rg
  6.     .Pattern = "[^\d+\.]"
  7.     z = .Replace(a, "")
  8. End With
  9. End Function
½Æ»s¥N½X

TOP

«þ¨©¤@­Ó¦r¤¸¥Îcode¨ç¼Æ¬d¬Ý´Nª¾¹D¤F¡A¦ý¤£¥i¨£ª¾¹D¤]¨SÔ£·N«ä¡C¦]¤£¥i¨£¦r¤¸¦³¦n¦h­Ó¡C

TOP

ºô¸ô©ÎE-mail ©ÒÀò±oªº¼Æ¦r¸ê®Æ,³q±`·|¦³¤£¥i¨£¦r¤¸,¥i¥ÎLEN¨ç¼ÆÀˬd§Y¥iª¾¹D¡C
ANGELA µoªí©ó 2018-2-9 12:29


   §A»¡±o¹ï.. §Ú¥ÎLEN.. ´N¬Ý¨ì±o¥X¨Óªºµ²ªG¬O«Ü¤jªº
¤£¹L.. ­n§ä¥X¬O¦h¥X¤F¤°»ò´NÃø§ä¤F..

TOP

ºô¸ô©ÎE-mail ©ÒÀò±oªº¼Æ¦r¸ê®Æ,³q±`·|¦³¤£¥i¨£¦r¤¸,¥i¥ÎLEN¨ç¼ÆÀˬd§Y¥iª¾¹D¡C

TOP

{=-LOOKUP(,-MID(A2,MATCH(0,0/MID(A2,ROW($1:$66),1),),ROW($1:$16)))       }
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 2# joblyc017


   ÁÂÁ§A.. §Ú¦¨¥\¤F..
½Ð°Ý¬°¦ó­n³o¼Ë¤~¥i¥H[¨ú¥N"¹j¹j" ] ©O?

TOP

¦^´_ 1# jomeow


    ¨ú¥N«á¬°¼Æ­È«¬ºA¡A¸Ô¤U¹Ï¡G
TEST.gif
2018-2-5 12:26

TOP

        ÀR«ä¦Û¦b : ¤£­n¤p¬Ý¦Û¤v¡A¦]¬°¤H¦³µL­­ªº¥i¯à¡C
ªð¦^¦Cªí ¤W¤@¥DÃD