如何快速挑选符合条件的数据，谢谢了？

zjhzwyf

汉武大帝888 发表于 2017-3-15 16:24
请问有方法吗？用的vba还是什么？下回我就自己会弄了。

挺笨的方法，先根据补贴编号比对表1和表2的数据（使用了vlookup函数），然后根据比对结果进行筛选，筛选出的结果，复制粘贴到表3

汉武大帝888

求vba的解决方式。

汉武大帝888

zjhzwyf 发表于 2017-3-15 16:28
挺笨的方法，先根据补贴编号比对表1和表2的数据（使用了vlookup函数），然后根据比对结果进行筛选，筛选 ...

您的方法我按您的思路试了一下，可行。感谢。

dreamhight

汉武大帝888 发表于 2017-3-15 14:55
您好，按钮点了后， 不能用.

你的excel版本该不会是2003吧

jiminyanyan

1. Sub vba入门jimin()
   
2.     '扣扣:494585639
   
3.     Dim arr, d As Object, brr, crr(1 To 10000, 1 To 7), k
   
4.     Set d = CreateObject("scripting.dictionary")
   
5.     arr = Sheet2.Range("a1:f" & Sheet2.Range("a65535").End(xlUp).Row)
   
6.     For i = 2 To UBound(arr)
   
7.         d("|" & arr(i, 2)) = ""
   
8.     Next
   
9.     brr = Sheet1.Range("a1:g" & Sheet1.Range("a65535").End(xlUp).Row)
   
10.     For i = 2 To UBound(brr)
    
11.         If Not d.exists("|" & brr(i, 4)) Then
    
12.             k = k + 1
    
13.             For j = 1 To 7
    
14.                 crr(k, j) = brr(i, j)
    
15.             Next
    
16.         End If
    
17.     Next
    
18.     Sheet3.Range("a2:g10000").ClearContents
    
19.     Sheet3.Range("a2").Resize(UBound(crr), UBound(crr, 2)) = crr
    
20. End Sub
    

复制代码

jiminyanyan

………………。

dreamhight

使用vlookup函数就可以了，然后使用筛选功能，未领取的人员全部就显示出来了

汉武大帝888

jiminyanyan 发表于 2017-3-15 19:14
………………。

您的这种方法太漂亮了，方便。太感谢了。

grf1973

2003运行也可以的啊。

grf1973

换个方法做。

1. Sub grf1()
   
2.     arr = Sheets("2").[a1].CurrentRegion
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     For i = 2 To UBound(arr)
   
5.         d(arr(i, 3)) = ""
   
6.     Next
   
7.     arr = Sheets("1").[a1].CurrentRegion
   
8.     n = 1
   
9.     For i = 2 To UBound(arr)
   
10.         If Not d.exists(arr(i, 2)) Then
    
11.             n = n + 1
    
12.             For j = 1 To UBound(arr, 2)
    
13.                 arr(n, j) = arr(i, j)
    
14.             Next
    
15.         End If
    
16.     Next
    
17.     With Sheets("3")
    
18.         .Cells.ClearContents
    
19.         .[a1].Resize(n, UBound(arr, 2)) = arr
    
20.     End With
    
21. End Sub

复制代码