这么简单还提示下标越界了，谢谢各位大师，无语了

bill6to6 · 发表于 2023-3-6 16:05

Dim myarr1()

With Sheet10
   myarr1 = Range([cp1], [CQ946])
   For j = 1 To UBound(myarr1)
   num = myarr1(j + 1, 3)
next
End With

这么简单还提示下标越界了，谢谢大师们，真是无语了

iu950 · 发表于 2023-3-6 16:19

CP到CQ一共两列， myarr1(j + 1, 3)的3是哪来的？另外j+1取值，当j=UBound(myarr1)也会报错

cjc209 · 发表于 2023-3-6 16:21

myarr1 = Range([cp1], [CQ946]) 应该 myarr1 = .Range([cp1], [CQ946])吧

cjc209 · 发表于 2023-3-6 16:22

你用的是with啊

cjc209 · 发表于 2023-3-6 16:23

可以说你基础都没有当然不知道错在哪里了很正常加强学习和多练习

cidanji · 发表于 2023-3-6 16:29

错误太多啦，多多巩固基础

bill6to6 · 发表于 2023-3-14 18:26

感谢各位老师，问题找到了谢谢！真心感谢！

micch · 发表于 2023-3-14 18:31

+1 肯定越界啊

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

[求助] 这么简单还提示下标越界了，谢谢各位大师，无语了