销售记录的W列，提取E列产品型号sheet2对应的值

jmhjgsxdq

有附件：求VBA代码 ，销售记录的W列，提取E列产品型号sheet2对应的值

shiruiqiang

NBCBA123

1. Sub test()
   
2.     With Sheet2
   
3.         lscl = .Cells(2, Columns.Count).End(xlToLeft).Column
   
4.         lsrw = .Cells(Rows.Count, 1).End(xlUp).Row
   
5.         arr = .[a1].Resize(lsrw, lscl)
   
6.     End With
   
7.     k = Application.Match("进货价", Application.Index(arr, 2), 0)
   
8.     Set dic = CreateObject("scripting.dictionary")
   
9.     For a = 3 To UBound(arr)
   
10.         dic(arr(a, 2)) = arr(a, k)
    
11.     Next a
    
12.     With Sheets("销售记录")
    
13.         lscl = .Cells(3, Columns.Count).End(xlToLeft).Column
    
14.         lsrw = .Cells(Rows.Count, "e").End(xlUp).Row
    
15.         brr = .[a1].Resize(lsrw, lscl)
    
16.         k = Application.Match("进货价", Application.Index(brr, 3), 0)
    
17.         For b = 4 To UBound(brr)
    
18.             brr(b, k) = dic(brr(b, 5))
    
19.         Next b
    
20.         .[a1].Resize(UBound(brr), UBound(brr, 2)) = brr
    
21.     End With
    
22.     Set dic = Nothing
    
23. End Sub

复制代码

NBCBA123

jmhjgsxdq

shiruiqiang 发表于 2024-4-5 22:04

感谢帮助，代码设定了100行，如果产品超过100行怎么办？

jmhjgsxdq

NBCBA123 发表于 2024-4-6 09:16

测试了一下，运行是空白数据，能不能帮做一个附件

shiruiqiang

jmhjgsxdq 发表于 2024-4-6 15:44
感谢帮助，代码设定了100行，如果产品超过100行怎么办？

改成1000000行也没问题

jmhjgsxdq

shiruiqiang 发表于 2024-4-6 15:45
改成1000000行也没问题

修改了数据就出错了

shiruiqiang

jmhjgsxdq 发表于 2024-4-6 15:47
修改了数据就出错了

搞错了，65500里面没问题

jmhjgsxdq

shiruiqiang 发表于 2024-4-6 15:58
搞错了，65500里面没问题

是我的电脑有问题吧，我再检查一下