[VBA]選択範囲の下から上に処理する方法。

教えてください。

Sheet1の"A1"に"1"、"A2"に"2"、"A3"に"3"と数字が並んだ状態です。
次の関数を利用して範囲から値を表示します。

----------------------------------
Dim c As Variant
For Each c In Sheet1.Range("A1:A3")
MsgBox c.Value
Next
----------------------------------

このやり方だと、当然上から1,2,3と表示されます。
やりたいことは物理的に元データをいじらずに(並び替えはせずに)
VBAだけで範囲の下から上への処理を行いたいです。

よろしくお願いします。

No.1 ベストアンサー 回答者： watabe007 回答日時： 2013/12/14 09:15

[例1]

Dim i As Long
With Sheet1.Range("A1:A3")
　　For i = .Cells.Count To 1 Step -1
　　　　MsgBox .Item(i).Value
　　Next
End With

[例2]
Dim i As Long
For i = 3 To 1 Step -1
　　MsgBox Cells(i, "A").Value
Next

この回答へのお礼

あなたは神様ですか、、、、！
例１を頂きました！

まじありがとーございまっす！(^-^)v ぶぃ

お礼日時：2013/12/14 21:36