excel2016分列单元格函数汇总：

　　1、 函数：

　　TRIM+MID+SUBSTITUTE+REPT：

　　A2单元格值为” 1,★,zhongguo,北京,Excel”，将其分为1、★、zhongguo、北京、Excel：

　　(1)在B2单元格输入” =TRIM(MID(SUBSTITUTE($A2,",",REPT(" ",50)),50*COLUMN(A:A)-49,50))”，向右填充可得;

　　(2)在B2单元格输入” =TRIM(MID(SUBSTITUTE($A2,",",REPT(" ",LEN($A2))),LEN($A2)*(COLUMN(A:A)-1)+1,LEN($A2)))”，向右填充可得。

　　MID+FIND：

　　A2单元格为” 中国VS英国”，将其分为“中国”、“英国”：

　　在B2单元格输入” =MID(A2,1,FIND("V",A2)-1)”， 在C2单元格输入” =MID(A2,FIND("S",A2)+1,10)”。

　　Left：

　　(1)LEFT 基于所指定的字符数返回文本字符串中的第一个或前几个字符。

　　语法：LEFT(text,num_chars)

　　Text 是包含要提取字符的文本字符串。

　　Num_chars 指定要由 LEFT 所提取的字符数，Num_chars 必须大于或等于 0，如果 num_chars 大于文本长度，则 LEFT 返回所有文本，如果省略 num_chars，则假定其为 1。

　　例如：返回16012/501450=460|00|9771|3591中的16012

　　=left("16012/501450=460|00|9771|3",5)回车即可

　　2、VBA代码：

　　比如说，当你有一列数为a;b;c,随后以";"为分隔符，使用分列菜单将其分为三列，第一列内容为a、第二列为b、第三列为c：

　　代码如下：

　　Sub ResetText2ColumnsDelimiter()

　　Dim rngEmptyCell As Range

　　On Error Resume Next

　　Set rngEmptyCell = ActiveSheet.Cells.SpecialCells(xlCellTypeBlanks).Cells(1, 1)

　　rngEmptyCell.Value = "ABC"

　　rngEmptyCell.TextToColumns Destination:=rngEmptyCell, _

　　DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _

　　ConsecutiveDelimiter:=False, Tab:=True, _

　　Semicolon:=False, Comma:=False, Space:=False, _

　　Other:=False, FieldInfo:= Array(1, 1), TrailingMinusNumbers:=True

　　rngEmptyCell.Clear

　　End Sub

　　总结：以上就是全部的内容，相信大家肯定对这个函数有了比较深的了解了，希望网友们认真理解，做到灵活使用。