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

grf1973

1. Sub tt()
   
2.     arr = [a1].CurrentRegion
   
3.     ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
   
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 UBound(arr, 2): brr(n, j) = arr(i, j): Next
    
12.         End If
    
13.     Next
    
14.     If n > 0 Then
    
15.         With Sheet2
    
16.             .Cells.ClearContents
    
17.             Rows(1).Copy .Rows(1)
    
18.             .[a2].Resize(n, UBound(arr, 2)) = brr
    
19.             .Activate
    
20.         End With
    
21.     End If
    
22. End Sub

复制代码

grf1973

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

13958206051

grf1973 发表于 2015-9-25 14:08
请看附件。筛选的判断条件为第6句  If InStr(arr(i, 4), "婚庆") > 0 Then d(arr(i, 1)) = ""。如果加了列后 ...

谢谢可以了！！！

13958206051

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

你好，我刚才又检查了一下，，我新表的婚庆列到第6列， 我按照你说的改成6，，他把别的系列的小票也提取过去了。。我能加你QQ直接说明吗？麻烦了

13958206051

grf1973 发表于 2015-9-25 14:06

前面的列的格式一定要和我发的模板一样的吗？

grf1973

第1列是小票号。其他无所谓。