[已解决]帮忙修改代码，匹配数据时，陷入死循环，

楚雪飞扬

帮忙修改代码，匹配数据时，陷入死循环，H列数据，从一个表匹配过来的数据！Sub 匹配Run数()
Set d = CreateObject("scripting.dictionary")
   a = Sheet2.UsedRange
   For i = 2 To UBound(a)
      d(a(i, 1)) = a(i, 3) '= a(i, 2)要匹配的列数
   Next
   For Each Rng In Range([a3], [a3].End(4)) '[b3], [b3]目标列前一列循环条件
      Rng.Offset(0, 7) = d(Rng.Offset(0, 1).Value) '匹配结果输出列,从目标列前一列开始算
   Next
End Sub

最佳答案

月排行榜 / 总排行榜

sam-wang

2022-1-4 16:30

修改如下紅字，請測試看看，謝謝

For Each Rng In Range([a3], [a65536].End(3))

跳转到最佳答案楼层

sam-wang

修改如下紅字，請測試看看，謝謝

For Each Rng In Range([a3], [a65536].End(3))

林木水

For Each Rng In Range([a3], [a65536].End(xlUp)) '[b3], [b3]目标列前一列循环条件
      Rng.Offset(0, 7) = d(Rng.Offset(0, 1).Value) '匹配结果输出列,从目标列前一列开始算
   Next

改成标红色这样。你原来的因为是从A3到最后一个单元格，所以很慢会卡死。
使用单元格的时候注意以下几点：
1.工作表.单元格.区域，以这种格式去写，尽量不要省略工作表名

2.尽量不要使用[a3]这种简写，sheet2.range("a3")这样会比较准

楚雪飞扬

林木水 发表于 2022-1-4 16:37
For Each Rng In Range([a3], [a65536].End(xlUp)) ', 目标列前一列循环条件
      Rng.Offset(0, 7) = d( ...

好的，谢谢帮忙解答！