跨工作簿 多列 vlookup 备忘 不用数组 不用字典 单元格变动触发

于箱长

ziqiangli 发表于 2021-3-25 09:25
附件太大，上传了了，类似这个要怎么用代码实现

看着没啥问题，能实现，你可以截取一部分数据，不一定非得把全部数据上传啊

于箱长

ziqiangli 发表于 2021-3-25 09:25
附件太大，上传了了，类似这个要怎么用代码实现

看着没啥问题，能实现，你可以截取一部分数据，不一定非得把全部数据上传啊

于箱长

ziqiangli 发表于 2021-3-25 09:25
附件太大，上传了了，类似这个要怎么用代码实现

看着没啥问题，能实现，你可以截取一部分数据，不一定非得把全部数据上传啊

于箱长

ziqiangli 发表于 2021-3-25 09:25
附件太大，上传了了，类似这个要怎么用代码实现

看着没啥问题，能实现，你可以截取一部分数据，不一定非得把全部数据上传啊

ziqiangli

于箱长 发表于 2021-3-25 09:43
看着没啥问题，能实现，你可以截取一部分数据，不一定非得把全部数据上传啊

附件上传了，我只保留了一小部份数据，工作表 650\720 为匹配后的数据，前两个工作表为数据源，  

于箱长

ziqiangli 发表于 2021-3-25 09:56
附件上传了，我只保留了一小部份数据，工作表 650\720 为匹配后的数据，前两个工作表为数据源，

我这个网络也真的是 服了，发出去那么多条，只有这两个表的K列是吗？

于箱长

ziqiangli 发表于 2021-3-25 09:56
附件上传了，我只保留了一小部份数据，工作表 650\720 为匹配后的数据，前两个工作表为数据源，

我没测试，你试试吧

于箱长

ziqiangli 发表于 2021-3-25 09:56
附件上传了，我只保留了一小部份数据，工作表 650\720 为匹配后的数据，前两个工作表为数据源，

1. Sub 替代vlookup()
   
2. Dim Arr抛光移除量, Arrvlookup, Dic As Object
   
3. Set Dic = CreateObject("scripting.dictionary")
   
4. Arr抛光移除量 = Sheets("抛光移除量").Range("a2:aq" & Sheets("抛光移除量").[a1].End(4).Row)
   
5. Arrvlookup = Range("a2:m" & [a1].End(4).Row)
   
6.     For i = 1 To UBound(Arr抛光移除量)
   
7.         Dic(Arr抛光移除量(i, 8)) = Arr抛光移除量(i, 36)*1000
   
8.     Next
   
9.    
   
10.     For i = 1 To UBound(Arrvlookup)
    
11.         If Dic.exists(Arrvlookup(i, 1)) Then
    
12.             Arrvlookup(i, 11) = Dic(Arrvlookup(i, 1))
    
13.         Else
    
14.             Arrvlookup(i, 11) = 0
    
15.         End If
    
16.     Next
    
17. [k2].Resize(UBound(Arrvlookup), 1) = Application.index(Arrvlookup, , 11)
    
18. MsgBox "ok"
    
19. End Sub
    

复制代码

于箱长

ziqiangli 发表于 2021-3-25 09:56
附件上传了，我只保留了一小部份数据，工作表 650\720 为匹配后的数据，前两个工作表为数据源，

不好意思啊，有个别地方，我敲错了，已更正

ziqiangli

于箱长 发表于 2021-3-25 11:41
不好意思啊，有个别地方，我敲错了，已更正

在请教你个问题，如何选择不连续列下单元的内容？

这个代码是直接选中整列，我想从第二行开始选选择不同列里的数据！