请各位大神帮下忙，关于多条件提取字符且去重复，并以提取出来的字符串为条件求和

不知道为什么

13547504331 发表于 2018-10-12 20:27
还是有一点没对 求和项不是那个，还有个碎石能去重复，机制砂不能。不过还是谢谢你，能完善一下吗

那请把需求详细阐述，晚点可以做

13547504331

不知道为什么 发表于 2018-10-12 21:27
那请把需求详细阐述，晚点可以做

就是机制砂还不能去重复呢，还有个求和项是汇总表中的净重列，就这两点，，昨天你做好那个你可以换个日期试试，机制砂不能去重复

LMY123

13547504331 发表于 2018-10-13 08:03
就是机制砂还不能去重复呢，还有个求和项是汇总表中的净重列，就这两点，，昨天你做好那个你可以换个日期 ...

Sub ADO_根据模板工作表_拆分工作表_固定行数()
    Application.DisplayAlerts = False: Application.ScreenUpdating = False
    If Worksheets.Count > 2 Then
        For N = Worksheets.Count To 3 Step -1
            Sheets(N).Delete
        Next
    End If
    arr = Sheets("汇总").Range("a2:Y" & Sheets("汇总").[a65536].End(3).Row)
    Set d = CreateObject("scripting.dictionary")
    For i = 2 To UBound(arr)
         d(arr(i, 2) & "#" & arr(i, 16)) = ""
    Next
    ReDim brr(1 To d.Count, 1 To 2): crr = d.keys
    For i = 1 To d.Count
        brr(i, 1) = Split(crr(i - 1), "#")(0): brr(i, 2) = Split(crr(i - 1), "#")(1)
    Next
    Set cnn = CreateObject("adodb.connection"): Set rst = CreateObject("Adodb.Recordset")
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;hdr=yes;IMEX=1';Data Source=" & ThisWorkbook.FullName
    For i = 1 To d.Count
        Sql = "Select 材料名称,规格型号,单位,SUM(净重),供货单位 from [汇总$a2:Y]  where  日期=#" & brr(i, 1) & "# and 卸货地点='" & brr(i, 2) & "' GROUP BY 材料名称,规格型号,单位,供货单位"
        rst.Open Sql, cnn, 1, 3
        rst.PageSize = 10
        For N = 1 To rst.PageCount
            Sheets("每日材料进场").Copy After:=Sheets(Worksheets.Count)
            Sheets(Worksheets.Count).Name = Year(brr(i, 1)) & "年" & Month(brr(i, 1)) & "月" & Day(brr(i, 1)) & "日" & brr(i, 2)
            If rst.PageCount > 1 Then Sheets(Worksheets.Count).Name = Year(brr(i, 1)) & "年" & Month(brr(i, 1)) & "月" & Day(brr(i, 1)) & "日" & brr(i, 2) & "★" & N
            rst.AbsolutePage = N
            With Sheets(Worksheets.Count)
                .Range("B4").CopyFromRecordset rst, rst.PageSize: .Range("E2") = brr(i, 1): .Range("B2") = brr(i, 2)
            End With
        Next
        rst.Close
    Next
    Application.DisplayAlerts = True: Application.ScreenUpdating = True
End Sub

13547504331

LMY123 发表于 2018-10-13 10:30
Sub ADO_根据模板工作表_拆分工作表_固定行数()
    Application.DisplayAlerts = False: Application.S ...

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;hdr=yes;IMEX=1';Data Source=" & ThisWorkbook.FullName



运行这段代码会出错 ，提示未找到程序，可能程序安装不正确。怎么回事

不知道为什么

13547504331 发表于 2018-10-13 08:03
就是机制砂还不能去重复呢，还有个求和项是汇总表中的净重列，就这两点，，昨天你做好那个你可以换个日期 ...

如图，照你最新的需求

不知道为什么

13547504331 发表于 2018-10-13 08:03
就是机制砂还不能去重复呢，还有个求和项是汇总表中的净重列，就这两点，，昨天你做好那个你可以换个日期 ...

                  

13547504331

不知道为什么 发表于 2018-10-13 13:58
如图，照你最新的需求

好，就是这样，能把附件传上来吗，哥

不知道为什么

13547504331 发表于 2018-10-13 14:00
好，就是这样，能把附件传上来吗，哥

附件测试。小花小花，哈哈

进场台账.zip (27.46 KB, 下载次数: 25)

2018-10-13 14:02 上传

点击文件名下载附件

13547504331

LMY123 发表于 2018-10-13 10:30
Sub ADO_根据模板工作表_拆分工作表_固定行数()
    Application.DisplayAlerts = False: Application.S ...

哥，谢谢你了 代码我把cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;hdr=yes;IMEX=1';Data Source=" & ThisWorkbook.FullName   改成cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;hdr=yes;IMEX=1';Data Source=" & ThisWorkbook.FullName这样就可以完美运行了。不过你的做的不是我想要的，我数万条数据几百天的，这样一拆分我电脑都怕炸了，，，，不过还是谢谢你！

13547504331

不知道为什么 发表于 2018-10-13 14:02
附件测试。小花小花，哈哈

还是有一个小地方没对，算了，将就吧，或者我自己琢磨琢磨