请帮我解决这个问题。一旦我运行这个VBA宏,它会显示一个提到应用程序定义错误或对象定义错误的错误。VBA-Excel宏
代码:
Sub income_status()
Dim i As Integer
For i = 1 To 10
Cells(i, 0) = ActiveCell.Value
If Cells(i, 0) <= 10000 Then
Cells(i, 1) = "Low Income"
ElseIf Cells(i, 0) > 10000 And Cells(i, 0) <= 50000 Then
Cells(i, 1) = "Medium Income"
Else
Cells(i, 1) = "High Income"
End If
Next i
End Sub
没有列0.列A是1而不是0. –
正如Scott所说,没有列0.然而......你是否真的试图访问第0列,或者你是否试图从当前单元格执行某种偏移量?在你的代码中,即使你分别改变',0'和',1'到',1'和',2',也只是取一个(活动)单元格,并将相同的值放到10行中相同的相应描述放置在旁边的列中。你是否试图从当前单元格开始处理10行中的10个不同值? – YowE3K