Excel分列方法汇总.docVIP

函数： 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 3、 “分列”功能： (1)对于16012/501450=460|00|9771|3591此类数据，如果只是想提取前5位的话，还可以通过EXCEL中“数据”-“分列”的功能来实现。 实现方法：首先要确保16012/501450=460|00|9771|3591数据所在列的后续几列是没有数据的，避免分列后将后续列的数据覆盖了，当然了，覆盖之前EXCEL会有提示窗口弹出的。 然后选中需要分列的列，接着点击“数据”-“分列”，弹出如下图所示窗口： 点击“下一步”，如下： 因为16012/501450=460|00|9771|3591数据中16012后面的是“/”符号，所以在上图的“其他”选项中要相应的填“/”符号，然后“下一步”： 点击“完成”，之后就能看到原16012/501450=460|00|9771|3591数据所占用的列，被16012占用，其他剩余数据501450=460|00|9771|3591后移到了下一列。 (2)如果遇到9771|3591这样的数据，我们想将3591提取出来，该怎么办呢？用left函数不行，用2中的“分列”方法也不行，因为在键盘上找不到“|”这样的符号，无法输入。 ?? 对这种情况，也可以用“数据”-“分列”，只是方式不同于2所描述的内容。 ?? 实现方法：首先也要确保9771|3591数据所在列的后续列是没有数据的，然后点击“数据”-“分列”，弹出窗口： 注意，这里要选择“固定宽度”方式，然后点击“下一步”，此处与2不同，弹出如下窗口： 在上图，将鼠标移动到“数据预览”中的标尺上，在“10”的位置，按下鼠标左键，按住不要松开，然后移动到“|”这