[已解决]如何部分更新汇总表的内容（VBA）

yeminqiang

说明：
1/汇总表是原始数据
2/子表是要更新的数据，更新的地方主要为第三列（主题对应概念）
3/结果表为最后的更新结果

问：如何用字典处理？还没有入门，想了很久，没结果，求帮助！十分感激！

如何部分更新汇总表的内容.zip (15.15 KB, 下载次数: 8)

2015-10-28 09:18 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

grf1973

2015-10-28 14:15

1. Sub grf()
   
2.     Dim arr, brr, i%
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     arr = Sheets("汇总表").[a1].CurrentRegion
   
5.     For i = 2 To UBound(arr)
   
6.         d(arr(i, 1)) = i
   
7.     Next
   
8.     brr = Sheets("子表").[a1].CurrentRegion
   
9.     For i = 2 To UBound(brr)
   
10.         If d(brr(i, 1)) > 0 Then arr(d(brr(i, 1)), 3) = brr(i, 3)
    
11.     Next
    
12.     With Sheets("结果")
    
13.         .UsedRange.Cells.ClearContents
    
14.         .[a1].Resize(UBound(arr), UBound(arr, 2)) = arr
    
15.     End With
    
16. End Sub

复制代码

跳转到最佳答案楼层

grf1973

1. Sub grf()
   
2.     Dim arr, brr, i%
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     arr = Sheets("汇总表").[a1].CurrentRegion
   
5.     For i = 2 To UBound(arr)
   
6.         d(arr(i, 1)) = i
   
7.     Next
   
8.     brr = Sheets("子表").[a1].CurrentRegion
   
9.     For i = 2 To UBound(brr)
   
10.         If d(brr(i, 1)) > 0 Then arr(d(brr(i, 1)), 3) = brr(i, 3)
    
11.     Next
    
12.     With Sheets("结果")
    
13.         .UsedRange.Cells.ClearContents
    
14.         .[a1].Resize(UBound(arr), UBound(arr, 2)) = arr
    
15.     End With
    
16. End Sub

复制代码

grf1973

在汇总表中，用字典取得代码对应的行号；然后根据子表中代码对应的行号，更新汇总表中的内容。