王臨

表姐前來(lái)求助，Excel工作表大都是類(lèi)似于“正品現(xiàn)貨Emporio Armani 阿瑪尼男士修身長(zhǎng)袖打底T恤111023 3A515-tmall.hk天貓國(guó)際”的商品名稱(chēng)（如圖1），現(xiàn)在希望將兩邊中文字符之間的英文品牌名稱(chēng)“Emporio Armani”提取出來(lái)，由于這些商品名稱(chēng)幾乎不具備統(tǒng)一的規(guī)律，因此無(wú)法采取分列的方法，如果純粹采取手工操作的方法，工作量相當(dāng)之大，而且容易出錯(cuò)。有沒(méi)有簡(jiǎn)單一些的方法呢？

初步解決方案：由于使用的是Excel 2013，因此首先考慮的是快速填充功能，在B2單元格手工輸入“Emporio Armani”，選中B2：B184單元格區(qū)域，切換到“數(shù)據(jù)”選項(xiàng)卡，單擊“數(shù)據(jù)工具”功能組的“快速填充”按鈕，可以獲得如圖2所示的結(jié)果。遺憾的是雖然已經(jīng)省去不少工作量，但仍然需要進(jìn)行相應(yīng)的手工修改，可以說(shuō)這種方法并不完美。

VBA代碼完美解決：根據(jù)表姐的需求，考慮VBA代碼，經(jīng)過(guò)反復(fù)嘗試、修改，建議她使用如下代碼：

Public Sub abc（）

Dim ar， i

ar = Range（[a2]， [a65536].End（3））

With CreateObject（"vbscript.regexp"）

.Global = True

For i = 1 To UBound（ar）

.Pattern = "^[＼u4e00-＼u9fa5]{0，}（[^＼u4e00-＼u9fa5]+）[＼u4e00-＼u9fa5]+.+$"

ar（i， 1） = Trim（.Replace（ar（i， 1）， "$1"））

.Pattern = " ＼D{1，3}$| ＼d+$"

ar（i， 1） = .Replace（ar（i， 1）， ""）

Next

End With

[b2].Resize（UBound（ar）） = ar

[b：b].Replace "；*"， ""， 2

End Sub

按下“Alt+F11”組合鍵，打開(kāi)Microsoft Visual Basic編輯器窗口，選擇“插入/模塊”，在右側(cè)窗格插入一個(gè)空白模塊，輸入或粘貼代碼（也可以從http：//pan.baidu.com/s/1kTLpG7X下載代碼文件），檢查無(wú)誤之后，選擇“文件/關(guān)閉并返回到Microsoft Excel”命令，返回Excel主界面，按下“Alt+F8”組合鍵，打開(kāi)“宏”對(duì)話(huà)框，運(yùn)行宏即可。