清单汇总

随缘。。。。

各位老师好：


        现有两个表能否把后的分表按要求汇总到一个表，有新增分表时也会自动汇总，还请帮忙写个代码，谢谢！

于箱长

工程密码加得好

lcluck2002

只能模糊明白楼主想要什么，不敢贸然下手。

3190496160

恐怕只有楼主自己知道，你想实现什么效果

excel玉米

另一个森森清单模板中有工程保护密码，无法修改代码并上传，但估计代码差不多，将代码改为：
Sub 汇总()
Dim Arr, i%, sht, j%, Brr()
Sheets("汇总表").Range("A2:H10000").ClearContents
For Each sht In Sheets
   Debug.Print sht.Name
   If InStr("汇总, 清单模板, 装箱单,标识贴,打印模板,标识贴(备份)", sht.Name) = 0 Then
      Arr = sht.UsedRange
      For i = 6 To UBound(Arr)
         If Len(Arr(i, 6)) > 0 Then
         If Arr(i, 6) <> 0 Then
            j = j + 1
            ReDim Preserve Brr(1 To 8, 1 To j)
            Brr(1, j) = Arr(4, 3) & Arr(4, 6) & Arr(i, 3)
            Brr(2, j) = Arr(4, 3)
            Brr(3, j) = "'" & Arr(4, 6)
            Brr(4, j) = Arr(i, 3)
            Brr(5, j) = Arr(i, 4)
            Brr(6, j) = Arr(i, 6)
            Brr(7, j) = Split(sht.Name, "日")(0) & "日"
         End If
          End If
      Next i
   End If
Next sht
Sheets("汇总表").Cells(2, 1).Resize(UBound(Brr, 2), UBound(Brr)) = Application.Transpose(Brr)
End Sub

随缘。。。。

excel玉米 发表于 2023-7-10 09:34
另一个森森清单模板中有工程保护密码，无法修改代码并上传，但估计代码差不多，将代码改为：
Sub 汇总() ...

非常感谢老师能帮忙写代码，但还有两个问题1.委托情一列没有代出来，2.我在后面新增多个表时怎么才能汇总到这个表里，是要新增个控件吗。

ykcbf1100

随缘。。。。 发表于 2023-7-10 14:40
非常感谢老师能帮忙写代码，但还有两个问题1.委托情一列没有代出来，2.我在后面新增多个表时怎么才能汇总 ...

你再次求助时，你就应该先送花给帮助的人。
还有，你既然求助，为何要加工程密码呢？别人提出来了，你也不说一下密码。

excel玉米

这里brr(7,j)=arr(i,51)  下面加一行：brr(8,j)=arr(i,26)
后面新增多个工作表时，什么都不需要添加。因为在循环时就已经判断如下：
  当工作表名称不在这里面时，就会统计该表的数据。

随缘。。。。

ykcbf1100 发表于 2023-7-10 14:45
你再次求助时，你就应该先送花给帮助的人。
还有，你既然求助，为何要加工程密码呢？别人提出来了，你也 ...

不了意思，我个我还真不知道能送花，表格也是前任留下的，有密码也不知道。

excel玉米