vba - 在 VBA For 循环中使用两个以上的范围

Question

因此，我尝试使用 For 循环在 Excel 中的三个单独列中执行操作。

Sub dostuff()
  Dim lRw As Long, C As Range

  ' Get number of active rows by finding last row index.
  lRw = Range("A" & Rows.Count).End(xlUp).Row

  For Each C In Range("B1:B" & lRw, "H1:H" & lRw)
  ' stuff happens
  Next
End Sub

当我只指定上面的一个或两个列范围时，这可以正常工作，但是当我尝试添加第三个列范围时，它会失败:

For Each C In Range("B1:B" & lRw, "H1:H" & lRw, "M1:M" & lRw)

有没有办法迭代三列(或更多列)而不是两列？

Answer 1

在进行循环之前，只需进行 Union 来组合您的范围即可

Dim loopRange as Range
Set loopRange = Union(Range("B1:B" & lRw),Range("H1:H" & lRw),Range("M1:M" & lRw))
For Each C In loopRange
    'stuff
Next C