Question

vba 运行时错误9 下标越界

Sub 合并当前工作簿下的所有工作表()
Dim j As Integer
Application.ScreenUpdating = False
For j = 1 To Sheets.Count
If Sheets(j).Name <> ActiveSheet.Name Then
X = Range("A65536").End(xlUp).Row + 1
Sheets(j).UsedRange.Copy Cells(X, 1)
Sheets(j).Delete
End If
Next
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"
End Sub
vba 运行时错误9 下标越界 请大家帮忙看看，哪里有问题，Sheets(j)到第4张工作表左右就会提示错误。

Answer 1

错误9 下标越界”错误发生在代码行“note = Worksheets("feuil1").Range(Cells(g, i), Cells(g, i)).Value”，这里的引用“Worksheets("feuil1")”是最易发生错误的，引用的表名“feuil1”必须是“name”属性值而不是“名称”属性值，也就是应该是编辑器的对象浏览器里“Microsoft Excel”对象的括号里的值，同时也是表格界面里的工作表标签的名称。

顺便说一下，后面还有一些其他错误（比如“Cells(g, i).Value <> ""”这个引用错误，会导致运行时错误1004“应用程序定义或对象定义错误”）。