宏运行查找内容不对应，请问如何调整

wcz55

各位老大，做了个宏，运行时出现以下问题：
1、输入物料代码，运行宏查找【库存表】相应的物料编码，并黏贴到H11；宏运行时，查找的数据不完全对应，会查到空格以下的内容，
2、如何能快速查找到对应【物料代码+物料编码】物料的库存量，（物料代码会有重复）

yynrzwh

1. Private Sub Worksheet_Change(ByVal t As Range)
   
2. 
   
3. 
   
4.     If t.Address = "$B$11" Then
   
5.   [G11:H18] = ""
   
6.     With Sheets("库存表")
   
7.         Set c = .Cells.Find(t.Value, , , 1)
   
8.         If Not c Is Nothing Then
   
9.             rng = .Range(.Cells(c.Row + 0, 3), .Cells(c.End(4).Row - 1, 3))
   
10.             rng1 = .Range(.Cells(c.Row + 0, 6), .Cells(c.End(4).Row - 1, 6))
    
11.             [h11].Resize(UBound(rng), 1) = rng
    
12.             [g11].Resize(UBound(rng1), 1) = rng1
    
13.         End If
    
14.         
    
15.     End With
    
16. Exit Sub
    
17. 
    
18. End If
    
19. 
    
20. 
    
21. End Sub
    

复制代码

wcz55

yynrzwh 发表于 2023-4-16 12:52

感谢您的帮助！！我按照你的思路将“ rng = .Range(.Cells(c.Row + 0, 3), .Cells(c.End(4).Row , 3))”改为“ rng = .Range(.Cells(c.Row + 0, 3), .Cells(c.End(4).Row - 1, 3))”，可以避免选错行。但是会出现代码“13”的错误。
（运行条件：excel10 ，数据透视表（库存表）设置表格形式，重复项目标签），请问如何调整？C:\Users\Administrator\Desktop

yynrzwh

Set c = .Cells.Find(t.Value, , , , , 1) 改为 Set c = .Cells.Find(t.Value, , , 1)
找到的Rng只有一个单元格，UBound(rng)就发生错误了。
[V11]是哪个表的？

代码里单元格的关联好复杂，为什么不把一段段代码放在模块里调试好先呢？

另外感觉代码似乎应该放在Worksheet_SelectionChange里。

wcz55

yynrzwh 发表于 2023-4-21 17:21
Set c = .Cells.Find(t.Value, , , , , 1) 改为 Set c = .Cells.Find(t.Value, , , 1)
找到的Rng只有一个 ...

领料表的V11，我隐藏了。