代码下标越界怎么破？

liumahao

Option Explicit

Sub test()
  Dim arr, dic, i
  Set dic = CreateObject("scripting.dictionary")
  arr = [a1].CurrentRegion
  ReDim brr(1 To UBound(arr, 1) - 1, 1 To 1)
  For i = 2 To UBound(arr, 1)
    If Len(arr(i, 5)) = 0 Then Exit For
    dic(arr(i, 5)) = arr(i, 6)
  Next
  For i = 2 To UBound(arr, 1)
    If dic.exists(arr(i, 3)) Then brr(i - 1, 1) = dic(arr(i, 3))
  Next
  [d2].Resize(UBound(brr, 1)) = brr
End Sub

根据条件赋值，如果C列和E列中的值相等，则把D列赋予对应的F列的值。
但是这个代码运行提示下标越界，求帮忙

工作簿1.zip (11.06 KB, 下载次数: 4)

2018-9-30 14:16 上传

点击文件名下载附件

lsc900707

1. Sub gj23w98()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     arr = [e1].CurrentRegion
   
4.     For i = 2 To UBound(arr)
   
5.         d(arr(i, 1)) = arr(i, 2)
   
6.     Next
   
7.     r = Cells(Rows.Count, 3).End(3).Row
   
8.     brr = Range("a1:d" & r)
   
9.     For i = 2 To UBound(brr)
   
10.         If d.exists(brr(i, 3)) Then brr(i, 4) = d(brr(i, 3))
    
11.     Next
    
12.     Range("a1:d" & r) = brr
    
13. End Sub

复制代码

liumahao

朱荣兴 发表于 2018-9-30 14:34
arr = [a1].CurrentRegion
D列为空的情况下，默认的就是A:C列的有效数据区域，
或者把D列输入数据，或者 ...

你好，D列是要靠这个代码输入赋值的目标列，

liumahao

lsc900707 发表于 2018-9-30 14:33

你好，你给的代码运行没有报错。。但是也没有结果，D列还是空的并没有被赋值

liumahao

朱荣兴 发表于 2018-9-30 14:34
arr = [a1].CurrentRegion
D列为空的情况下，默认的就是A:C列的有效数据区域，
或者把D列输入数据，或者 ...

你好，改成了usedrange,倒是没有报错了，但是点运行后没有效果。。

lsc900707

liumahao 发表于 2018-9-30 14:53
你好，你给的代码运行没有报错。。但是也没有结果，D列还是空的并没有被赋值

不会用我不怪：

liumahao

lsc900707 发表于 2018-9-30 15:07
不会用我不怪：

大佬辛苦，但是用在这个帖子的附件，就不赋值了呀
工作簿1.zip (11.06 KB, 下载次数: 3)

2018-9-30 15:15 上传

点击文件名下载附件

lsc900707

liumahao 发表于 2018-9-30 15:15
大佬辛苦，但是用在这个帖子的附件，就不赋值了呀

你自己看看c\e列有相同的数值吗？

0.006514658		0.002172
0.004343105		0.004343
0.004343105		0.006515
0.004343105		0.008686
0.008686211		0.009772
0.004343105		0.010858
0.004343105		0.013029
0.006514658		0.015201
0.008686211		0.017372
0.004343105
0.008686211
0.008686211
0.006514658
0.009771987
0.004343105
0.006514658
0.004343105

liumahao

lsc900707 发表于 2018-9-30 15:49
你自己看看c\e列有相同的数值吗？

大佬收下我的膝盖！！！！