excel如何拆分单元格多列内容(Excel拆分单元格文本)

NO.1

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

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

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

excel如何拆分单元格多列内容(Excel拆分单元格文本)(1)

NO.2

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

其具体参数如下图介绍。

excel如何拆分单元格多列内容(Excel拆分单元格文本)(2)

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

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

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

excel如何拆分单元格多列内容(Excel拆分单元格文本)(3)

NO.3

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

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

excel如何拆分单元格多列内容(Excel拆分单元格文本)(4)

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

NO.4

代码

excel如何拆分单元格多列内容(Excel拆分单元格文本)(5)

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

以空格分割按钮代码

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

欢迎关注、收藏

,

免责声明:本文仅代表文章作者的个人观点,与本站无关。其原创性、真实性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容文字的真实性、完整性和原创性本站不作任何保证或承诺,请读者仅作参考,并自行核实相关内容。文章投诉邮箱:anhduc.ph@yahoo.com

    分享
    投诉
    首页