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

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

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

·Q½Ð°Ý¦U¦ì¤j¤j
EXCEL¤¤ ¼Æ¦r»P¼Æ¦r¤¤¦pªG¦³ªÅ®æ ­n¦p¦ó¨ú¥N©Î§R°£©O?

1.µLªkª½±µ¨Ï¥ÎªÅ®æ( )¨ú¥N ¦]¬°·|¦³¤@¨Ç¥X²{ªÅ®æ¬O¬°¤À¬q¥X¼Æ¦rªº¼Æ­È

2.µLªk¨Ï¥Î(? ?)¨ú¥N¦¨(??) ¦]¬°?¬O¨â­Ó¦ì¼Æªº¨ú¥N¤èªk ¼vÅT
  ¦P¤W?ªº¨ú¥N±¡ªp (? )©Î( ?)¤]¤£¥i¥H¨Ï¥Î

3.¤]¦³·Q¹L¥Î¤E¤Q¤E¦¸ªº¨ú¥N¤èªk (1 1) ¨ú¥N¦¨(11) ¤]¬O«á¬q¼Æ­ÈµLªk¨Ï¥Î


µo¥Í³o¼Ëªº±¡ªp
ªÅ®æ¥u·|¥X²{¦b¼Æ¦rªº­Ë¼Æ²Ä¤G­Ó¦ì¸m ¨Ò¦p 1,00 0(¥¿½T¬°1,000)
¦ý"¼Æ­È"¤§¶¡¤]¬O·|¦³ªÅ®æªº¦s¦b ¨Ò¦p 1,000 5 1,000,000(¼Æ­È°Ï¬q¥i¯à¦³«Ü¦h)
(¨C¬q¼Æ­È¥i¯à¦³­Ó¦ì¼Æ1 ¦Ê¦ì¼Æ100  ¤d¦ì¼Æ1,000  ¸U¦ì¼Æ10,000 §ó¦h³£·|¥X²{)

¦p¦³VBAªº¤è¦¡¥i¥H³B²z ¬O³Ì¦n  

¦p¦³ªí¹F¤£²M·¡ ²`·P©êºp
Åwªï¤j¤jªº«ü±Ð   ¥ý·PÁ  ¦A·PÁÂ

¥þ³¡½d¥»ÀÉ®× 20160828¼Æ¦r¤¤¶¡ªÅ®æ°ÝÃD.rar (503.93 KB)

20160828¼Æ¦r¤¤¶¡ªÅ®æ°ÝÃD.rar (503.93 KB)

lo

¦^´_ 1# tr24572411

TOP

¦^´_ 1# tr24572411
Sub Ex()
    With Sheets("Sheet2")
        For i = 1 To .Range("A" & Rows.Count).End(xlUp).Row
            '  .Cells(i, 6) = Trim(.Cells(i, 1)) = Trim(.Cells(i, 2))   '  ¦r¦ê¤¤¤§ Space¡@µLªk²¾°£
            .Cells(i, 7) = Replace(.Cells(i, 1), " ", "") = Replace(.Cells(i, 2), " ", "")
        Next
    End With
End Sub

TOP

¬Ý°_¨Ó³£¬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

¬Ý°_¨Ó³£¬O¤d¤À¦ì«á­±ªº¤T¦ì¼Æ¦r¦h¤@­ÓªÅ¥Õ¦r¤¸,
¦Û­q¨ç¼Æ:

¤½¦¡¡G=ClearSpace(A2)
¡@
¡@
­ã´£³¡ªL µoªí©ó 2016-8-29 11:43



    ¬Ý¨Óª©¤j¦n¹³¬O¨Ï¥Î¥¿«hªí¹F¦¡¨Ó¸Ñ¨M³o­Ó°ÝÃD¡A«Ü§Q®`¡I¦Ó¥B¤£»Ý­n¨Ï¥ÎCreateObject("VBScript.RegExp")·Pı§ó¤è«K¡C
¥¿«hªí¹F¦¡(http://regexr.com/)¦n¹³«Ü§xÃø¡A§Ú¬Ý¤F«Ü¦hªF¦è¤]¤£¤F¸Ñ¡A¤U­±¦³¤@ÃD¥Ø¡A¥i¥H½Ðª©¤jÀ°§U«ü±Ð¶Ü¡H

§Ú·Q§ä¥X³oºØ¥y«¬ªº¦r¦ê¡A­º1/2­Ó¦r¬°¼Æ¦r¡A¤§«á¥i¯à¬O¡u) ¡v¡B¡u. ¡vªº¤À®æ²Å¸¹©M¤@ªÅ¥Õ¦r¤¸¡A¤§«á¬O¤¤¤å¦r¡C¨Ò¦p¡G
-----------------------
²Å¦X
1) ³¯¤j¤å
32. ª`·N¨Æ¶µ

¤£²Å¦X
123) ¨ä¥L
Âø¶µ
----------------
¯à°÷¥Î¥¿«hªí¹F¦¡³B²z¶Ü¡H²{¦b§Ú¥u¯à¥Îfor loop ¡A¦A¥Îasc¡A«ÜºC......

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

¦^´_ 5# ¤p«L«È
°Ñ¦Ò§a
  1. Sub Test()
  2.     Dim x, oRegexp As Object: Set oRegexp = CreateObject("vbscript.regexp")
  3.     With oRegexp
  4.         .Pattern = "^\d{1,2}[)\.]\s.*"
  5.         
  6.         For Each x In Array("1) ³¯¤j¤å", "32. ª`·N¨Æ¶µ", "123) ¨ä¥L")
  7.             Debug.Print x, .Test(x)
  8.         Next
  9.     End With
  10. End Sub
