为什么会下标越界呢？

shxjgsh · 发表于 2024-3-13 11:01

本帖最后由 shxjgsh 于 2024-3-15 08:04 编辑

各位老师帮忙看下，为什么会下标越界呢？
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

DevilW · 发表于 2024-3-13 15:45

模板联签单这两个表都存在吗

wcj6376tcp · 发表于 2024-3-13 15:49

本帖最后由 wcj6376tcp 于 2024-3-13 15:57 编辑

新建sheet后要改名，试一试
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)
   ActiveSheet.Name="模版"
   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

q490525427 · 发表于 2024-3-13 15:54

模板指定表不在吧

wcj6376tcp · 发表于 2024-3-13 16:00

With ActiveSheet前面添加一句试一试 ActiveSheet.Name = "模版"

边缘码农 · 发表于 2024-3-13 16:48

for循环前面加一句
stop
中断一下，看看 i 的值。

shxjgsh · 发表于 2024-3-14 10:57

DevilW 发表于 2024-3-13 15:45
模板联签单这两个表都存在吗

在的都是存在的

shxjgsh · 发表于 2024-3-14 11:02

wcj6376tcp 发表于 2024-3-13 15:49
新建sheet后要改名，试一试
Sub 批量生成表格()
Dim i As Long

还是不可以

shxjgsh · 发表于 2024-3-14 11:14

wcj6376tcp 发表于 2024-3-13 15:49
新建sheet后要改名，试一试
Sub 批量生成表格()
Dim i As Long

还是不可以啊，新的工作表可以生成，填写单元格内容就显示下标越界了

wcj6376tcp · 发表于 2024-3-14 11:59

shxjgsh 发表于 2024-3-14 11:14
还是不可以啊，新的工作表可以生成，填写单元格内容就显示下标越界了

附件脱敏后上传来看看具体情况

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

[求助] 为什么会下标越界呢？