本文的內(nèi)容是關(guān)于Excel工作表中的列操作方法,，即把一個單元格拆分成多個單元格的方法。

其實菜單欄里有一個快捷功能,，可以在‘?dāng)?shù)據(jù)’—‘單獨’里找到,。

本文介紹了如何用代碼實現(xiàn)排序操作。

首先,，了解一下在Range對象下使用的Parse方法,。

語法：

表情。Parse (ParseLine_,，Destination_)

比如：

范圍(' A1 '),。解析'[xx] [xxx]'范圍(' B1 ')

上面的代碼是將A1單元格的內(nèi)容拆分后添加到兩個單元格中，從B1開始,，將內(nèi)容添加到C1,，是B1的前兩個字符，C1是第四,、第五,、第六個字符，第三個字符被丟棄,。如果要用的話,，去掉中間的空格，也就是'[xx][xxx]'就可以實現(xiàn)分類的結(jié)果,。

具體方法如下圖所示：

這里有一個例子,。我們將電話號碼的區(qū)號和主叫號碼分成以下單元。

很明顯中間有個'-'號,，不需要,，所以用了一個空格代替vba.space(1),，這是第五個字符。

代碼：

private Sub split phone number()dim xr as range,，r as range為xr中的每個r設(shè)置xr=range ('b:b20 '),，如果不是VBA.len (VBA.trim (r.value))=0，則r.parse' [xxxx]' VBA.space (1)' [