如何将一个工作表中的数据按相关条件自动追加到另一个工作表的相应单元格中？

sjh701120

在每年的高考录取统计中，每天都要将新收到的考生录取信息添加到已有的原始报名数据中，收到的信息中只有考生报名号、姓名、准考证号与原始报名数据相同，其它新增加的录取信息就要“按考生报名号、姓名或准考证号”进行一个一个查找并添加到原始数据总表中（不能破坏或删除原始数据表中的其它数据），每次操作都非常麻烦。想请教各位高手，能否将“追加数据”表中的数据“按列标题－报名号”自动追加到“原始数据”表的相应单元格中？

不是单纯将“更新数据”中所有数据都重新复制到“原始数据”的最下方，而是想将“更新数据”中所有数据通过查找“原始数据”的报名号后，将“更新数据”中单元格内容复制追加到“原始数据”中相应报名号后的相应单元格中，必须保留“原始数据”中已有的数据。不知我说清楚没有？

用函数公式可解决，但是原始数据表数据太多了（5000左右），运行非常缓慢，所以最好能用VB编写代码解决，谢谢！

sjh701120

附件上传了

hunter4162003

一个Vlookup的事吧，5000数据也不算大吧，

sjh701120

麻烦各位大师，期盼能解决，谢谢!

sjh701120

关键是用Vlookup函数时，如果删除“更新数据”中的单元格数据后，“原始数据”中追加的单元格数据就随之丢失，所以还是要用VBA才行!

dsmch

1. Sub Macro1()
   
2. Dim arr, brr, crr, d, i&, j%
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Range("a1").CurrentRegion
   
5. ReDim brr(1 To UBound(arr) - 1, 1 To 14)
   
6. crr = Sheet2.Range("a1").CurrentRegion
   
7. For i = 2 To UBound(crr)
   
8.     For j = 4 To UBound(crr, 2)
   
9.         zf = crr(i, 1) & "," & crr(1, j)
   
10.         d(zf) = crr(i, j)
    
11.     Next
    
12. Next
    
13. For i = 2 To UBound(arr)
    
14.     For j = 4 To 17
    
15.         zf = arr(i, 1) & "," & arr(1, j)
    
16.         brr(i - 1, j - 3) = d(zf)
    
17.     Next
    
18. Next
    
19. Range("d2").Resize(UBound(brr), 14) = brr
    
20. End Sub

复制代码

dsmch

标题行录取志愿重复，删除一列

sjh701120

dsmch 发表于 2014-12-30 09:29
标题行录取志愿重复，删除一列

谢谢dsmch老师，真是高手啊!还有个问题想请教，如果“追加数据”表中的报名号不相同时，点击添加后又将原来添加的数据清除了，能不能实现后添加到“原始数据”表的数据不清除前面已经添加的数据!求大师帮忙

zyouong

结合access使用，非常方便，而且，access容量更大。

sjh701120

zyouong 发表于 2015-1-6 14:43
结合access使用，非常方便，而且，access容量更大。

大师你好，我对这个不是很懂，能不能结合案例做个实例？谢谢!