VBA: Array of Range References
问题 In VBA, I am trying to create an array of Range References. Here's my current attempt: Dim columnName() As String Dim colIndex() As Long Dim colRange() As Range colCount = 10 ReDim columnName(colCount) ReDim colIndex(colCount) ReDim colRange(1 To colCount) columnName(ID) = "ID" 'etc For i = 1 To UBound(columnName) colIndex(i) = WS.Range("A1", "ZZ1").Find(columnName(i), LookIn:=xlValues, MatchCase:=False).column colRange(i) = WS.Range(Cells(2, colIndex(i)), Cells(LastRowIndex, colIndex(i))) If