valueÔÚexcelÖÐÔõô½â¾ö£¨·ÖÎöÈçºÎÔÚExcelÖÐʵÏÖ¾«×¼ÌáÈ¡£©

ʱ¼ä: 08-13 À¸Ä¿:ѧϰ·½·¨
Êý¾ÝÌáÈ¡ÊÇExcelÖг£¼ûµÄÒ»ÀàÎÊÌâ¡£


¶ÔÓÚÏà¶Ô¹æÂɵÄÊý¾Ý£¬ÎÒÃÇ¿ÉÒÔÓú¯Êý£¨ÈçÓÃLeft¡¢Mid¡¢Right£©ÌáÈ¡£¬»òÕßÓ÷ÖÁС¢¿ìËÙÌî³äµÈ·½Ê½ÊµÏÖ¿ìËÙÌáÈ¡¡£



µ«ÓÐЩÊý¾Ý»òÎı¾£¬¸ù±¾Ã»ÓйæÂÉ¿ÉÑÔ£¬Ïë´ÓÖÐÌáÈ¡Ä¿±êÎı¾²»ÊÇÒ»¼þÈÝÒ×µÄÊ¡£

ÀýÈçͼÖÐBÁе¥Ôª¸ñÖеij¤Îı¾£¬Öмä¿ÉÄܼÈÓÐÊÖ»úºÅÂ룬ÓÖÓÐ×ù»úºÅÂ룬ÇÒÕâЩµç»°ºÅÂëµÄλÖò»¹Ì¶¨¡£¿ÉÒÔ˵£¬ÕâÊÇÒ»·ÝÍêÈ«ÔÓÂÒÎÞ¹æÂɵÄÊý¾Ý¡£


ÎÊÌâÀ´ÁË——ÏñÕâÑùµÄÎÞ¹æÂÉÎı¾£¬ÔõôÔÚExcelÖÐʵÏÖ¾«×¼ÌáÈ¡ÄØ£¿½ñÌìÎÒÃÇÀ´½éÉÜÒ»¸öÖØÒªµÄ֪ʶµã£ºÕýÔò±í´ïʽ¡£


01ʲôÊÇÕýÔò±í´ïʽ£¿


ÕýÔò±í´ïʽ£¨Regular Expression£©£¬ÔÚ´úÂëÖг£¼òдΪregex¡¢regexp»òRE£¬ÊǼÆËã»ú¿ÆѧµÄÒ»¸ö¸ÅÄͨ³£±»ÓÃÀ´¼ìË÷¡¢Ìæ»»ÄÇЩ·ûºÏij¸öģʽ£¨»ò¹æÔò£©µÄÎı¾¡£


ºÜ¶à³ÌÐòÉè¼ÆÓïÑÔ¶¼Ö§³ÖÀûÓÃÕýÔò±í´ïʽ½øÐÐ×Ö·û´®²Ù×÷£¬°üÀ¨VBA¡£ÕýÔò±í´ïʽ±íÏÖΪһ´®ÓÉÌáÇ°¶¨ÒåºÃµÄÌض¨×Ö·û¡¢»òÓÉÕâЩÌض¨×Ö·ûµÄ×éºÏËù¹¹³ÉµÄ“¹æÔò×Ö·û´®”£¬Èç“\d+”¾ÍÊÇÒ»¸öÕýÔò±í´ïʽ£¬±íʾÈÎÒâ¶àλµÄÊý×Ö¡£


ÕýÔò±í´ïʽÖУ¬Ò»°ã°üÀ¨Á½Àà×Ö·û£¬Ò»ÖÖÊÇÕý³£µÄÎı¾×Ö·û£¬ÁíÒ»ÖÖÊÇÔª×Ö·û£¨¾ÍÊÇÖ¸ÄÇЩÔÚÕýÔò±í´ïʽÖоßÓÐÌØÊâÒâÒåµÄרÓÃ×Ö·û£©¡£±ÈÈ磬ÕýÔò±í´ïʽ“\babc”±íʾÒÔ“abc”¿ªÍ·µÄ×Ö·û´®£¬ÆäÖГabc”¼´ÎªÕý³£µÄÎı¾×Ö·û£¬¶ø“\b”ÔòÊÇÒ»¸öÔª×Ö·û£¬´ú±í“ÒÔÌض¨×Ö·û¿ªÍ·µÄ”¡£


ÒÔÏÂΪ´ó¼ÒÕûÀíÁ˳£ÓõÄһЩÕýÔò×Ö·û¡£

