根据条件提取不重复值

浮游无木

之前论坛求助过提取不重复值VBA代码，多谢大家帮助解决了，尤其感谢NadrsSaber。现再次求助大家。需求将“底档”C列货名为“集装箱”和“杂货”，“底档”B列为“进”所对应的A列不重复值提取至“表格”A4以下，“底档”B列为“出”所对应的A列不重复值提取至表格F4以下。万分感谢！

liulang0808

Sub tq()
    Set dc = CreateObject("scripting.dictionary")
    Set dj = CreateObject("scripting.dictionary")
    arr = Sheets(2).UsedRange
    For j = 2 To UBound(arr)
        If arr(j, 2) = "出" Then
            dc(arr(j, 1)) = ""
        Else
            If arr(j, 2) = "进" Then
                If arr(j, 3) = "集装箱" Or arr(j, 3) = "杂货" Then
                    dj(arr(j, 1)) = ""
                End If
            End If
        End If
    Next j
    If dj.Count > 1 Then
        [b4].Resize(dj.Count) = WorksheetFunction.Transpose(dj.keys)
    End If
    If dc.Count > 1 Then
        [f4].Resize(dc.Count) = WorksheetFunction.Transpose(dc.keys)
    End If
End Sub

liulang0808

附件内容供参考。。。。。

WYS67

liulang0808 发表于 2020-1-19 18:44
附件内容供参考。。。。。

版主威武！    顺祝版主老师新春快乐！

浮游无木

liulang0808 发表于 2020-1-19 18:44
附件内容供参考。。。。。

多谢版主啦 我先去试试，如有问题再请教。

浮游无木

liulang0808 发表于 2020-1-19 18:44
Sub tq()
    Set dc = CreateObject("scripting.dictionary")
    Set dj = CreateObject("scripting.di ...

版主我没描述清楚，应该是需求将“底档”C列货名为“集装箱”和“杂货”，“底档”B列为“进”所对应的A列不重复值提取至“表格”A4以下。将“底档”C列货名为“集装箱”和“杂货”，“底档”B列为“出”所对应的A列不重复值提取至表格F4以下。少打了红色字体的部分，所以出提取出来的是所以的货类，自己尝试改了下，但是进口就不显示啦，还是麻烦版主给改下把
arr = Sheets(2).UsedRange
    For j = 2 To UBound(arr)
        If arr(j, 2) = "出" Then
           If arr(j, 3) = "集装箱" Or arr(j, 3) = "杂货" Then
            dc(arr(j, 1)) = ""
        Else
            If arr(j, 2) = "进" Then
                If arr(j, 3) = "集装箱" Or arr(j, 3) = "杂货" Then
                    dj(arr(j, 1)) = ""

浮游无木

版主还需要麻烦下，因为我没描述清楚需求，所以出口提取出来了全部货类，自己试着改了下，但是进口不能提取了，我将需求改下还请版主给修改下代码，感谢感谢
需求将“底档”C列货名为“集装箱”和“杂货”，“底档”B列为“进”所对应的A列不重复值提取至“表格”A4以下。
      将“底档”C列货名为“集装箱”和“杂货”，“底档”B列为“出”所对应的A列不重复值提取至“表格”F4以下。

liulang0808

1. Sub tq()
   
2.     Set dc = CreateObject("scripting.dictionary")
   
3.     Set dj = CreateObject("scripting.dictionary")
   
4.     arr = Sheets(2).UsedRange
   
5.     For j = 2 To UBound(arr)
   
6.         If arr(j, 3) = "集装箱" Or arr(j, 3) = "杂货" Then
   
7.             If arr(j, 2) = "出" Then
   
8.                 dc(arr(j, 1)) = ""
   
9.             Else
   
10.                 If arr(j, 2) = "进" Then
    
11.                     dj(arr(j, 1)) = ""
    
12.                 End If
    
13.             End If
    
14.         End If
    
15.     Next j
    
16.     If dj.Count > 1 Then
    
17.         [b4].Resize(dj.Count) = WorksheetFunction.Transpose(dj.keys)
    
18.     End If
    
19.     If dc.Count > 1 Then
    
20.         [f4].Resize(dc.Count) = WorksheetFunction.Transpose(dc.keys)
    
21.     End If
    
22. End Sub
    

复制代码

liulang0808

附件内容供参考。。。。。。

jeff_ps2009

谢谢楼主的例子和大神的解答，不过我有点搞不懂这个不重复的逻辑~~~   

假如序号：320010002    进出状态：出    货物：集装箱
                 320010002     进出状态：出    货物：杂货

那最后的结果只显示一个 320010002。  这种情况怎么办？

还是说，楼主的例子里面不可能存在同样序号和同样的进出状态，而货物即是集装箱又是杂货？如果存在，怎么判断？