如何按姓名复制多列数值到汇总表

wenzc

新年好，请高手帮忙。谢谢。要求把原始表中的多列数据按姓名复制到汇总表

网海遨游

表中的学生姓名是否会有重复？

lsc900707

1. Sub gj23w98()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     arr = Sheet2.[a1].CurrentRegion
   
4.     For i = 2 To UBound(arr)
   
5.         For j = 2 To UBound(arr, 2)
   
6.             s = arr(i, 1) & arr(1, j)
   
7.             d(s) = arr(i, j)
   
8.        Next
   
9.     Next
   
10.     brr = [a1].CurrentRegion
    
11.     For i = 2 To UBound(brr)
    
12.         For j = 2 To UBound(brr, 2)
    
13.             s = brr(i, 1) & brr(1, j)
    
14.             brr(i, j) = d(s)
    
15.         Next
    
16.     Next
    
17.     [a1].CurrentRegion = brr
    
18. End Sub

复制代码

lsc900707

附件仅供测试参考：

wenzc

lsc900707 发表于 2020-1-27 10:11
附件仅供测试参考：

是将原始表中的追回在汇总表后面各列

lsc900707

wenzc 发表于 2020-1-27 12:43
是将原始表中的追回在汇总表后面各列

什么叫追回？

wenzc

是追加在汇总表已有列的后面

wenzc

就是能多次将原始表中数据按姓名汇总