求助：多表头有合计行表尾的多工作簿合并

紫寒100

wrl168 发表于 2021-4-20 12:39
一键选择数据源文件，完成加载看一下是不是你要的效果

老师，我想把所有项目对应合并可以吗，比如电专业的"分配总量"，建设专业的“设总分配金额”和“建筑专业分配金额”,并且不止这两个专业，还有水专业工作簿等等，

紫寒100

wrl168 发表于 2021-4-20 12:39
一键选择数据源文件，完成加载看一下是不是你要的效果

姓名那列没有填写的话下面是空白，能不能以这列为标准判断呢？其他列都有不确定性，设计号有的有号有的是0或空白，

紫寒100

donghui2363 发表于 2021-4-21 10:58
你测试一下
Sub 指定合并()
Dim wk As Workbook, sht As Worksheet, dcnt As Integer

谢谢啦 ，我去试试。

紫寒100

donghui2363 发表于 2021-4-21 13:20
看看对不对

老师指定字段合并说子过程或函数未定义，全部合并出现这样的问题  这句
  wkname = Application.Transpose(arr)
C:\Users\Administrator\Desktop[img][/img]

紫寒100

donghui2363 发表于 2021-4-21 10:58
你测试一下
Sub 指定合并()
Dim wk As Workbook, sht As Worksheet, dcnt As Integer

这个指定合并可以合并，如果我想列字段，就不能了，能不能修改一下代码，增加或者减少同样可以。

紫寒100

donghui2363 发表于 2021-4-21 10:58
你测试一下
Sub 指定合并()
Dim wk As Workbook, sht As Worksheet, dcnt As Integer

老师增加后，合计行表尾空行就保存下来了。

donghui2363

紫寒100 发表于 2021-4-21 15:25
这个指定合并可以合并，如果我想列字段，就不能了，能不能修改一下代码，增加或者减少同样可以。

指定合并按照你表格所列的列标题取查找的

donghui2363

紫寒100 发表于 2021-4-21 15:20
老师指定字段合并说子过程或函数未定义，全部合并出现这样的问题  这句
  wkname = Application.Transpo ...

邪门啊，第一遍发的有\，第二遍用论坛的代码发的就没有\
arr = wkname(ThisWorkbook.Path & "\")

紫寒100

donghui2363 发表于 2021-4-21 13:20
看看对不对

老师，我知道是怎么回事了，我再研究一下。

紫寒100

donghui2363 发表于 2021-4-21 13:20
看看对不对

我修改这个Path & "\"后，可以运行，但是，全部提取时分配总量和比例，没有数据，还有一个专业整个专业都没有数据。