作者：乔山办公网日期：
返回目录：excel表格制作
嗯。没有办法多列同时分列。
可以用公式来处理。抓图上来？
看图：
附件可下载参考
将原表复制一份，到下方空白区域，或者到新的Sheet。
然后用下列简单的方法：
方法1：
用批量替换就可以。
把第zhidao5、6列分别拷到记事本，然后把斜杠/，批量替换为Tab制表符（专在记事本中按下Tab键，然后选择复制这个字符串，作为替换后的字符串）
然后从记事本将文本拷回到Excel，空白列。会自动分成两列数据。
然后分别将这两列，覆盖原表中的列，就OK了
方法2：
用公式就可属以了。假设要分隔的数据在E列，对E2单元格进行处理：
=LEFT(E2,FIND("/",E2)-1) 得到 斜杠/前的字符串
=RIGHT(E2,LEN(E2)-FIND("/",E2)+1) 得到 斜杠/后的字符串
假设zhidao你这样的数据内在A列，要在B列，把Columns("A:A").Select改成容Columns("B:B").Select
Sub Macro1()
'
' Macro1 Macro
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="*", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
End Sub