有条件提取数据

laughingsun

示例中是按A&B两列做为关键字合并汇总提取各表数据，现能否按A?和B有条件提取各表数据：A&B（如选B列部门中的嘉和园店化妆品，就B列中只选一个部门）？请老师们帮忙！见附件！

dgerwin

最头疼的是按照别人的思路，去理解别人的程序。
能不能交给原来编程序的去修改？

laughingsun

dgerwin 发表于 2019-7-24 20:39
最头疼的是按照别人的思路，去理解别人的程序。
能不能交给原来编程序的去修改？

原来汇总合并的数据结果不正确，我参照网上的例子修改好了。只是突发奇想，能不能做到我要求的那样！自己试了好多次也没有成功，刚学代码不久，遇到这种问题不知从何着手，如老师愿意，可按你自己的思路帮我重写一下代码，不胜感激！

liangmutou01

见代码：
Sub hz()
  If IsEmpty([q1]) And IsEmpty([r1]) Or Not IsEmpty([q1]) And Not IsEmpty([r1]) Then
    MsgBox "q1和r1单元格既不能同时为空，也不能同时有内容。q1为商品；r1为部门，更正后重试。"
    Exit Sub
  End If
  Set conn = CreateObject("ADODB.Connection")

  Range("a2:p65536").ClearContents
  If IsEmpty([q1]) Then
    bm = [r1]: bs = "b": [b2] = [r1]
  Else
    bm = [q1]: bs = "s": [a2] = [q1]
  End If
  lj = ThisWorkbook.Path & "\"
  wjm = Dir(ThisWorkbook.Path & "\*.xls")
  Do While Len(wjm) > 0
    If ThisWorkbook.FullName <> lj & wjm Then
      conn.Open "provider=microsoft.ace.oledb.12.0;extended properties='excel 12.0;HDR=yes';data source='" & lj & wjm & "'"
      For lie = 4 To Cells(1, Columns.Count).End(xlToRight).Column
        If Cells(1, lie) = Left(wjm, Len(wjm) - 4) Then Exit For
      Next lie
      If bs = "b" Then
        Cells(2, lie).CopyFromRecordset conn.Execute("select sum(记帐销售金额) from [Sheet1$] where 部门='" & bm & "' group by 部门;")
      Else
        Cells(2, lie).CopyFromRecordset conn.Execute("select sum(记帐销售金额) from [Sheet1$] where 商标名称='" & bm & "' group by 商标名称;")
      End If
    End If
    wjm = Dir
    If conn.State = 1 Then conn.Close
  Loop
  Range("c2").Formula = "=sum(d2:p2)"
  set conn=nothing
End Sub

liangmutou01

把原文件一并发给你。

laughingsun

liangmutou01 发表于 2019-7-26 13:31
把原文件一并发给你。

老师辛勤了，非常感谢！你的代码是一个很好的思路，可以选择字段中的类别求和！我的本意是，选择字段中的类，然后列出该类明细，比如选择部门中的“嘉和园店化妆品”，在汇总表中列出“嘉和园店化妆品”下“商品名称”的明细再汇总！两次表示感谢！

liangmutou01

好的，我修改一下。

liangmutou01

只改了部门汇总，有清单，未对统计数据进行逐一核对。

laughingsun

liangmutou01 发表于 2019-7-30 15:01
只改了部门汇总，有清单，未对统计数据进行逐一核对。

谢谢老师的答复，辛苦了，是我想要得到的格式！万分感谢！早上验证了一下，各横行合计数和纵行的合计列数据是对的，但纵行各个月份的数据对不上。如9月份，嘉和园店化妆品9月份表中合计数为462053.28，汇总表中运行程序后则为577946.37。嘉和园店化妆品9月份表中明细数据有些增加，有些减少：如紫金花应为7603.64，汇总表中运行程序后则为20014.67，值增加了12411.03；又如奥斯曼应为350.08，汇总表中运行程序后则为301.44，减少了48.64；又如ABC应为3913.17，汇总表中运行程序后则为4487.29，增加了574.12。老师如有空帮我再看看！

liangmutou01

[img]file:///C:/Users/liang/AppData/Roaming/Tencent/Users/22972251/QQ/WinTemp/RichOle/6[ZXA0QQ~%25Q2%60M2[EZZA$82.png[/img]
你检查一下你的数据，在我机子上9月的数据都是对的。