怎样用VBA按单位分别建立与会人员工作薄？

xinxin2021

任意一个文件夹中有若干个工作簿，内容都是不同会议的各单位参会人员名单。现在想把这些工作簿，按与会人员的单位分别建立工作簿，一个单位一个工作簿（有几个单位，就有几个工作簿）。通过VBA怎样实现呢？


要求执行代码时，要先弹出“打开文件夹”对话框，操作者选择原始工作簿所在文件夹，然后执行代码，把所有与会人员工作簿按单位分成若干个工作簿。如果在对话框点击“取消”，则提示“你没有选择文件夹”。新建立的工作簿的标题和文件名都要包括与会人员的单位名称。

样式见附件：

分单位建立工作簿.rar (52.07 KB, 下载次数: 14)

2023-11-18 11:22 上传

点击文件名下载附件

chxw68

详见附件。

xinxin2021

chxw68 发表于 2023-11-18 12:21
详见附件。

谢谢！单位一列的位置是不固定的，有可能是E列，也可能是F列，也可能是任意一列。但不管是哪一列，表头都是“单位”。

chxw68

xinxin2021 发表于 2023-11-18 13:54
谢谢！单位一列的位置是不固定的，有可能是E列，也可能是F列，也可能是任意一列。但不管是哪一列，表头都 ...

如果几个表的表头不一致，这样合并起来不就错位了吗？

xinxin2021

chxw68 发表于 2023-11-18 15:14
如果几个表的表头不一致，这样合并起来不就错位了吗？

谢谢提醒这个被忽略的问题！对结果文件的格式统一规范了一下。每个结果文件序号要重新编排（从1开始）。样式见附件：

一中与会人员名单.rar (8.82 KB, 下载次数: 8)

2023-11-18 17:02 上传

点击文件名下载附件

chxw68

修改好了。

xinxin2021

chxw68 发表于 2023-11-18 17:16
修改好了。

很遗憾，未能实现。我重新表述一下想法，并重新上传下源文件和结果文件样式。


任意一个文件夹中有若干个工作簿，内容都是不同会议的各单位与会人员名单。不同的工作薄的列数不同，最多的有9列，最少的有6列。

工作薄的第一行是标题，第二行是表头，表头从A2到D2依次是序号、姓名、性别、民族。E2、F2、G2、H2、I2的单元格表头名称不固定，其中一个单元格是“单位”。A列从A3单元格往下是数字序号，B列从B3单元格往下是每个人的姓名。C列从C3单元格往下每个人的性别，D列从D3单元格往下是每个人的民族。但“单位”一列的位置是不固定的，有可能是E列，也可能是F列，也可能是任意一列。但不管是哪一列，“单位”一列的表头都是“单位”。

现在想把这些工作簿，按与会人员的“单位”分别建立工作簿，一个单位一个工作簿（有几个单位，就有几个工作簿）。通过VBA怎样实现呢？

按单位建立的新工作薄样式见附件。要求执行代码时，要先弹出“打开文件夹”对话框，操作者选择原始工作簿所在文件夹，然后执行代码，把所有与会人员工作簿按单位分成若干个工作簿。如果在对话框点击“取消”，则提示“你没有选择文件夹”。新建立的工作簿的标题和文件名是：某某单位与会人员名单。


源文件夹和结果文件样式.rar (67.96 KB, 下载次数: 4)

2023-11-18 17:58 上传

点击文件名下载附件

xinxin2021

chxw68 发表于 2023-11-18 17:16
修改好了。

老师，还是没有实现，与上一个代码运行结果好像没区别，没实现按新的结果文件样式拆分工作薄。我又完整表述了一下，并附上新附件（包括原始文件和结果文件样式），见上一楼。
原始文件的列数可能是不同的，有的可能6列，有的可能9列。

shiruiqiang

褚老师的代码上修改了一下

xinxin2021

shiruiqiang 发表于 2023-11-18 22:05
褚老师的代码上修改了一下

如果把结果文件第一列的序号从1排起就尽善尽美了。