需要一个会写宏的把数据源的表分别填充生成子表

87948876 · 发表于 2021-9-15 10:03

如何写一个宏命令.zip (51.57 KB, 下载次数: 10)

总表

明细报表

按照总表的顺序，写一个宏命令填充并且生成明细表（明细表依人名为子表格名称，并且前面加序号如演示文件，麻烦大佬动动手，我这小白回天乏术了）

87948876 · 发表于 2021-9-15 10:21

3190496160 · 发表于 2021-9-15 12:29

Sub test()
Application.ScreenUpdating = False
Dim ar As Variant
Dim i As Integer
With Sheets("数据源")
r = .Cells(Rows.Count, 1).End(xlUp).Row
ar = .Range("a1:g" & r)
End With
Application.DisplayAlerts = False
For Each sh In Sheets
If sh.Index > 2 Then
      sh.Delete
End If
Next sh
Application.DisplayAlerts = True
For i = 2 To UBound(ar)
If Trim(ar(i, 2)) <> "" Then
      Sheets("模板").Copy after:=Sheets(Sheets.Count)
      With Sheets(Sheets.Count)
         .Name = ar(i, 1) & ar(i, 2)
         .[c3] = ar(i, 3)
         .[f3] = ar(i, 6)
         .[l3] = ar(i, 5)
         .[c4] = ar(i, 7)
      End With
End If
Next i
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160 · 发表于 2021-9-15 12:29

如何写一个宏命令.rar (183.64 KB, 下载次数: 12)

87948876 · 发表于 2021-9-15 14:50

3190496160 发表于 2021-9-15 12:29

麻烦问下大佬如果我增加数据这个宏会一样增加马

87948876 · 发表于 2021-9-15 15:40

3190496160 发表于 2021-9-15 12:29

麻烦大佬有空写个注释谢谢

3190496160 · 发表于 2021-9-16 08:21

会不会增加自己试试看看就知道了，至于谢注释，没有人会义务做这个枯燥乏味的事情的，

2datou · 发表于 2021-9-16 11:24

一个indirect搞定

87948876 · 发表于 2021-9-17 10:05

3190496160 发表于 2021-9-16 08:21
会不会增加自己试试看看就知道了，至于谢注释，没有人会义务做这个枯燥乏味的事情的，

万分感谢但是还有一个小问题，就是生产的每个明细自动生成一个新文件

87948876 · 发表于 2021-9-17 10:05

2datou 发表于 2021-9-16 11:24
一个indirect搞定

都是高手，我们小白就是不懂

		自动登录	找回密码
密码			免费注册

[求助] 需要一个会写宏的把数据源的表分别填充生成子表