工作当中有一种情况，在一个单元格内有不同的数据，想要分别拆开到不同的列当中，如何用一个简单的办法实现？
如一列单元格内有这样的数据：“潘金莲，12345678，大宋XXX府”，分别对应姓名、电话、地址字段，将这些内容分别放到三个字段列里面。
下面介绍一个方法，来实现对一个单元格内容进行拆分的操作方法。
用到上面的这个方法：TextToColumns，它是Range对象下的方法。
其具体参数如下图介绍。
这个方法十分有用，参数也比较多，使用过程中根据不同拆分内容进行参数设置。
比如拆分的时候，要以某些字符作为拆分标识，有","逗号，“；”分号，“ ”空格，“Tab”制表符等等。
下面用一个例子来示范一下。
本例中分别以不同字符进行演示，可以直观地看到四个按钮对应不同的字符操作。
拆分内容在第一列当中，以后台代码形式进行添加。
一般情况下，这样的操作是将某些Text文件导入数据表之后，发现没有进行分列，然后进行的一项操作。如果数据量比较大的话，这个方法过程十分有必要，除可以提高工作效率之外，也会使得表格更加美观。
NO.4代码
代码较多但大多重复，只有一些关键代码不同，所以在学习的时候，一定要抓住关键点，其它就容易理解了。
以空格分割按钮代码
Private Sub CommandButton1_Click()
Application.DisplayAlerts = False
Set texttorange = ActiveSheet.Range("A4:A15")
ActiveSheet.Range("A4:E15").Clear
With texttorange
.Value = "潘金莲 12345678 大宋朝XXX府"
.TextToColumns Destination:=Range("B4"), DataType:=xlDelimited, consecutivedelimiter:=True, Space:=True
End With
With ActiveSheet.Range("A4").CurrentRegion
.Rows(1).Font.Bold = True
.Columns(1).Font.Bold = True
.Columns.AutoFit
.Interior.Color = RGB(252, 211, 211)
.Borders.LineStyle = 1
End With
Application.DisplayAlerts = True
End Sub
上面为一个完整代码，实现以空格进行数据表拆分，也就是说要拆分的内容用空格" "符来表示一个列的开始或结束。用参数Space:=True来表示。
所以上面过程执行之后拆分成三列内容分别为：潘金莲，12345678， 大宋朝XXX府。
拆分之后的内容添加到Destination参数单元格开始的位置，也就是分别添加到B4、C4、D4单元格。
不同分割符参数：
逗号：Comma:=True
分号：Semicolon:=True
制表符：Tab:=True
空格：Space:=True
掌握上面的参数基本就可以实现简单的数据拆分技巧，但是这里有一个关键就是参数DataType:=xlDelimited必须这样设置，不要问为什么，这就是固定格式，否则就是另一种分割方式。
---END---
欢迎关注、收藏
,