½Æ»s¥N½X
1) ³¯¤j¤å   True
32. ª`·N¨Æ¶µ True
123) ¨ä¥L   False
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

¦^´_ 6# ­ã´£³¡ªL


    ¹ï¤£°_¡A§Ú²z¸Ñ¿ù¤F¡A§ÚÁÙ¥H¬°¬Oregular expression¡C
¦]¬°§Ú»Ý­n¦b¼Æ¸U½g¤å³¹¤¤§ä¥X¤p¬q¸¨ªº¶}ºÝ¡A¦Ó¤å³¹ªº®æ¦¡¨Ã¤£¬Û¦P¡A©Ò¥H§Ú»Ý­n¥H¸û¦³®Äªº¤èªk§ä¥X¤p¼ÐÃD¡AµM«á¥[¤W¼Æ¶µÅçÃÒ¥H½T»{³o¬O§Ú»Ý­nªº¬qÓ¨¡C
¼È®É§ÚÆ[¹î¤F¼Æ¦Ê½g¤å³¹«á¡A¼È®É§Úµo²{¨ìªº¼Ò¦¡¬O¡G
1) ¥H¤@­Ó©Î¨â­Ó¼Æ¦r§@¶}©l
2) ¼Æ¦r«á·|¥H¡u)¡v¡B¡u.¡v§@¤À¹j(¦³®É­Ô¬O¨S¦³)
3) ¤§«á¥]§t¤F¤@ªÅ®æ
4) ¤p¬q¸¨ªº¼ÐÃD(¥¿Å餤¤å)

¨ä¹ê¤W­±ªº¤w¸g¬O¨Ò¤l¡A¤£¹L¥i¯à¤Ó¤Ö¡A§Ú­nÂI®É¶¡¦A¾ã²z§a¡C

TOP

¥»©«³Ì«á¥Ñ ¤p«L«È ©ó 2016-9-2 10:37 ½s¿è
¦^´_  ¤p«L«È
°Ñ¦Ò§a1) ³¯¤j¤å   True
32. ª`·N¨Æ¶µ True
123) ¨ä¥L   False
stillfish00 µoªí©ó 2016-9-1 16:13


§Úµo²{¨ìªº¤å¦r¼Ò¦¡¬O¡G
1) ¥H¤@­Ó©Î¨â­Ó¼Æ¦r§@¶}©l
2) ¼Æ¦r«á·|¥H¡u)¡v¡B¡u.¡v§@¤À¹j(¦³®É­Ô¬O¨S¦³)
3) ¤§«á¥]§t¤F¤@ªÅ®æ
4) ¤p¬q¸¨ªº¼ÐÃD(¥¿Å餤¤å)
  1.     "^\d{1,2}[)\.]\s.*"
