数据拆分到模板中

huayuanlu422

数据拆分到特定的模板中，每个模板6组数据，依次复制模板填充。

huayuanlu422

朱荣兴 发表于 2018-9-14 08:13
看不懂，爱莫能助啊

先谢谢您的关注，其实就是根据Material Grade这行的内容分类，每个分类一个工作表，分好的数据直接放到模板中，每个模板放6条数据，

蓝桥玄霜

item,Customer Code,Size这些数据从何而来？
效果表中应该说明清楚。

LMY123

huayuanlu422 发表于 2018-9-14 09:14
先谢谢您的关注，其实就是根据Material Grade这行的内容分类，每个分类一个工作表，分好的数据直接放到模 ...

Sub 一列6行参考()
     Dim sht As Worksheet, n As Integer, iFlag As Boolean
     Dim ShtName() As String
     Application.DisplayAlerts = False
     For Each sht In Sheets
          If sht.Name <> "数据" And sht.Name <> "模板" And sht.Name <> "最后效果" Then sht.Delete
     Next
     Application.DisplayAlerts = True
    Set d = CreateObject("scripting.dictionary")
    arr = Sheet1.UsedRange
    For i = 4 To UBound(arr)
        zu = arr(i, 11)
        If zu <> "" Then d(zu) = d(zu) & "," & i
    Next
    Application.ScreenUpdating = False
    rmax = 6
    For Each zu In d.keys
    m = m + 1
        xrr = Split(d(zu), ",")
        rs = UBound(xrr)
        If rs Mod 6 = 0 Then
        n = (rs - 0.1) \ rmax
        Else
        n = (rs - 0.1) \ rmax + 1
        End If
        For pg = 1 To n
            Sheets("模板").Copy after:=Sheets(Sheets.Count)
            With ActiveSheet
                .Name = zu & "-" & pg
                ReDim brr(1 To rmax, 1 To UBound(arr, 2))
                s = (pg - 1) * 6
                For r = 1 To rmax
                    If r + s <= rs Then
                        i = xrr(r + s)
                            brr(r, 1) = arr(i, 3)
                            brr(r, 9) = arr(i, 11)
                            brr(r, 11) = arr(i, 12)
                    End If
                Next
                .[C5].Resize(6, 11) = brr
            End With
        Next
    Next
    Sheets("数据").Activate
    Application.ScreenUpdating = True
End Sub

LMY123

huayuanlu422 发表于 2018-9-14 09:14
先谢谢您的关注，其实就是根据Material Grade这行的内容分类，每个分类一个工作表，分好的数据直接放到模 ...

1列6行参考.rar (197.89 KB, 下载次数: 113)

2018-9-14 11:46 上传

点击文件名下载附件

huayuanlu422

LMY123 发表于 2018-9-14 11:46

谢谢，您基本做出了我想要的效果了，就是一个工作表一种Material Grade，不是一个模板一个工作表，模板里填充的就是ProductName，其他的好像没有，不过还是很感谢您

huayuanlu422

蓝桥玄霜 发表于 2018-9-14 10:17
item,Customer Code,Size这些数据从何而来？
效果表中应该说明清楚。

您好，谢谢您，数据都在数据这个工作表里了  可以核对下数据的台头

huayuanlu422

LMY123 发表于 2018-9-14 11:46

非常感谢您，我在您给我的代码里做出了我需要的东西，唯一缺陷就是一种Material Grade只用一个工作表，不过还是很感谢您，谢谢