对指定单元格进行筛选

太阳之盾

求助各位大神，帮忙看看这个怎么弄，拜谢老师了

453507254

1. Sub 筛选编号()
   
2.     Dim i%, j%, lastrow1%, lastrow2%, arr1(), arr2()
   
3.     lastrow2 = Sheets(2).Range("B10000").End(3).Row
   
4.     lastrow1 = Sheets(1).Range("B10000").End(3).Row
   
5.     arr1 = Sheets(1).Range("A2:B" & lastrow1).Value
   
6.     Sheets(2).Range("C2:C" & lastrow2).ClearContents
   
7.     arr2 = Sheets(2).Range("B2:C" & lastrow2).Value
   
8.     For i = 1 To UBound(arr2)
   
9.         For j = 1 To UBound(arr1)
   
10.             If arr2(i, 1) = arr1(j, 1) Then
    
11.                 If arr2(i, 2) = "" Then
    
12.                     arr2(i, 2) = arr1(j, 2)
    
13.                 Else
    
14.                     arr2(i, 2) = arr2(i, 2) & "、" & arr1(j, 2)
    
15.                 End If
    
16.             End If
    
17.         Next j
    
18.     Next i
    
19.     Sheets(2).Range("B2:C" & lastrow2) = arr2
    
20. End Sub

复制代码

另外说明一下，你有几个姓名前后有错别字，有的有空格，导致查询不到（显示空白），你修改两边名字统一，就可以得到结果

太阳之盾

453507254 发表于 2018-6-18 13:07
另外说明一下，你有几个姓名前后有错别字，有的有空格，导致查询不到（显示空白），你修改两边名字统一，就 ...

麻烦问一下，VBA我不是很懂，这个代码是要复制到模块里面吗

太阳之盾

输入代码后就这样，麻烦您直接放到VBA中去排一下，VBA博大精深，不是我一时半会就能学会的，最后能带注视就更好了，谢谢老师[img]blob:http://club.excelhome.net/dafffad9-9157-4075-bf86-d4de5addfcfa[/img]

太阳之盾

453507254 发表于 2018-6-18 13:07
另外说明一下，你有几个姓名前后有错别字，有的有空格，导致查询不到（显示空白），你修改两边名字统一，就 ...

感谢老师，太谢谢你了，能解释一下每句的意思吗？