SXB8113 2010-11-26

選中這一列，點“資料”——分列——選分隔符號——選其他——-輸入“（”，完成分列後，再做一次按“）”分列，兩次做完後，英文一列，中文一列，英文一列。再刪除不需要的列。

foxconn_fy 2010-11-26

Sub aa（）

Dim x， y， lChar， i， bb（）， p， j， m

x = ActiveCell。Row

y = ActiveCell。Column

p = Len（Cells（x， y）。Value）

ReDim bb（1 To p）

For i = 1 To p

bb（i） = Mid（Cells（x， y）。Value， i， 1）

Next

For j = 1 To p

lChar = 65536 + Val（Asc（bb（j）））

If lChar >= 45217 And lChar <= 55289 Then

m = m + bb（j）

End If

Next

Cells（x， y）。Value = m

選擇此單元格，按alt+f8建立一個宏，把裡面的東西全刪了，複製程式碼進去，關閉後，回到excel再按alt+f8 點aa執行，試試吧

3khzt 2010-11-26

日前看來沒有特別的辦法，如果格式固定，可以嘗試用這個公式=if（len（a1）=12，MID（A1，8，2），mid（a1，8，3））

此處以A1單元格為例。

網友1ee60a465 2010-11-26

編輯——替換，查詢替換，在“查詢內容”裡輸入 ^$（就是在高階——特殊字元裡選擇“任意字母”） ，“替換為”裡面什麼都不輸，全部替換。

linzhili1980 2010-11-26

沒辦法，只能逐個刪除掉了