VBA中用数组匹配数据显示Subscript out of range

liuhuijuan0806 · 发表于 2023-5-17 21:11

请帮忙看下，我这个代码如何修改。其实就是把Vlookup函数转化成了代码。但是有时候能运行，有时候不能运行。

听说VBA中的字典等同于Vlookup，但是不太会用字典。不知道如何写代码。
需求：就是在sheets（"法规清单"）的B列查找Sheets("提取标准")中的B列的值，然后把sheets（"法规清单"）C列的标准名称匹配到Sheets("提取标准")的C列中。
谢谢。

代码：

Sub 对应标准名称()
Dim Arr, Brr, X1%, X2%
Arr = Sheets("提取标准").Range("A1").CurrentRegion
Brr = Sheets("法规清单").Range("A1").CurrentRegion
For X1 = 2 To UBound(Arr)
For X2 = 2 To UBound(Brr)
      If Arr(X1, 2) = Brr(X2, 2) Then
      Arr(X1, 3) = Brr(X2, 3)
      End If
Next X2
Next X1
  Sheets("提取标准").Range("A1").CurrentRegion = Arr

End Sub

liuhuijuan0806 · 发表于 2023-5-17 21:11

文件和问题截图见附件。

shiruiqiang · 发表于 2023-5-17 21:37

没错误啊

taller · 发表于 2023-5-17 23:03

如果"提取标准"数据少于两列，或者"法规清单"数据少于3列，就会出现下标越界

哼哼哈hi · 发表于 2023-5-17 23:48

先加一句
sheets("提取标准“).activate

cyq4896 · 发表于 2023-5-18 06:31

可以运行呀

cyq4896 · 发表于 2023-5-18 06:45

可以优化下

liuhuijuan0806 · 发表于 2023-5-18 08:41

cyq4896 发表于 2023-5-18 06:31
可以运行呀

就是有时候能运行，有时候运行不了。会显示数据不匹配，不知道如何优化

liuhuijuan0806 · 发表于 2023-5-18 08:42

shiruiqiang 发表于 2023-5-17 21:37
没错误啊

是的，有时候能运行，有时候运行不了。

liuhuijuan0806 · 发表于 2023-5-18 10:50

今天早上运行又出错了。

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

[求助] VBA中 用数组匹配数据显示Subscript out of range

[求助] VBA中用数组匹配数据显示Subscript out of range