Question

VBA方法'range'作用于对象'_global'时失败

Sub newok()
Dim a, aq
For a = 3 To 10000
If Cells(a, "ar") = "完成" Then
If aq = "" Then
aq = a & ":" & a
Else
aq = aq & "," & a & ":" & a
End If
End If
Next a
If aq <> "" Then

Range(aq).Copy Sheets("完成版").Rows(Sheets("完成版").Range("e" & Cells.Rows.Count).End(xlUp).Row + 1)
Range(aq).Delete
End If
End Sub
之前没事的 但现在出错找不到原因

Answer 1

你在这一行
Range(aq).Copy Sheets("完成版").Rows(Sheets("完成版").Range("e" & Cells.Rows.Count).End(xlUp).Row + 1)

代码上面
加一行代码,跟踪看看行号和列号
debug.print aq
有这么大的列吗?
你的a可能有10000
excel表了行号有这么大,列号最大256列

Answer 2

不是程序本身， 可能与你计算机环境有关！

Answer 3

百度一下