セルに対してFor Each～In～Nextを使う

質問

セルに対してFor Each～In～Nextを使う事は出来ない？

シートやブックに対してループする時は
Sub aaa()
Dim w As Worksheet
For Each w In Worksheets
MsgBox w.Name
Next
End Sub
等を使いますが、

Ａ１に「あ」
Ａ２に「い」
Ａ３に「う」
が入っている場合、

Sub bbb()
Dim i As Long
For i = 1 To Range("a65536").End(xlUp).Row
MsgBox Cells(i, 1)
Next
End Sub

で、全ての値を取得できますが、
For～to～nextではなく
セルに対してFor Each～In～Nextを使う方法があれば教えてください。

上記のように
Dim w As Worksheetは宣言できますが
Dim c As Workcellとはできませんでした。

なぜわざわざFor～to～nextでできる事をFor Each～In～Nextでやりたいかと言うと、
シートやブックはFor～to～nextでできるのに、セルはFor～to～nextができない理由を知りたいからです。

ご回答よろしくお願いします。

回答No.2

watabe007 · ベストアンサー

Sub Test()
Dim c As Range

For Each c In Range("A1", Cells(Rows.Count, "A").End(xlUp))
MsgBox c.Value
Next
End Sub

他にも
　　For Each c In Range(Cells(1, "A"), Cells(Rows.Count, "A").End(xlUp))
　　　　MsgBox c.Value
　　Next

　　For Each c In Range("A1").CurrentRegion
　　　　MsgBox c.Address & "セルの値は" & vbCrLf & c.Value
　　Next

お礼

いろいろなやり方があるのですね。
ありがとうございました。

回答No.1

keithin

いろいろ独学で一人落とし穴に嵌っているようです。

作成例：
sub macro1()
　dim h as range
　for each h in range("A1:A" & range("A65536").end(xlup).row)
　　msgbox h.value
　next
end sub

お礼

いただいたコードでできました。
データの型をrangeにするのですね。
ありがとうございました。大変参考になりました。