怎样制作一个表格，根据表格模版一键生成多个子表格

278410800

各位大神，麻烦按照模版表格中，点击按钮自动将“明细台账”内容填充到“模版中”，同时按照台账内容生成多个子表，怎样设置代码。详细信息见附件

3190496160

Sub 分表()
Application.ScreenUpdating = False
Dim ar As Variant
Dim i As Long
Application.DisplayAlerts = False
For Each sh In Sheets
    If sh.Index > 2 Then
        sh.Delete
    End If
Next sh
Application.DisplayAlerts = True
With Sheets("明细台账")
    r = .Cells(Rows.Count, 4).End(xlUp).Row
    ar = .Range("c1:h" & r)
End With
For i = 2 To UBound(ar)
    If Trim(ar(i, 2)) <> "" Then
        Sheets("模版").Copy after:=Sheets(Sheets.Count)
        With ActiveSheet
            .Name = ar(i, 2)
            For j = 2 To 6
                .Cells(j, 4) = ar(i, j)
            Next j
        End With
    End If
Next i
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

模版.rar (27.83 KB, 下载次数: 26)

2022-12-12 18:53 上传

点击文件名下载附件

278410800

3190496160 发表于 2022-12-12 18:52
Sub 分表()
Application.ScreenUpdating = False
Dim ar As Variant

感谢大神，已经可以用了

ExcelShitou

感谢分享，很有用！