根据姓名查找人

林小乖

一个工作簿里面有2018年、2017年及2016年的成绩，目前需要将2017年和2016年的乐理成绩填写进2018年的表格中。
以前是根据姓名一一查找，今年数据量太大，求教是不是有什么快捷的方法。
具体是这样：
2018年的表格当中，级别（H列）是8、9、10的需要填写乐理成绩，乐理（J列）若有填写就不管，若是空白就在17年和16年的表格中查找，将对应的乐理成绩填入18年的表格当中（K或L列）。
谢谢啦！

liulang0808

http://club.excelhome.net/thread-1385473-1-1.html
有些案例可以参考的’

lsc900707

典型的字典匹配问题耶。

lsc900707

没有考虑乐种，不知道对不对：

1. Sub gj23w98()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     Set d1 = CreateObject("scripting.dictionary")
   
4.     arr = Sheet2.[a1].CurrentRegion
   
5.     For i = 2 To UBound(arr)
   
6.         d(arr(i, 4)) = arr(i, 9)
   
7.     Next
   
8.     brr = Sheet3.[a1].CurrentRegion
   
9.     For i = 2 To UBound(brr)
   
10.         d1(brr(i, 4)) = brr(i, 9)
    
11.     Next
    
12.     crr = [a1].CurrentRegion
    
13.     For i = 2 To UBound(crr)
    
14.         If crr(i, 8) >= 8 And Len(crr(i, 10)) = 0 Then
    
15.             crr(i, 11) = d(crr(i, 5))
    
16.             crr(i, 12) = d1(crr(i, 5))
    
17.         End If
    
18.     Next
    
19.     [a1].CurrentRegion = crr
    
20. End Sub

复制代码

lsc900707

结果请自行核对：

林小乖

lsc900707 发表于 2018-9-19 22:25
结果请自行核对：

你好 如果想要切分这张表格称为很多很多的小分表应该怎么处理啊 根据列B报名点的字母
让每个字母单独称为一个sheet，sheet的命名就是对应的报名点字母

lsc900707

林小乖 发表于 2018-9-20 20:10
你好 如果想要切分这张表格称为很多很多的小分表应该怎么处理啊 根据列B报名点的字母
让每个字母单独称 ...

按列拆分工作表的实例论坛里有很多可以参考的。