Rangeオブジェクトでのループ処理

Question

　　　　 　Dim Hani(4) As Range


         Set Hani(0) = ws.Range("A1:A" & 14) 
         Set Hani(1) = ws.Range("B1:B" & 14)
         Set Hani(2) = ws.Range("C1:C" & 14)  
         Set Hani(3) = ws.Range("D1:D" & 14)
         Set Hani(4) = ws.Range("E1:E" & l4)

上記コードのように等間隔のRangeオブジェクトをfor文で処理したい場合どのようにすればよろしいでしょうか？
数字であればループができるのですが、ABCDEなどはどのようにループ処理を行なっているのでしょうか
ご存知の方がいたらご教授ください。

Comments

[itagagaki]

"A1:A14" ではなく "A1:A" & 14 と書いているのは何か意味があるのですか？

Answer 1

こんな感じでどうでしょうか。

Dim Hani(4) As Range
Dim i
For i = 0 To 4
    Set Hani(i) = ws.Range("A1:A" & 14).Offset(, i)
Next

Comments

[soso0programmer]

回答ありがとうございます。
offsetを利用して一つずつずらしていくのですね、勉強になりました。

Answer 2

下記のような感じでしょうか。

        Dim Hani(4) As Range
        Dim i As Long
        With ws.Range("A1:E" & 14)
            For i = 0 To 4
                Set Hani(i) = .Columns(i + 1)
            Next
        End With

または、

        Dim Hani(4) As Range
        Dim i As Long
        With ws.Range("A1:A" & 14)
            For i = 0 To 4
                Set Hani(i) = .Offset(0, i)
            Next
        End With

Answer 3

R1C1形式でいいなら

For i = 0 to 4
  Set Hani(0) = ws.Range(Cells(1, i), Cells(14, i));
Next

ですかね。