[已解决]谢谢extyg 老师。索引+提取不重复值

lhj323323

老师：
需求如题，是关于索引+提取不重复值的，请帮我看看，我错在哪里了，谢谢了。

提取指定营业部记录.rar (53.08 KB, 下载次数: 45)

2012-10-4 23:44 上传

点击文件名下载附件

另外，我用字典却也导不出来，还报错：

    For i = 1 To UBound(arr2) '先历遍数据源
       For x = 1 To UBound(arr1) '再历遍指定的营业部
           If InStr(arr2(i, 6), arr1(x, 1)) > 0 Then
               If InStr(arr2(i, 2), "一") > 0 Then
                  'd1(arr2(i, 4)) = ""
                  d1(arr2(i, 4)) = arr2(i, 4)
               End If
           End If
       Next x
   Next i
  End With

k = d1.Keys

    With Sheet3 '结果表
        .[G2].Resize(d1.Count, 1) = Application.Transpose(k) '营业部名称
         .Rows.Font.Name = "宋体"
         .Rows.Font.Size = 10
        .Select
     End With

最佳答案

月排行榜 / 总排行榜

extyg

2012-10-5 02:25

Sub 数据处理6() '提取指定营业部的涉及的股票
    Dim arr, i, s
    Dim oDic As Object
      
    With Sheets("数据源")
        For i = 2 To 21
            s = s & "," & .Range("j" & i)
        Next
        arr = .Range("a2:f" & .[b65536].End(xlUp).Row)
    End With
    Set oDic = CreateObject("scripting.dictionary")
   
    For i = 1 To UBound(arr)
        If InStr(s, arr(i, 6)) > 0 And arr(i, 2) = "一" Then oDic(arr(i, 4)) = ""
    Next
   
    With Sheet3
        .[C1].Value = "股票代码"
        .[C2].Resize(oDic.Count, 1) = Application.Transpose(oDic.keys)
        .Select
     End With
     Set oDic = Nothing
End Sub

跳转到最佳答案楼层

extyg

Sub 数据处理6() '提取指定营业部的涉及的股票
    Dim arr, i, s
    Dim oDic As Object
      
    With Sheets("数据源")
        For i = 2 To 21
            s = s & "," & .Range("j" & i)
        Next
        arr = .Range("a2:f" & .[b65536].End(xlUp).Row)
    End With
    Set oDic = CreateObject("scripting.dictionary")
   
    For i = 1 To UBound(arr)
        If InStr(s, arr(i, 6)) > 0 And arr(i, 2) = "一" Then oDic(arr(i, 4)) = ""
    Next
   
    With Sheet3
        .[C1].Value = "股票代码"
        .[C2].Resize(oDic.Count, 1) = Application.Transpose(oDic.keys)
        .Select
     End With
     Set oDic = Nothing
End Sub

extyg

你的代码:If InStr(arr2(i, 2), "一") > 0 Then
会把类别为"十一"的也包含进去。

zhoucs00

向楼主学习。，我只会很不熟练的用函数。。。