两个excel表数据如何匹配两列数据一一对应？

洛蓝321 · 发表于 2021-7-25 17:49

基础数据表中的C列和匹配数据表中的B列如何匹配并在匹配数据表中生成C列，匹配数据表中C列是根据B列映射到的一一对应的基础数据表中的C列？

vb爱好者洗衣机 · 发表于 2021-7-25 22:10

是不是这个意思？

洛蓝321 · 发表于 2021-7-26 21:02

可以把代码发给我一下吗？谢谢，这边显示VBA未安装

洛蓝321 · 发表于 2021-7-26 21:02

vb爱好者洗衣机发表于 2021-7-25 22:10
是不是这个意思？

我一下吗？谢谢，这边显示VBA未安装

vb爱好者洗衣机 · 发表于 2021-7-26 23:53

洛蓝321 发表于 2021-7-26 21:02
我一下吗？谢谢，这边显示VBA未安装

Sub test()
Dim arr, brr, i%
arr = Sheets(2).UsedRange
brr = Sheets(1).UsedRange
Set dic = CreateObject("scripting.dictionary")
For i = 2 To UBound(brr)
dic(brr(i, 2)) = brr(i, 3)
Next
For i = 3 To UBound(arr)
If dic(CStr(arr(i, 1))) <> "" Then
Sheets(2).Cells(i, 3).Value = dic(CStr(arr(i, 1)))
Else
Sheets(2).Cells(i, 3).Value = "notfound"
End If
Next
End Sub

		自动登录	找回密码
密码			免费注册

[求助] 两个excel表数据如何匹配两列数据一一对应？