02ÀûÓÃÕýÔò±í´ïʽÌáÈ¡Ä¿±êÊý¾Ý


»Øµ½±¾½Ú¿ªÍ·µÄÎÊÌâ——´Ó³¤Îı¾ÖÐÌáÈ¡µç»°ºÅÂë¡£


ΪÁË׼ȷÌáÈ¡³öµç»°ºÅÂ룬ÎÒÃÇÐèҪд³öµç»°ºÅÂë¶ÔÓ¦µÄÕýÔò±í´ïʽ¡£ÓÉÓÚºÅÂëÖÐÈ«ÊÇÊý×Ö£¬Òò´Ë¿ÉÒÔʹÓÃÔª×Ö·û\d£¨´ú±íÊý×Ö£©¡£¶øÊÖ»úºÅÓë×ù»úºÅÓÖÓв»Í¬£¬ÊÖ»úºÅÊÇ11λÁ¬ÐøÊý×Ö£¬¶ø×ù»úÔòÊÇ“4λÇøºÅ-8λºÅÂ딵ĸñʽ£¬Òò´ËÌáÈ¡ÊÖ»úºÅºÍ×ù»úºÅµÄÕýÔò±í´ïʽÊDz»Í¬µÄ¡£


ÌáÈ¡ÊÖ»úºÅ£º\d{11}£¬±íʾÁ¬ÐøµÄ11λÊý×Ö£¬Ò²¿ÉÒÔÓãº1\d{10}£¬¼´1¿ªÍ·ÇÒºóÃ滹ÓÐ10¸öÊý×Ö¡£


ÌáÈ¡×ù»úºÅ£º\d{4}-\d+£¬±íʾ“-”Ç°ÓÐ4λÊý×Ö£¬“-”ºóÃæÖÁÉÙÓÐ1λÊý×Ö¡£


ͬʱÌáÈ¡ÊÖ»úºÅºÍ×ù»úºÅ£º\d{11}|\d{4}-\d+£¬“|”´ú±íÌõ¼þ»ò£¬Òò´Ë½«Ç°ÃæÁ½¸öÕýÔò±í´ïʽÓÓ|”Á¬ÆðÀ´£¬¾Í¿ÉÒÔͬʱÌáÈ¡ÊÖ»úºÅºÍ×ù»úºÅ¡£


Àí½âÁËÕýÔò±í´ïʽ£¬½ÓÏÂÀ´×î¹Ø¼üµÄÎÊÌâÀ´ÁË——ÕýÔò±í´ïʽҪдÔÚÄÄÀÈçºÎÀûÓÃÕýÔò±í´ïʽÀ´ÌáÈ¡Ä¿±êÎı¾ÄØ£¿


ÔÚExcelÖУ¬ÎÒÃÇÐèÒª½èÖúVBAÀ´ÊµÏÖ£¬µ«ÊÇÈç¹ûÄã°²×°ÁË”Excel³¬ÄÜÁ¦“²å¼þ£¬ÔòÖ±½ÓÔÚÕýÔòÊäÈë¿òÖÐÊäÈëÕýÔò±í´ïʽ¼´¿É£¬ÍùÏ¿´£¬»á½éÉܵ½¡£


·½Ê½1——ÔÚVBAÖÐÓ¦ÓÃÕýÔò±í´ïʽ


µÚ1²½£ºALT + F11£¬´ò¿ªVBE£¬²¢Ð½¨Ò»¸öÄ£¿é£»


µÚ2²½£ºÔÚÄ£¿éÖбàдÈçÏ´úÂ룺


Sub ÌáÈ¡µç»°()

    Dim i, j As Long

    Dim reg AsObject, PNums As Object

    Set reg =CreateObject("VBScript.RegExp") ‘´´½¨ÕýÔò¶ÔÏó

    reg.Global = True

    reg.Pattern = "\d{11}|\d{4}-\d+" ‘ÕýÔòģʽ£¬Ö¸¶¨Ä¿±êÎı¾µÄÕýÔò±í´ïʽ

    For i = 3 ToCells(2, 2).End(4).Row

    Set PNums =reg.Execute(Cells(i, 2).Value) ‘¶Ôµ¥Ôª¸ñÎı¾Ö´ÐÐÕýÔò±í´ïʽ

    For j = 0 ToPNums.Count - 1

    Cells(i,j + 3).Value = PNums(j).Value

    Next j

    Next i

    End Sub


