求多个表格按姓名批量拆分后汇总在一个表格里面

焦糖木鱼

chxw68 发表于 2020-2-13 10:27
前几天刚写过一个，供楼主参考吧。

真好，就是这样
我把代码复制过去，就变成固定是按B1那个来分，这个要怎么改啊

焦糖木鱼

chxw68 发表于 2020-2-13 10:26

555，点完不知道文件存哪里了，找不到

焦糖木鱼

3190496160 发表于 2020-2-13 09:17

  .Name = bb
          d(aa)(bb).Copy .Range("a1")
        End With
      Next
      .SaveAs Filename:=ThisWorkbook.Path & "" & aa
      .Close False
    End With
  Next
  Application.ScreenUpdating = True
  MsgBox "数据拆分完毕！"
End Sub

是不是改name=bb这个？
我忽然想到，我每个表格里面，名字在的那个都不是同一列，这样能弄吗

焦糖木鱼

公司大概的表格是这样

chxw68

焦糖木鱼 发表于 2020-2-13 13:49
555，点完不知道文件存哪里了，找不到

你的附件不真实，所以我在10楼也说了代码”供你参考“！

chxw68

焦糖木鱼 发表于 2020-2-13 14:17
公司大概的表格是这样

你的附件大概是这样的，我的代码也只能大概是这样的。

3190496160

焦糖木鱼 发表于 2020-2-13 13:54
.Name = bb
          d(aa)(bb).Copy .Range("a1")
        End With

所以说我一直强调让您上传真实的文件，当然可以解决，只是稍显麻烦而已啦