请求帮助，按年度和月度提取数据。

幸运方格

请看一下附件，谢谢。

chxw68

详见附件。

幸运方格

chxw68 发表于 2024-9-5 09:15
详见附件。

谢谢您，可否帮改一下，根据提供的名称和排序进行筛选，如果名称没有数据就空着。

limonet

Sub limonet()
    Dim Cn As Object, StrSQL$
    Set Cn = CreateObject("Adodb.Connection")
    Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
    StrSQL = "Select year(日期) as Y,month(日期)+iif(day(日期)>20,1,0) as M,iif(供货单位 like '%（%',left(供货单位,len(供货单位)-5),供货单位) As N,数量 As Q From [数据$F5:T]"
    StrSQL = "Select Y,iif(m>12,1,M) As M,N,Q From (" & StrSQL & ")"
    StrSQL = "Select Y,M,筛选名称 As N,Q From [筛选结果$B:B]a Left Join (" & StrSQL & ")b On a.筛选名称=b.N"
    StrSQL = "TransForm Sum(Q) Select Y,N From (" & StrSQL & ") Group By Y,N Pivot M"
    Set Rst = Cn.Execute(StrSQL)
    For j = 0 To Rst.Fields.Count - 1
        Cells(1, j + 1) = Rst.Fields(j).Name
    Next j
    Sheet3.Range("A2").CopyFromRecordset Rst
End Sub

limonet

关键字：IIF+PIVOT

chxw68

修改好了。

幸运方格

chxw68 发表于 2024-9-5 12:26
修改好了。

谢谢您，再麻烦一下您，筛选条件有点问题，不好意思。

chxw68

供货单位中的圆括号一定要用中文圆括号。

blackttea1

感兴趣，谢谢分享1