用ExcelVBA实现自动拆分单元格中的内容到多行中

1、新建一个“Excel 启用宏的工作簿(*.xlsm)”。比如新建“自动拆分单元格为多行.xlsm”，并在工作表中输入一些文字，如下图所示：

2、我们想把步骤一里输入的表格里，第2行第2列、第2行第3列，这两个单元格的内容拆分为多行，如下图所示：

3、通过ExcelVBA编程，实现“自动拆分单元格中的内容到多行中”。 自动拆分程序应该满足以下三个功能要求：1）可拆一，也可拆多：既可以拆分一个单元格中的内容，也可以拆分一行多列单元格区域中的内容；2）一行多列，不完全对应时，也能拆：比如表1中，虽然“详述”列多了第6项，但仍可以拆成表2的形式；3）未拆的部分，自动复制：比如表2中，“健胃消食片”就是自动复制的。

4、编写代码 代码分了三部分：第1步，把拆分的数据存放到数组里；第2步，在所选区域上方，插入行，并且复制所选区域的内容；第泌驾台佐3步，将数组中的数据覆盖拆分区域。 全部代码，详见我在百度知道上对“Excel中如何将一个单元格中几行分内容拆分到不同的行，并保持同行其他单元格不变？”问题的回答，也可以查阅我在简书上发布的文章《用ExcelVBA实现自动拆分单元格中的内容到多行中》。问题链接https://zhidao.baidu.com/question/681411224136691972.html

5、在工作表中插入 按钮 控件，关联步骤四的程序，即可实现点击按钮就自动拆分的效果。如下图所示：