取指定日期水果

凌空一羽

求大侠帮助，里面已有字典写了各表相关数据，问题是现在是取指定日期里除了香蕉的所有水果，请各位老师下载附件帮忙解决，谢谢！

cqlpjxx

Sub 获取水果()
Dim sht As Worksheet
Set d = CreateObject("Scripting.Dictionary")
For Each sht In Worksheets

    If sht.Name <> "查询" And sht.Name <> [c2] Then
        myr = sht.Range("a1000").End(xlUp).Row
        arr = sht.Range("a1:b" & myr)
        For i = 2 To UBound(arr)
          If arr(i, 1) = [a2] And arr(i, 2) = [b2] Then d(arr(i, 1) & "," & arr(i, 2) & "," & sht.Name) = ""
        Next
    End If
Next
Sheet1.Range("f5").Resize(d.Count, 1) = Application.Transpose(d.keys)
Sheet1.Range("f5").Resize(d.Count, 1).TextToColumns comma:=True
End Sub

凌空一羽

cqlpjxx 发表于 2016-6-26 21:41
Sub 获取水果()
Dim sht As Worksheet
Set d = CreateObject("Scripting.Dictionary")

原来如此，谢谢啦，之前有想过名字的，但测试不出来，谢谢啦