数据排版--求助大神！！！

bensontc

求助大神
想把附件中的sheet2表格的数据处理成sheet1的模式，并进行汇总
弄了一天的数字字典还是不知道怎么汇总处理，格式合并项太多，头都被转晕了还是没法处理
而且这个数据太多了，还有很多类似的这个文件处理

哪位大神能帮忙用VBA处理下，万分感激！
sheet1的模板为
total：对应竖行的总数量
rolls:对应竖行不为不为空的单元格数
下面就是总的数量和个数的统计

bensontc

新人一枚，哪位大神来个，谢谢！

bensontc

对这个问题我自己的思路如下：
（1）对原有的表格进行排序，按关键字：型号，色号，卷号，米数依次排序整理
（2）分离出不重复的型号，按sheet1的模板形式带入数据（3）分离出型号+色号的个数，按sheet1的模板形式带入色号数据
（4）按分好顺序的表格，把各个卷号与米数按sheet1的模板带入数据
（5）统计带入数量的数据并显示
大致的思路是这样，但自己的VBA功底不够，数组和字典的方式结合，把自己都转晕了！
求助！！！

bensontc

自己的再顶下！

bensontc

按自己的思路来说不对的，在考虑通过数组控制来调整显示内容，自己琢磨得很失败！！！

魂断蓝桥

bensontc 发表于 2018-8-27 14:54
自己的再顶下！

数据排版.rar (17.93 KB, 下载次数: 20)

2018-8-28 14:24 上传

点击文件名下载附件

Option Explicit

Sub A()
Dim cnn, rs As Object, Sql As String, Arr, BRR, I%, J%, R%, t%, M%
Set cnn = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.Recordset")
cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
Sql = "select distinct 型号 from [sheet2$A1:A] where len(型号)>0"
Arr = cnn.Execute(Sql).getrows
Sheets("数据").Cells.Clear
For I = 0 To UBound(Arr, 2)
    Sql = "select distinct 色号 FROM [Sheet2$a1:c] where 型号='" & Arr(0, I) & "'"
    BRR = cnn.Execute(Sql).getrows
    t = t + 1
    Sheets("模板").[a1:l27].Copy Sheets("数据").Range("a1").Offset((t - 1) * 28, 0)
     Sheets("数据").[A1].Offset((t - 1) * 28, 0) = Arr(0, I)
     M = 0
        For J = 0 To UBound(BRR, 2)
            Sql = "SELECT 卷号,数量 FROM [Sheet2$a1:d] where 型号='" & Arr(0, I) & "' AND 色号=" & BRR(0, J) & "" _
                & " order by val(卷号)"
            If rs.State Then rs.Close
            rs.Open Sql, cnn, 1, 1
                With Sheets("数据")
                    Do While Not rs.EOF
                        M = M + 1
                        MsgBox Range("a3").Offset((t - 1) * 28 - 1, (M - 1) * 2).Address
                        .Range("a3").Offset((t - 1) * 28 - 1, (M - 1) * 2) = BRR(0, J) & "#"
                        .Range("a4").Offset((t - 1) * 28, (M - 1) * 2).CopyFromRecordset rs, 20
                    Loop
                End With
        Next
Next
Set rs = Nothing
Set cnn = Nothing
End Sub

bensontc

大神，太感谢了，赶紧学习学习
谢谢
谢谢
谢谢
激情的事情说三遍！！！

bensontc

@魂断蓝桥  你这个思路比我想象的简单的太多了，对自己的打击太大了，欲哭无泪，我再数组和字典的圈圈里转不出来；这个SQL语句太精辟了！！！

魂断蓝桥

bensontc 发表于 2018-8-29 13:58
@魂断蓝桥  你这个思路比我想象的简单的太多了，对自己的打击太大了，欲哭无泪，我再数组和字典的圈圈里转 ...

没啥，旁观者清而已。

bensontc

Sql = "SELECT 卷号,数量 FROM [Sheet2$a1:d] where 型号='" & Arr(0, I) & "' AND 色号=" & BRR(0, J) & "" _
                & " order by val(卷号)"
实际使用过程中，发现 色号 这一栏如果是文本的时候，过程会报错，这个怎么处理？
调试了了半天怎么转化过来，类型不对的吗，但我看前面没有去定义这个数组的啊？
麻烦请再协助下