excel vba运行下标越界

SubGetDatas()DimlLastRowAsLonglLastRow=Sheets("Database").UsedRange.Row.CountRange("B... Sub GetDatas() Dim lLastRow As Long lLastRow = Sheets("Database").UsedRange.Row.Count Range("B5:G65536").Clear Sheets("Database").Range("A1:F" & lLastRow).AdvancedFilter _ Action:=xlFilterCopy, _ CriteriaRange:=Range("B2:C3"), _ CopyToRange:=Range("B5"), _ Unique:=False End Sub 展开

 我来答

1个回答

#热议# 为什么说不要把裤子提到肚脐眼？

菲佣得势
2016-05-23 · TA获得超过282个赞

知道小有建树答主

回答量：301

采纳率：0%

帮助的人：151万

我也去答题访问个人页

关注

展开全部

1、下标越界对话框弹出是运行时产生了错误，没法继续往下运行了。
2、一般指凳出现下标越界是取值时出现了“非正常值”，比如单元格高逗袭的位置"A1"是正确的，用"A0"来表示单元格的话就会出现“下标越界”的错误。
3、错误发生处VBA代码会中止的同时会用黄色标出那一行代码，将鼠标移动到标黄的代码出，当移动到不同戚兄的变量处时，VBA会提示每个变量的值。
4、根据变量值认真核对VBA代码，就会发现“非正常值”了