请问，怎么实现这种总表分表同步更新

凉下

分表里面的件数是每天都不一样，但是全部要同步到总表，类似多个表汇集到总表。



例子：
第一天分表件数：100，总表件数：100
第二天分表件数：50，总表件数：150，以此类推，一共30天

总表添加新人员，分表全部统一添加，总表格式最好能不变，方便往下添加人员

例子：
总表白五下面添加：刘六，7.1-7.3的分表全部往下添加：刘六

我用VSTACK实现如下图，还有几个问题不知道怎么解决

3190496160

这个vba能过做的事情吧

凉下

3190496160 发表于 2024-7-19 17:03
这个vba能过做的事情吧

不想用VBA，想说有什么函数可以实现

3190496160

Sub 汇总()
Application.ScreenUpdating = False
Dim ar As Variant
Dim d As Object
Dim br()
Set d = CreateObject("scripting.dictionary")
ReDim br(1 To 50000, 1 To 3)
For Each sh In Sheets
    If sh.Name <> "总表" Then
        r = sh.Cells(Rows.Count, 1).End(xlUp).Row
        If r > 1 Then
            ar = sh.Range("a1:c" & r)
            For i = 2 To UBound(ar)
                If ar(i, 1) <> "" Then
                    t = d(ar(i, 1))
                    If t = "" Then
                        k = k + 1
                        d(ar(i, 1)) = k
                        t = k
                        br(k, 1) = ar(i, 1)
                    End If
                    For j = 2 To UBound(ar, 2)
                        br(t, j) = br(t, j) + ar(i, j)
                    Next j
                End If
            Next i
        End If
    End If
Next sh
With Sheets("总表")
    .[a1].CurrentRegion.Offset(1).Borders.LineStyle = 0
    .[a1].CurrentRegion.Offset(1) = Empty
    .[a2].Resize(k, UBound(br, 2)) = br
    .[a2].Resize(k, UBound(br, 2)).Borders.LineStyle = 1
End With
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

案例.rar (21.12 KB, 下载次数: 4)

2024-7-19 17:33 上传

点击文件名下载附件

3190496160

楼主的说法似乎是自相矛盾的，又要去重复，又要王总表添加姓名，
目前只是给你写了根据所有分表去重复后汇总的代码，供参考
具体的方案，不妨加v具体沟通

3190496160

凉下 发表于 2024-7-19 17:30
不想用VBA，想说有什么函数可以实现

那就忽略吧，

我的城市你来过

=REDUCE($A$1:$C$1,UNIQUE($A$2:$A$17),LAMBDA(x,y,VSTACK(x,HSTACK(y,BYCOL(FILTER(B2:C17,A2:A17=y),SUM)))))

我的城市你来过

=REDUCE(A1:C1,UNIQUE(FILTER($A$2:$A$999,$A$2:$A$999<>"")),LAMBDA(x,y,VSTACK(x,HSTACK(y,BYCOL(FILTER($B$2:$C$999,$A$2:$A$999=y),SUM)))))