½Æ»s¥N½X
\d =¼Æ¦r¡A¦pªG­n¥]§t¤¤°ê¼Æ¦r¡A¬O¤£¬O[0-9¤@¤G¤T¥|¤­¤»¤C¤K¤E¤Q]
{1,2} = ­º¤@¦Ü¤G¦r
[)\.] = ¼Æ¦r«á¬O¡u)¡v¡B¡u.¡v¡A¤Ö¼Æ±¡ªp¬O¡G¡u12 ¤Ñ®ð±¡ªp¡v¡A¼Æ¦r«á¥u¦³¤@ªÅ®æµM«á¬O¼ÐÃD¡A¬O¤£¬O§ï¦¨
  1. [)\.\s]
½Æ»s¥N½X
¡A¦ý³o¼Ë·|©M«á­±ªº\s¬Û¨R¡A¦Ó¥Oµ{¦¡¥H¬°­n¦³¨âªÅ®æ
* = ¸U¥Î½X

¦pªG­n²Å¦X§Úªº­n¨D¡A¬O¤£¬O§ï¦¨
  1. ^[0-9¤@¤G¤T¥|¤­¤»¤C¤K¤E¤Q]{1,2}[)\.\s]\s.*"
½Æ»s¥N½X

TOP

¦^´_ 9# ¤p«L«È
^ = ¤Ç°t¦r¦ê¶}ÀY
\d{1,2} = ¬O«ü«e­±ªº \d¥X²{¤@¦¸¨ì¨â¦¸
        ¥t¥~±`¥Î²¤Æ¼gªk
        \d? = \d{0,1}
        \d+ = \d{1,}
        \d* = \d{0,}

[)\.] = ¬O¡u)¡v©Î¬O¡u.¡v³æ¤@¦r¤¸
        ¦pªG³o­Ó¦r¤¸ªº¤Ç°t¥i¦³¥iµL(¥X²{0¦¸¨ì1¦¸)¡A
        ¥i¥H¦b«á­±¥[°Ý¸¹
        [)\.]? = [)\.]{0,1}

³Ì«áªº .*
    .¤~¬Oªí¥Ü¥ô·N¦r¤¸  *ªí¥Ü¥X²{0¦¸¨ì¥ô·N¦h¦¸
    §Ú¨S¦³¯S§O¥h¤Ç°t¤¤¤å¦r¡A­n¤Ç°t¥¿Å餤¤åÀ³¸Ó¬O[\u4e00-\u90a5]

­Y¨Ì§Aªº±ø¥ó:
1) ¥H¤@­Ó©Î¨â­Ó¼Æ¦r§@¶}©l¡A¥]§t¤¤°ê¼Æ¦r¤@¤G¤T¥|¤­¤»¤C¤K¤E¤Q
2) ¼Æ¦r«á·|¥H¡u)¡v¡B¡u.¡v§@¤À¹j(¦³®É­Ô¬O¨S¦³)
3) ¤§«á¥]§t¤F¤@ªÅ®æ (¥²©w¤@ªÅ®æ)
4) ¤§«á±µ¥¿Å餤¤å (°²³]¦Ü¤Ö¤@¤¤¤å¦r)

¥i¼g¦¨
^[0-9¤@¤G¤T¥|¤­¤»¤C¤K¤E¤Q]{1,2}[)\.]?\s[\u4e00-\u90a5]+"
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡µLªk¾B¾×¡j©È®É¶¡®ø³u¡Aªá¤F³\¦h¤ß¦å¡A·QºÉ¦U¦¡¤èªk­n¾B¾×®É¶¡¡Aµ²ªG¬O¡G®ö¶O¤F§ó¦h®É¶¡¡A¥B¤@µL©Ò¦¨¡I
ªð¦^¦Cªí ¤W¤@¥DÃD