Visual Basic获取424所需对象错误

Question

嗨，我试着运行这段代码，但收到了424个错误，我是Visual Basic的新手，不知道如何修复这个错误：(非常感谢

Dim a, b As Integer
'compute weekly change BAS
For a = 1 To 8
For b = 1 To 9

If Range("AA4").Cells(a, b) <> 0 Then
Changed.Cells(a, b) = (Range("AB4").Cells(a, b) - Range("AA4").Cells(a, b)) / Range("AA4").Cells(a, b)

Else
Changed.Cells(a, b) = "n/a"
End If

Next b
Next a

Answer 1

如果Changed是工作表对象，则需要Dim和Set。