[已解决]求类别含婚庆的所有明细

13958206051

解释一下，相同的小票编号算一单，如果此单中含婚庆，则把所有含婚庆的明细都列出来。

最佳答案

月排行榜 / 总排行榜

grf1973

2015-9-25 14:08

请看附件。筛选的判断条件为第6句  If InStr(arr(i, 4), "婚庆") > 0 Then d(arr(i, 1)) = ""。如果加了列后商品类别的列数发生了改变，相应把arr(i,4)中的“4"改成新列数就行了。

跳转到最佳答案楼层

13958206051

有人吗

zyouong

函数求助.rar (396.99 KB, 下载次数: 2)

2015-9-25 10:36 上传

点击文件名下载附件
数据透视表就行

13958206051

zyouong 发表于 2015-9-25 10:36
数据透视表就行

你得出的这是婚庆的销售，我要的是先得到含婚庆的小票。再把所有这些小票的销售明细提取出来

zyouong

非函数方法.rar (102.49 KB, 下载次数: 2)

2015-9-25 11:10 上传

点击文件名下载附件

grf1973

1. Sub tt()
   
2.     arr = [a1].CurrentRegion
   
3.     ReDim brr(1 To UBound(arr), 1 To 4)
   
4.     Set d = CreateObject("scripting.dictionary")
   
5.     For i = 2 To UBound(arr)
   
6.         If InStr(arr(i, 4), "婚庆") > 0 Then d(arr(i, 1)) = ""
   
7.     Next
   
8.     For i = 2 To UBound(arr)
   
9.         If d.exists(arr(i, 1)) Then
   
10.             n = n + 1
    
11.             For j = 1 To 4: brr(n, j) = arr(i, j): Next
    
12.         End If
    
13.     Next
    
14.     If n > 0 Then
    
15.         [h:k].ClearContents
    
16.         [h1].Resize(1, 4) = Array("小票编号", "销售数量", "销", "商品类别")
    
17.         [h2].Resize(n, 4) = brr
    
18.     End If
    
19. End Sub

复制代码

zyouong

函数也可以，但这么大的数据量，很卡的。

13958206051

zyouong 发表于 2015-9-25 11:15
函数也可以，但这么大的数据量，很卡的。

你好，，问下有什么函数可以吗？

13958206051

grf1973 发表于 2015-9-25 11:15

谢谢你的编程！

13958206051

grf1973 发表于 2015-9-25 11:15

你好，因为我对VBA是小白，我想问下，我想把筛选出来的内容在另外一个sheet体现怎么修改？而且我要增加几列别的内容。。。不会