我正在尝试编写将遍历范围内所有单元格的代码。最终我想做一些更复杂的事情,但由于我遇到了麻烦,我决定创建一些简短的测试程序。第一个示例工作正常,但第二个(具有命名范围)没有(给出“Object_Global 的方法范围失败”错误消息)。关于我做错了什么的任何想法?我真的很想用一个命名范围来做这个......谢谢!
作品:
Sub foreachtest()
Dim c As Range
For Each c In Range("A1:A3")
MsgBox (c.Address)
Next
End Sub
不起作用:
Sub foreachtest2()
Dim c As Range
Dim Rng As Range
Set Rng = Range("A1:A3")
For Each c In Range("Rng")
MsgBox (c.Address)
Next
End Sub