VBA为什么总是提示下标越界

shxjgsh · 发表于 2024-3-15 08:24

各位老师帮忙看下，为什么会下标越界呢？
Sub 批量生成表格()
  Dim i As Long
i = Sheets("模板").Cells(Rows.Count, 1).End(xlUp).Row
For irow = 2 To i
   Sheets("联签单").Copy after:=Sheets(Sheets.Count)
   With ActiveSheet
   .[B5] = Sheets("模版").Cells(irow, 3)
   .[D5] = Sheets("模版").Cells(irow, 2)
   .[D7] = Sheets("模版").Cells(irow, 4)
   .[D8] = Sheets("模版").Cells(irow, 5)
   .[B8] = Sheets("模版").Cells(irow, 6)
  End With
  Next irow
End Sub

Learner2022 · 发表于 2024-3-15 09:08

模板两个字你打错了，下标越界适用于各种错误，不一定是数组的问题

shxjgsh · 发表于 2024-3-15 09:28

Learner2022 发表于 2024-3-15 09:08
模板两个字你打错了，下标越界适用于各种错误，不一定是数组的问题

谢谢！光顾着看语句了忽略这个字了！

沈默00 · 发表于 2024-3-15 13:17

sheets(i)对不上的，需要改成sheets(i+2)

沈默00 · 发表于 2024-3-15 13:42

改了一下.....

沈默00 · 发表于 2024-3-15 13:43

按模板新建，试一下

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

[求助] VBA为什么总是提示下标越界

评分

评分

最新热点 /1