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语句：

if  srj > 1.0 or srj < 0.0:
    raise ValueError

如何在Excel VBA for循环中指定多个列范围？

2 个答案: