查找引用显示错误

LMW

请大佬帮我看一下我这个宏为什么运行不了，显示错误，
我需要将数据库的1列数据，查找引用到报表对应位置，报表里的的数据是不确定的，

1. Sub 指定日期库存()
   
2. 
   
3. 
   
4. '根据库存产品编号，复制包装数到报表
   
5. Dim drr, err, s1, I6, j, a()
   
6. s1 = Array("产品编码", "包装数")
   
7. ReDim a(1 To 2, 1 To UBound(s1) + 1)
   
8. 
   
9. With Sheets("数据库")
   
10.     drr = .UsedRange                 '数据库数据存入数组drr
    
11.     For I6 = 0 To UBound(s1)         '循环数组s1
    
12.         a(1, I6 + 1) = .UsedRange.Find(s1(I6)).Column  '数据库标题列号放入数组a第1行
    
13.     Next I6
    
14. End With
    
15. 
    
16. With Sheets("报表")
    
17.     r8 = .[a65536].End(xlUp).Row    '最后一行的行号
    
18.     err = .Range("a2:f" & r8)       '报表数据存入数组err
    
19.     For I6 = 0 To UBound(s1)        '循环数组s1
    
20.         a(2, I6 + 1) = Sheet12.UsedRange.Find(s1(I6)).Column '报表标题列号放入数组a第2行
    
21.     Next I6
    
22. End With
    
23.    
    
24. For I6 = 2 To UBound(err)       '循环报表
    
25.     For j = 2 To UBound(drr)    '循环数据库
    
26.         For k = 1 To UBound(s1) '循环标题
    
27.             If err(I6, a(2, 1)) = drr(j, a(1, 1)) Then '当报表和数据库标题对应第1列的行内容相同时执行
    
28.                 err(I6, a(2, k + 1)) = drr(j, a(1, k + 1)) '将数据库对应内容装入数组err
    
29.             End If
    
30.         Next k
    
31.     Next j
    
32. Next I6
    
33. 
    
34. Sheet12.[a2].Resize(UBound(err), UBound(err, 2)) = err '将数组err数据复制到对应单元格里
    
35.    
    
36. MsgBox "完成"
    
37. End Sub

复制代码

excel玉米

      目前查出来的错误，就错在两个表的表头A列，一个是产品编码，一个是商品编码，手工将数据库表的A1单元格改为产品编码，即能运行。
      

LMW

excel玉米 发表于 2025-7-5 13:07
目前查出来的错误，就错在两个表的表头A列，一个是产品编码，一个是商品编码，手工将数据库表的A1单 ...

谢谢了，是这个问题，我说在我电脑上能用，另一个电脑就用不了，一直以为是宏哪里错了，都没往这个方向想

gwjkkkkk

1. =SUMIFS(数据库!F:F,数据库!A:A,报表!A3)

复制代码

函数也可以