VBA下标越界怎么解决
Sub 按钮8_Click()
Dim n As String
n = Range("D32")
Sheets("n").Select
Cells.Select
Selection.Copy
Sheets("模组备料单").Select
Cells.Select
ActiveSheet.Paste
End Sub
如果需要选择当前表单下单元格D32给出的表单名称,将其所有复制到表单"模组备料单",
则:
Sheets("n").Select
应为:
Sheets(n).Select
否则,因系统找不到名为"n"的表单名而产生"下标越界"的错误。
下一篇:excel中if函数使用
上一篇:关于分组数据如何进行填充的疑问
热门标签: