[已解决]VBA提取不重复值,取多列值.要求不能使用高级帅选????

freexun_zp

要求:

如附件：
  点击确定按钮文件子自动帅选Sheet1表中的M列不重复数据
然后将Sheet1表中的C列到H列数据复制保存到Sheet2表中的A2中！
备注:
      要求是确认SHEET1表M列不重复值,然后取C:H列的值
因我的档案是共享档案不能使用高级帅选,请大神帮忙想一下办法
求大神帮忙，谢谢！！

最佳答案

月排行榜 / 总排行榜

dsmch

2014-9-11 12:41

1. Sub Macro1()
   
2. Dim arr, brr, d, i&, j%, s&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Sheets(1).Range("a2").CurrentRegion
   
5. ReDim brr(1 To UBound(arr), 1 To 6)
   
6. For i = 2 To UBound(arr)
   
7.     If Not d.exists(arr(i, 13)) Then
   
8.         s = s + 1
   
9.         For j = 3 To 8
   
10.             brr(s, j - 2) = arr(i, j)
    
11.         Next
    
12.     End If
    
13. Next
    
14. Range("a2").Resize(s, 6) = brr
    
15. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. Dim arr, brr, d, i&, j%, s&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Sheets(1).Range("a2").CurrentRegion
   
5. ReDim brr(1 To UBound(arr), 1 To 6)
   
6. For i = 2 To UBound(arr)
   
7.     If Not d.exists(arr(i, 13)) Then
   
8.         s = s + 1
   
9.         For j = 3 To 8
   
10.             brr(s, j - 2) = arr(i, j)
    
11.         Next
    
12.     End If
    
13. Next
    
14. Range("a2").Resize(s, 6) = brr
    
15. End Sub

复制代码

dsmch

………………

su45

dsmch在此，咱就撤了

易安1

{:22:}

freexun_zp

易安1 发表于 2014-9-11 14:22

感謝回答
        非常感謝！
    不過數據有一點問題！    返回結果A：B的結果不對！    循環設錯了！   dsmch 老師的是對的。在次感謝！