【Excel VBA编程】批量数据操作：同一表单中表格数据合并

目录

引言

问题分析与设计

找到所有内容为“姓名”的单元格

顺次读取小表格信息

程序入口设计

代码实现

运行结果

---

引言

如下图，Sheet1表单中有一批小表格，具体是多少呢，就往大了猜吧，几万、几十万......摆放的位置没有规律，都是随意的，需要将它们的信息合并到一个表格中显示

合并后生成一个新的表格，按照姓名、职位、联系电话、邮箱顺次显示，显示格式如下：

 你们有没有遇到过这类的问题呢？比如将名片换成设备信息等，虽然内容不相同，但数据处理的逻辑都是一样的。

如果只是几个或是十几个，手工复制粘贴的话根本不成问题，关键就是数量超级的多，看来走手工操作的路行不通，那么就需要借助工具了，对于Excel表中数据的处理，优先推荐的就是VBA了 ，真是不要太好用，一次编码之后就可以重复利用了。

问题分析与设计

刚拿到数据时，这些小表格位置不固定，对怎样获取这些数据有点懵，的确不清楚如何入手。先分析这些小表格，它们都有共同的特点，全部都是以“姓名”字段开始的4行两列的数据，任意一个小表格，只要能将存储“姓名”的行号和列号获取到，其他的数据就顺次能获取到了。

那么这个问题就变成了扫描整个Sheet列表，将所有的存储“姓名”的单元格找到，将该单元格的行号和列号记录下来，问题就迎刃而解了，那么我们就按照这个思路去操作。

找到所有内容为“姓名”的单元格

在Sheet1表单的已使用的单元格区域内遍历全部单元格，可以借助For循环和UsedRange属性来实现。For循环应该都不陌生，一直都在使用，更详细的信息可以参考我公众号文章：VBA之循环次数你知道，就请For...Next来帮忙 。下面对UsedRange加以详细说明&#x