如何在总表输入数据，分表自动同步更新呢？

yiran7810

各位大侠，你们好！小弟是一个菜鸟，现在遇到一个难题，向各位大侠求助：有一个学生花名册，总表是动态的，需要增加数据的。在总表输入数据后，相关的分表就自动同步增加数据，但格式跟总表的格式不一样。先谢谢各位大侠！

zpy2

工作表拆分了解一下，还有就是需要时进行动态查询

3190496160

总是有人在追求同步更新，其实就是一个拆分问题呀，总表数据更新了，再重新拆分一次不就行了吗

3190496160

Sub 拆分()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With Sheets("总表")
    r = .Cells(Rows.Count, 2).End(xlUp).Row
    ar = .Range("a3:e" & r)
End With
For i = 2 To UBound(ar)
    If Trim(ar(i, 1)) <> "" Then
        d(ar(i, 2)) = ""
    End If
Next i
For Each k In d.keys
    n = 0
    ReDim br(1 To UBound(ar), 1 To UBound(ar, 2))
    For i = 2 To UBound(ar)
        If ar(i, 2) = k Then
            n = n + 1
            br(n, 1) = n
            For j = 3 To UBound(ar, 2)
                br(n, j - 1) = ar(i, j)
            Next j
        End If
    Next i
    m = 0
    With Sheets(k & "班")
        rs = .Cells(Rows.Count, 2).End(xlUp).Row + 1
        .Range("a4:e" & rs) = Empty
        .Range("g4:k" & rs) = Empty
        For i = 1 To n Step 35
            m = m + 1
            If m = 1 Then
                xh = 1
            Else
                xh = 7
            End If
            w = 3
            For s = i To i + 34
                If s <= n Then
                    If br(s, 2) <> "" Then
                        w = w + 1
                        .Cells(w, xh).Resize(1, UBound(br, 2)) = Application.Index(br, s, 0)
                    End If
                End If
            Next s
        Next i
    End With
Next k
MsgBox "ok"
End Sub

3190496160

一年级新生花名册.rar (106.14 KB, 下载次数: 19)

2021-7-5 08:52 上传

点击文件名下载附件

bajifeng

对花名册总表写以下事件代码
Private Sub Worksheet_Deactivate()
   '拆分总表
End Sub