FIND查找数据问题

◆华佗◆

ykcbf1100

查找数据用字典不是更合适吗？

z865593849

全是没数据的，还以为代码出问题了

◆华佗◆

z865593849 发表于 2024-11-10 17:21
全是没数据的，还以为代码出问题了

SHT与Equipment data Master不是完全 匹配的

◆华佗◆

ykcbf1100 发表于 2024-11-10 16:58
查找数据用字典不是更合适吗？

Equipment data Master与SHT不是完全匹配的

ykcbf1100

◆华佗◆ 发表于 2024-11-10 19:29
Equipment data Master与SHT不是完全匹配的

改用数组好了，速度也快的。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.11.10
   
2.     Application.ScreenUpdating = False
   
3.     With Sheets("SHT")
   
4.         r = .Cells(Rows.Count, 7).End(3).Row
   
5.         arr = .[a1].Resize(r, 16)
   
6.     End With
   
7.     With Sheets("Equipment data Master")
   
8.         r = .Cells(Rows.Count, 1).End(3).Row
   
9.         brr = .[a1].Resize(r, 8)
   
10.         For x = 2 To UBound(brr)
    
11.             s = brr(x, 2)
    
12.             For i = 3 To UBound(arr)
    
13.                 If InStr(arr(i, 7), s) And arr(i, 15) <> 7204 Then
    
14.                     brr(x, 7) = arr(i, 15)
    
15.                     brr(x, 8) = arr(i, 16)
    
16.                     Exit For
    
17.                 End If
    
18.             Next
    
19.         Next
    
20.          .[a1].Resize(r, 8) = brr
    
21.     End With
    
22.     Application.ScreenUpdating = True
    
23.     MsgBox "OK！"
    
24. End Sub
    

复制代码

excel玉米

楼主的表格，答案不严谨，故针对SHT表中，同样要查找料号，只要pro或"是"出现一次，都取其有值
试作如例子。