我们在使用Excel办公软件的时候，有时会遇到这种情况：我们想把一个或多个单元格中的内容拆分到多行。 目前，已有百度经验给出了“使用Excel自带的数据分列功能”可以实现一个单元格中的内容 拆分为 多列。但是还没有人给出“拆分单元格中的内容到多行”的方法。 本条百度经验，正是要弥补这一空缺。工具/原料moreExcel 2016Excel VBA方法/步骤1/5分步阅读

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

2/5

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

3/5

通过ExcelVBA编程，实现“自动拆分单元格中的内容到多行中”。

自动拆分程序应该满足以下三个功能要求：

1）可拆一，也可拆多：既可以拆分一个单元格中的内容，也可以拆分一行多列单元格区域中的内容；

2）一行多列，不完全对应时，也能拆：比如表1中，虽然“详述”列多了第6项，但仍可以拆成表2的形式；

3）未拆的部分，自动复制：比如表2中，“健胃消食片”就是自动复制的。

4/5

编写代码

代码分了三部分：

第1步，把拆分的数据存放到数组里；

第2步，在所选区域上方，插入行，并且复制所选区域的内容；

第3步，将数组中的数据覆盖拆分区域。

全部代码，详见我在百度知道上对“Excel中如何将一个单元格中几行分内容拆分到不同的行，并保持同行其他单元格不变？”问题的回答，也可以查阅我在简书上发布的文章《用ExcelVBA实现自动拆分单元格中的内容到多行中》。

问题链接https://zhidao.baidu.com/question/681411224136691972.html

5/5

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

注意事项

本文适合有ExcelVBA基础的同学。

如果您觉得方法还不错，别忘记点个赞，您的支持是我持续努力的动力，谢谢~

EXCELVBA单元格拆分