请教老师，跨工作簿引用数据标题不在第一行无法引用数据问题

pjdong

这是个在B站看张老师视频的学习的一个例子，汇总表上标题在第一行是完全没有问题，但是放在第二行就不行了,将代码里for i = 2改成for i =3也是不行，请教一下要怎么改代码？拜谢!

ykcbf1100

你的代码要改一下的。
你主要是没有完全理解字典怎么用。象你这样在上方插一空行的话，arr取值就与原来不一样了。

ykcbf1100

参与一下。。。

1. Sub byWanao()
   
2.     Dim i%, j%, arr, WB As Workbook, Dic As Object, Path$
   
3.     Set Dic = CreateObject("Scripting.Dictionary")
   
4.     Path = ThisWorkbook.Path & "\总表.xlsx"
   
5.     Set WB = GetObject(Path)
   
6.     With WB.Sheets(1)
   
7.         r = .Cells(Rows.Count, 1).End(3).Row
   
8.         c = .UsedRange.Columns.Count
   
9.         arr = .[a1].Resize(r, c)
   
10.     End With
    
11.     WB.Close 0
    
12.     For i = 2 To UBound(arr)
    
13.         For j = 2 To UBound(arr, 2)
    
14.             s = arr(i, 1) & "|" & arr(1, j)
    
15.             Dic(s) = arr(i, j)
    
16.         Next
    
17.     Next
    
18.     For i = 3 To Cells(Rows.Count, 1).End(xlUp).Row
    
19.         For j = 2 To 5
    
20.             s = arr(i, 1) & "|" & arr(1, j)
    
21.             If Dic.exists(s) Then
    
22.                 Cells(i, j) = Dic(s)
    
23.             End If
    
24.         Next
    
25.     Next
    
26.     Set Dic = Nothing
    
27.     Set WB = Nothing
    
28. End Sub
    
29. 
    

复制代码

pjdong

ykcbf1100 发表于 2024-6-7 08:03
参与一下。。。

我才学没多久，对有些概念都还很不了解，谢谢老师的解答，先慢慢消化一下

pjdong

ykcbf1100 发表于 2024-6-7 08:03
参与一下。。。

突然发现，这个代码只能按顺序取数，不是按第一列和第一行的数据来取数的，老师可以帮忙修改一下吗？谢谢！

ykcbf1100

pjdong 发表于 2024-6-9 17:26
突然发现，这个代码只能按顺序取数，不是按第一列和第一行的数据来取数的，老师可以帮忙修改一下吗？谢谢 ...

啥意思？你想表达什么意思？

pjdong

ykcbf1100 发表于 2024-6-9 17:27
啥意思？你想表达什么意思？

汇总里的数据红绿青黄，一号四号五号六号，总表的数据室红黄蓝绿青，一号二号三号四号五号六号。您的代码是按总表数据直接填写下来的，而不是按汇总表的里的行列填写。

ykcbf1100

pjdong 发表于 2024-6-9 17:33
汇总里的数据红绿青黄，一号四号五号六号，总表的数据室红黄蓝绿青，一号二号三号四号五号六号。您的代码 ...

你是说，总表的列都应该保留？

chxw68

参与一下。

pjdong

ykcbf1100 发表于 2024-6-9 17:41
你是说，总表的列都应该保留？

是按汇总里的行和列获取到对应的总表数据