µÚ3²½£ºÔËÐгÌÐò£¬Ò»¼ü¼´¿ÉÍê³É×Ô¶¯ÌáÈ¡¡£


´úÂëÖУ¬Set reg =CreateObject("VBScript.RegExp")´´½¨ÁËÕýÔò¶ÔÏó£¬reg.Pattern = "\d{11}|\d{4}-\d+"Ö¸¶¨ÁËÓÃÓÚÆ¥ÅäµÄÕýÔòģʽ£¬¼´ÕýÔò±í´ïʽ¡£×îºóͨ¹ýÑ­»·±éÀú£¬¶Ô¸÷¸öµ¥Ôª¸ñÖ´ÐÐÕýÔòÔËË㣨reg.Execute(Cells(i, 2).Value)£©£¬²¢½«½á¹ûÒÀ´ÎÌîÈëÄ¿±êµ¥Ôª¸ñ¡£


·½Ê½2——ÔÚExcel³¬ÄÜÁ¦²å¼þÖÐʵÏÖÌáÈ¡


ÔÚExcelÄÚ£¬Ïë½â¾öÎÞ¹æÂÉÎı¾µÄ×Ô¶¯ÌáÈ¡ÎÊÌ⣬ÄãÐèÒª——µÚÒ»£¬¾ß±¸Ò»¶¨µÄVBA֪ʶ£»µÚ¶þ£¬ÒªÊìÁ·ÕÆÎÕÕýÔò±í´ïʽ¡£µ«ÊÇ£¬´ó²¿·ÖÅóÓѲ¢Ã»ÓÐѧϰ¹ýVBA£¬¼´Ê¹¸øµ½´úÂ룬һʱ°ë»áÒ²ÄÑÒÔÀí½â£¬¸ü̸²»ÉÏÁé»îÓ¦ÓÃÁË¡£


ËùÒÔ£¬½ö½öÕÆÎÕÕýÔò±í´ïʽÊDz»¹»µÄ¡£


Òò´Ë£¬ÎªÁË·½±ã´ó¼Ò£¬ÎÒÔÚ”Excel³¬ÄÜÁ¦“²å¼þÖÐÉè¼ÆÁËÒ»¸öרÃÅÓÃÀ´Íê³ÉÕýÔòÌáÈ¡µÄ¹¦ÄÜ¡£²»ÐèҪдVBA´úÂ룬ֻҪÔÚÕýÔòÌáÈ¡¿òÄÚÊäÈëÕýÔò±í´ïʽ£¬¾Í¿ÉÒÔ×Ô¶¯Íê³ÉÌáÈ¡£¬·Ç³£Ö®·½±ã£¡


ÏÂÃæÒÔÌáÈ¡µç»°ºÅÂëΪÀý£¬À´¿´²Ù×÷²½Öè¡£


µÚ1²½£ºÔÚÕýÔòÌáÈ¡¿òÄÚÊäÈëÕýÔò±í´ïʽ£º\d{11}|\d{4}-\d+£¬È»ºó°´»Ø³µ¼üÖ´ÐУ»

µÚ2²½£ºÔÚµ¯³öµÄ¶Ô»°¿òÖÐÑ¡ÔñÒª´¦ÀíµÄÇøÓò£¬¼´B3:B6£¬È·¶¨£»


µÚ3²½£ºÔÚµ¯³ö²Ëµ¥ÖÐÑ¡ÔñÌáÈ¡½á¹ûµÄ´æ·ÅλÖã¬Ñ¡µÚ1¸öµ¥Ôª¸ñ¼´¿É£¬ÕâÀïΪC3µ¥Ôª¸ñ£¬È·¶¨ºó£¬Excel³¬ÄÜÁ¦¾Í»á°ïÎÒÃÇÍê³É×Ô¶¯ÌáÈ¡¡£

ÌáÈ¡ºóµÄ½á¹ûÈçÏ£º

ÊìÁ·ÕÆÎÕÕýÔò±í´ïʽºó£¬Äã»á¾õµÃÕâ¸ö¹¦ÄܼòÖ±ºÃÓñ¬ÁË¡£ÔÙ¾ÙÁ½¸öÀý×Ó¡£

´ÓÎı¾ÖÐÌáÈ¡Éí·ÝÖ¤ºÅ——ÓÉÓÚÉí·ÝÖ¤ºÅºóһλÓпÉÄÜÊÇX£¬Òò´ËÕýÔò±í´ïʽ¿ÉÒÔдΪ£º\d+X?£¬¼´±¾Àý³¤Îı¾ÖÐÖÁÉÙÓÐ1λÊý×ÖÇÒ½á¹ûÊÇÊý×Ö»òÕß×ÖĸXµÄ×ÓÎı¾¡£

