5,139
社区成员
发帖
与我相关
我的任务
分享EXCEL里VB编辑器中的下标越界问题
以下是一段代码，按F8逐条运行到给ENDROW1赋值时提示下标越界，请问是什么原因？
Dim sheetsCaption1 As String: sheetsCaption1 = "Sheet5"
Dim Col As String: Col = "B"
Dim StartRow As Integer: StartRow = 2
Dim EndRow1 As Integer: EndRow1 = Sheets(sheetsCaption1).Range(Col & "65536").End(xlUp).Row
Dim sheetsCaption1 As String: sheetsCaption1 = "Sheet5"
Dim Col As String: Col = "B"
Dim StartRow As Integer: StartRow = 2
Dim EndRow1 As Integer: EndRow1 = Sheets(sheetsCaption1).Range(Col & "65536").End(xlUp).Row
...全文
请发表友善的回复…
发表回复
firefly-cn 2007-06-03
- 打赏
- 举报
看看sheetsCaption1 = "Sheet5"，Sheet5这个sheet页是否存在，而且名称是否一样，注意是否有多于的空格
shan1119 2007-06-01
- 打赏
- 举报
没问题啊.我用的2000
