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

liuhuijuan0806

请帮忙看下，我这个代码如何修改。其实就是把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

文件和问题截图见附件。

shiruiqiang

没错误啊

taller

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

哼哼哈hi

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

cyq4896

可以运行呀

cyq4896

可以优化下

liuhuijuan0806

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

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

liuhuijuan0806

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

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

liuhuijuan0806

今天早上运行又出错了。