如何将excel表中的数据按照固定格式自动填充到模板中，并生成多个表格

搁浅灬

怎么才能把总表的数据按照固定格式拆分到分表中，黄色是需要拆分的数据，分表的序号是1000+总表的排序号。

数据比较多将近一万条，之前都是一个个复制粘贴，求一个大神帮忙写个代码快些完成任务！！！

搁浅灬

求大神来看一眼，总表只有四列

3190496160

Sub test()
Application.ScreenUpdating = False
Set sh = ThisWorkbook.Worksheets(1)
Set sht = ThisWorkbook.Worksheets("模板")
ar = sh.[a1].CurrentRegion
For i = 1 To UBound(ar)
    If Trim(ar(i, 1)) <> "" Then
        sht.Copy
        With ActiveWorkbook.Worksheets(1)
            .[c2] = "1000" & ar(i, 1)
            .[c3] = ar(i, 2)
            .[e3] = ar(i, 3)
            .[g3] = ar(i, 4)
        End With
         ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "1000" & ar(i, 1)
         ActiveWorkbook.Close
    End If
Next i
Application.ScreenUpdating = False
MsgBox "ok!"
End Sub

3190496160

总表.rar (14.36 KB, 下载次数: 119)

2020-2-17 17:11 上传

点击文件名下载附件

搁浅灬

3190496160 发表于 2020-2-17 17:11

谢谢大佬！！！

搁浅灬

3190496160 发表于 2020-2-17 17:10
Sub test()
Application.ScreenUpdating = False
Set sh = ThisWorkbook.Worksheets(1)

你好，这个代码有点问题，不能用，不过还是要感谢你

3190496160

搁浅灬 发表于 2020-2-17 20:28
你好，这个代码有点问题，不能用，不过还是要感谢你

在你上传的附件中测试是完全没问题的，模板已经放到总表文件中了，同时，一个不能用，也太模糊了吧

搁浅灬

3190496160 发表于 2020-2-17 20:54
在你上传的附件中测试是完全没问题的，模板已经放到总表文件中了，同时，一个不能用，也太模糊了吧

不好意思，是我自己的问题，没用对，你这个代码很好，很好用，非常感谢！

suihuas

Sub test()
Application.ScreenUpdating = False
Set sh = ThisWorkbook.Worksheets(1)
Set sht = ThisWorkbook.Worksheets("模板")
ar = sh.[a1].CurrentRegion
For i = 2 To UBound(ar)
    If Trim(ar(i, 1)) <> "" Then
        sht.Copy
        With ActiveWorkbook.Worksheets(1)
            .[c2] = ar(i, 3)
            .[G2] = ar(i, 4)
            .[C6] = ar(i, 5)
        End With
         ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & ar(i, 3)
         ActiveWorkbook.Close
    End If
Next i
Application.ScreenUpdating = False
MsgBox "ok!"
End Sub
您好，不知道卡在”  ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & ar(i, 3)“这里，然后弹出无效过程调用或参数“的提示，请问知道什么原因吗？@3190496160