如何在Excel VBA for loop中指定多個列范圍？

Question

我有以下形式的VBA for循環：對於col = 23到27，其中范圍23到27指的是列“ W”到“ AA”。 現在，我想為For循環添加更多不同的范圍，以便它將循環顯示23到27，然后是30到33，然后是40到44，等等。 謝謝你的幫助！

Answer 1

我將遍歷存儲在數組中的列。

Dim arrCol(1 to 3, 1 to 2)
Dim i As Integer

'Initialize array
arrCol(1,1) = 23
arrCol(1,2) = 27
arrCol(2,1) = 30
arrCol(2,2) = 33
arrCol(3,1) = 40
arrCol(3,2) = 44

'Loop through column ranges
For i = 1 to UBound(arrCol())
    Range(Columns(arrCol(i,1)),Columns(arrCol(i,2))).SomeStatement
Next

Answer 2

您可以使用Select Case語句：

For col = 23 to 999 'or whatever
    Select Case col
        Case 23 To 27, 30 To 33, 40 To 44
            'do whatever you like here
    End Select
Next