2016-11-30 203 views
0

请帮我解决这个问题。一旦我运行这个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 
+3

没有列0.列A是1而不是0. –

+0

正如Scott所说,没有列0.然而......你是否真的试图访问第0列,或者你是否试图从当前单元格执行某种偏移量?在你的代码中,即使你分别改变',0'和',1'到',1'和',2',也只是取一个(活动)单元格,并将相同的值放到10行中相同的相应描述放置在旁边的列中。你是否试图从当前单元格开始处理10行中的10个不同值? – YowE3K

回答

0

没有细胞(1,0)。行或列的索引总是以1开头

+0

Ups,对不起,没有看到Scott的评论 – Storax

+0

Scott Craner,实际上我想为给定的一组数据创建一个宏。假设有一个专栏,其中包括几个人的月收入。我想按照> 10000“低收入”,10001-50000:中等收入和> 50000高收入。在同一时间,我想统计每个类别中的数据数量。请帮我写这个宏 –