王志軍
處理表格數(shù)據(jù)時(shí)遇到問(wèn)題:從網(wǎng)頁(yè)表格中復(fù)制來(lái)的數(shù)據(jù),地址一列中出現(xiàn)類(lèi)似于“4AWZCX萬(wàn)載老林業(yè)局2”的無(wú)用字符前綴?,F(xiàn)在希望提取第一個(gè)漢字及其之后的所有內(nèi)容(圖1),尋求高效分離中英文及數(shù)字的實(shí)操方法。
如果使用Excel 2016,可以借助自動(dòng)填充功能實(shí)現(xiàn)。打開(kāi)“Excel選項(xiàng)”對(duì)話框,切換到“高級(jí)”面板(圖2),在右側(cè)窗格檢查勾選“為單元格值啟用記憶式鍵入”和“自動(dòng)快速填充”復(fù)選框;接下來(lái)在B2單元格手工輸入“萬(wàn)載老林業(yè)局2”,在B3單元格手工輸入“永”,此時(shí)即可看到自動(dòng)匹配提示,直接按下回車(chē)鍵即可(圖3)。
在編輯欄輸入公式“=MID(A2,MATCH(1=1,LENB(MID(A2,ROW($1:$25),1))=2,),25)”,按下Ctrl+Shift+Enter組合鍵轉(zhuǎn)換為數(shù)組公式,執(zhí)行之后即可從A2單元格提取第一個(gè)漢字和之后的所有內(nèi)容。向下拖拽或雙擊填充柄,即可看到圖1所示的效果。
按下Alt+F11組合鍵,打開(kāi)Microsoft Visual Basic for Applications編輯器窗口,依次選擇“插入→模塊”,在右側(cè)窗格插入一個(gè)空白模塊,在這里輸入或粘貼如圖所示代碼(圖4)。(下載地址:http://pan.baidu.com/s/1kU0wsaN 密碼:ixzz)
上述代碼名稱(chēng)“CommandButton1_Click”可根據(jù)喜好任意設(shè)置,檢查無(wú)誤后依次選擇“文件→關(guān)閉并返回到Microsoft Excel”命令,返回Excel主界面,按下Alt+F8組合鍵,打開(kāi)“宏”對(duì)話框,選擇并運(yùn)行宏,稍等片刻就可以完成提取任務(wù)。