excel 字段分列vba程序

Sub 分离()

  For i = 2 To 7

    a = Cells(i, 1) '取1组拼音

    If Mid(a, 2, 1) = "h" Then '第2个为"h"则执行

      b = Mid(a, 1, 2) '取前2个字符

      Cells(i, 2) = b '赋值到单元格

      a = WorksheetFunctionSubstitute(a, b, "") '从a中去掉已取字符

    ElseIf Mid(a, 3, 1) = "h" Then '第3个为"h"则执行

      b = Mid(a, 1, 3) '取前3个字符

      Cells(i, 2) = b '赋值到单元格

      a = WorksheetFunctionSubstitute(a, b, "") '从a中去掉已取字符

    Else '否则执行

      b = Mid(a, 1, 1) '取第1个字符

      Cells(i, 2) = b '赋值到单元格

      a = WorksheetFunctionSubstitute(a, b, "") '从a中去掉已取字符

    End If

    c = Len(a) '求a中字符数

    For j = 1 To c '循环

      b = Mid(a, j, 1) '取第1个字符

      Cells(i, j + 2) = b '赋值到单元格

    Next j

  Next i

End Sub

  如果你说你的h不在第2个，那你就不是拼音了，普通小写英文字符串而已，规则看我说得对不对：h及h前面都是声母。会不会出现如shdi或tshdi这种形式的字符串？代码已经修改并测试成功。

1、数据选项卡里有个分列按钮。

2、按照提示 *** 作就可以达到效果。

3、也可以用VBA程序来解决。

4、方法就是把要分列的单元格看成一个整体。

5、之后用程序分割这个单元格。

6、可以上传附件到论坛，让网友帮助解答。

试试腾讯文档的在线表格，它们有个「智能分列」的功能，能智能识别内容，一键自动分列整理，无需学习，简单好用高效。我整理群接龙信息都是用的这个。

具体 *** 作：

1、把内容复制粘贴到腾讯文档在线表格里

2、选中要整理的内容，点击「智能分列」，就能自动完成分列整理了

一键智能分列的结果：

嗯，就完成了！这个功能真的超爱~大家可以试试。

以上就是关于excel 字段分列vba程序全部的内容，包括:excel 字段分列vba程序、Excel 如何将单列文本拆分变成为多列、EXCEL如何分列等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！