指教指教

贪吃的狼

自己做了个档案目录，模仿别人的写了一个代码，出现小标越界，请老师指教，谢谢
Sub 注册号()
Set d = CreateObject("scripting.dictionary")
With Sheets("table")
     Arr = .Range("d2:f" & .Cells(Rows.Count, 1).End(xlUp).Row)
End With
   For i = 1 To UBound(Arr)
  d(Arr(i, 1)) = Array(Arr(i, 2), Arr(i, 3), Arr(i, 4))
   j = d(Arr(i, 1))
Next
   For Each Rng In Range("h2:h" & Cells(Rows.Count, 8).End(xlUp).Row)
   Rng.resizs(1, 3) = d(Rng.Value)
   Next

End Sub

abc123281

请先上传附件

abc123281

with worksheets("table")

贪吃的狼

abc123281 发表于 2017-10-21 20:33
请先上传附件

请指教，标注的部分显示下界超标

abc123281

= Array(Arr(i, 2), Arr(i, 3), Arr(i, 4))
括号里的2,3,4  表示列

abc123281

你需要告诉我们你想做什么

abc123281

如果是新手的话，建议从基础学起，你这样弄的话，连哪里到哪里你都不知道，vba是很严密的，错一个字母，或少一个逗号都会报错

贪吃的狼

abc123281 发表于 2017-10-21 22:54
如果是新手的话，建议从基础学起，你这样弄的话，连哪里到哪里你都不知道，vba是很严密的，错一个字母，或 ...

谢谢，听从您的指导，新手老人了！

lance1977

好厉害，认真的人。