如何在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