NO.1

工作当中有一种情况，在一个单元格内有不同的数据，想要分别拆开到不同的列当中，如何用一个简单的办法实现？

如一列单元格内有这样的数据：“潘金莲，12345678，大宋XXX府”，分别对应姓名、电话、地址字段，将这些内容分别放到三个字段列里面。

下面介绍一个方法，来实现对一个单元格内容进行拆分的操作方法。

NO.2

用到上面的这个方法：TextToColumns，它是Range对象下的方法。

其具体参数如下图介绍。

这个方法十分有用，参数也比较多，使用过程中根据不同拆分内容进行参数设置。

比如拆分的时候，要以某些字符作为拆分标识，有","逗号，“；”分号，“ ”空格，“Tab”制表符等等。

下面用一个例子来示范一下。

NO.3

本例中分别以不同字符进行演示，可以直观地看到四个按钮对应不同的字符操作。

拆分内容在第一列当中，以后台代码形式进行添加。

一般情况下，这样的操作是将某些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单元格。

不同分割符参数：