excel如何拆分单元格多列内容（Excel拆分单元格文本）

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

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

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

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

其具体参数如下图介绍。

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

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

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

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

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

一般情况下，这样的操作是将某些Text文件导入数据表之后，发现没有进行分列，然后进行的一项操作。如果数据量比较大的话，这个方法过程十分有必要，除可以提高工作效率之外，也会使得表格更加美观。

代码

代码较多但大多重复，只有一些关键代码不同，所以在学习的时候，一定要抓住关键点，其它就容易理解了。

以空格分割按钮代码

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---

欢迎关注、收藏