´Ó΢ÐŽÓÁúÖÐÌáÈ¡½ð¶î——ÉÏͼÖÐBÁÐÎı¾À´×ÔÒ»·Ý΢ÐÅȺ½ÓÁú£¬ÓÉÓÚÿ¸öÈ˵ÄÌîдϰ¹ß²»Í¬£¬ÓÐÈËʹÓõĽð¶îµ¥Î»ÎªÍò£¬Ò²ÓÐÈËÓÃСдµÄw£¬»¹ÓÐÈËÓôóдµÄW£¬×ÜÖ®¶¼±íʾµÄ“Íò”¡£


¶øÇÒ£¬½ð¶îÊý×Ö³ýÕûÊýÍ⣬ÓеÄÊý×Ö»¹°üº¬Ð¡Êý¡£Òò´Ë£¬ÓÃÕýÔò±í´ïʽ“\d+(\.)?\d*[ÍòwW]”±íʾÕâÒ»Àà½ð¶îÊý×Ö¡£


´ËÍ⣬ÓÉÓÚÓÐЩÈËÓÐÁ½¸öÕË»§±©À×£¬Òò´ËÌîдµÄ½ð¶îΪ“Êý×Ö1+Êý×Ö2”µÄģʽ£¬ÎªÁ˽«ÕâÀàÊý×ÖÒ²ÌáÈ¡³öÀ´£¬Ê¹ÓÃÕýÔò±í´ïʽ£º\d+\+\d{1,}¡£


Èç¹ûÏëͬʱ½«ÕâÁ½Àà½ð¶îÐÅÏ¢ÌáÈ¡µ½Í¬Ò»ÁУ¬Ôò¿ÉÒÔÓÃÌõ¼þ»ò“|”½«Á½¸öÕýÔò±í´ïʽÁ¬ÆðÀ´£¬ÐγÉÒ»¸öеÄÕýÔò±í´ïʽ£º\d+(\.)?\d*[ÍòwW]|\d+\+\d{1,}¡£


½«ÉÏÊöÕýÔò±í´ïʽÊäÈëµ½Excel³¬ÄÜÁ¦µÄ”ÕýÔòÌáÈ¡"¿òÄÚ£¬°´²½ÖèÑ¡ÔñÊý¾ÝÇøÓòºÍÄ¿±êµ¥Ôª¸ñ£¬¾ÍÄÜ¿ìËÙʵÏÖÄ¿±ê½ð¶îµÄÌáÈ¡¡£


¡ñ ³¬ÄÜÁ¦¿ÎÌãº
Ò»¼üÌáÈ¡ÖÐÎÄ¡¢Ó¢ÎÄ¡¢Êý×Ö¡¢ÊÖ»úºÅ¡¢ÍøÖ·µÈÐÅÏ¢


ÔÚExcel³¬ÄÜÁ¦µÄ¡¾Îı¾´¦Àí¡¿Öл¹ÓÐÒ»¸ö¡¾ÖÇÄÜÌáÈ¡¡¿¹¦ÄÜ£¬¼´Ê¹Äã²»ÖªµÀÕýÔò±í´ïʽÔõôд£¬Ò²¿ÉÒÔÍê³ÉÒ»¼üÌáÈ¡¡£


ÕâЩÌáÈ¡Ä¿±ê°üÀ¨——ÌáÈ¡ÖÐÎÄ¡¢ÌáÈ¡Ó¢ÎÄ¡¢ÌáÈ¡Êý×Ö¡¢ÌáÈ¡ÊÖ»úºÅ¡¢ÌáÈ¡µç»°ºÅÂë¡¢ÌáÈ¡Éí·ÝÖ¤ºÅ¡¢ÌáÈ¡ÓÊÕþ±àÂë¡¢ÌáÈ¡EmailµØÖ·¡¢ÌáÈ¡HTML±ê¼Ç¡¢ÌáÈ¡IPµØÖ·¡¢ÌáÈ¡URL¡£


°²×°Á˳¬ÄÜÁ¦µÄÅóÓÑ£¬¿ÉÒÔ×ÔÐг¢ÊÔ¡£
  • ·ÖÒ³ >>
ÔĶÁÈ«²¿
ΪÄãÍƼö