[已解决]查找相同后填充

shixyi37

根据结果表的B列姓名，查找《期中》、《期末》表中B列的姓名，将《期中》、《期末》表中相同姓名的编码（A列），对应填入结果表的A列。行数很多，且不确定。需要宏的，不是函数公式。
查找姓名填入编码.zip (10.98 KB, 下载次数: 6)

2015-3-20 09:58 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

qh8600

2015-3-20 10:38

shixyi37 发表于 2015-3-20 10:28
是的，主要是编码

查找姓名填入编码.rar (16.64 KB, 下载次数: 16)

2015-3-20 10:38 上传

点击文件名下载附件
楼主试试

跳转到最佳答案楼层

qh8600

只是编码吗

shixyi37

qh8600 发表于 2015-3-20 10:26
只是编码吗

是的，主要是编码

qh8600

shixyi37 发表于 2015-3-20 10:28
是的，主要是编码

查找姓名填入编码.rar (16.64 KB, 下载次数: 16)

2015-3-20 10:38 上传

点击文件名下载附件
楼主试试

grf1973

1. Sub tt()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     For i = 3 To 1 Step -1
   
4.         arr = Sheets(i).[a1].CurrentRegion
   
5.         If i > 1 Then
   
6.             For k = 3 To UBound(arr)
   
7.                 d(arr(k, 2)) = arr(k, 1)
   
8.             Next
   
9.         Else
   
10.             For k = 3 To UBound(arr)
    
11.                 arr(k, 1) = d(arr(k, 2))
    
12.             Next
    
13.             Sheets(i).[a1].CurrentRegion = arr
    
14.         End If
    
15.     Next
    
16. End Sub
    

复制代码

shixyi37

感谢两位，答案都很好。