麻烦大神看一下条件拆分的问题

jjc_1212

原表数据量比较大，按照条件快速拆分

无敌小猪猪

仅供参考！

jjc_1212

无敌小猪猪 发表于 2024-4-2 12:50
仅供参考！

其他和特殊产品怎么解决？

jjc_1212

无敌小猪猪 发表于 2024-4-2 12:50
仅供参考！

特殊产品也没剔除，大神这个怎么解决啊

LIUZHU

特殊产品发货的箱数：如发货数据中的数量/产品分类中的包装率得出的箱数数据不是特殊产品数中箱/托数据的整倍数，则向上取整
这个规则，建议举例说明下。

无敌小猪猪

我只是仅供参考啊，有的需求描述不清或者我没理解到位也是正常的嘛

jjc_1212

LIUZHU 发表于 2024-4-2 14:31
特殊产品发货的箱数：如发货数据中的数量/产品分类中的包装率得出的箱数数据不是特殊产品数中箱/托数据的整 ...

包装率100，发货数据是2550，箱托是20，2550/100=25.5，25.5小于20的倍数，则按照40发

笨鸟飞不高

新建 XLSX 工作表.zip (26.5 KB, 下载次数: 6)

2024-4-2 15:39 上传

点击文件名下载附件

limonet

关键字：union all+where

limonet

这个有点费脑。
Sub limonet()
    Dim Cn As Object, StrSQL$, StrSQL1$, Sht As Worksheet
    Set Cn = CreateObject("Adodb.Connection")
    Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
    StrSQL1 = "Select * From [产品分类$] Union All Select 特殊编码,'特殊' as 分类,[箱/托] From [特殊产品$]"
    For Each Sht In Worksheets
        If Sht.Index > 3 Then
            If Sht.Name = "其他" Then
                StrSQL = "Select 代码,Null,供应商,编码,数量 As 箱数 From [发货数据$] Where 编码 Not In(Select 编码 From (" & StrSQL1 & "))"
            ElseIf Sht.Name Like "特殊*" Then
                StrSQL = "Select * From (" & StrSQL1 & ") Where 分类='" & Left(Sht.Name, 2) & "'"
                StrSQL = "Select 代码,Null,供应商,b.编码,int(数量/包装率)+IIF(数量/包装率>int(数量/包装率),1,0) As 箱数 From (" & StrSQL & ")a Left Join [发货数据$]b On a.编码=b.编码 Where Not b.编码 is Null"
                Else
                StrSQL = "Select * From (" & StrSQL1 & ") Where 分类='" & Left(Sht.Name, 2) & "'"
                StrSQL = "Select 代码,Null,供应商,b.编码,数量/包装率 As 箱数,分类 From (" & StrSQL & ")a Left Join [发货数据$]b On a.编码=b.编码 Where Not b.编码 is Null"
            End If
            Sht.Range("A2").CopyFromRecordset Cn.Execute(StrSQL)
        End If
    Next Sht
End Sub