选择不合并的多个动态范围

Question

我需要在表单后面选择多个范围("B1:D“&n+ 2)，对于每三列("AI1:AK”和n+ 2)，总共给出12个范围。我不想使用union，因为我需要在每个区域周围添加一个边框(而union会在所有范围的边缘添加一个边框)，但是我似乎不能选择所有的范围。

有没有一种方法，我可以选择所有的范围，而不用联合？

Answer 1

您可以使用类似于Range("A1:A2, C2:D4")的东西处理多个范围。

对于您的例子，请尝试如下：

Sub PickMultipleAreas()
Dim n As Long

n = 2
With ActiveSheet
    .Range("B1:D" & n + 2 & "," & _
           "AI1:AK" & n + 2).BorderAround ColorIndex:=3, Weight:=xlThick
End With
End Sub

有关此概念和我为取消选择重叠范围编写的工具的更多信息，请参见：http://yoursumbuddy.com/undo-selections-selectracker/。

Answer 2

For Next循环可以做到这一点：

For i = 2 to 35 Step 3
    Range(Cells(1, i), Cells(n + 2, i + 2)).BorderAround 'your criteria here
Next i

或者使用Offset()

For i = 0 to 11
    Range("B1:D" & n + 2).Offset(0, i * 3).BorderAround 'your criteria here
Next i

都被测试过了。