Excel VBA：如何构建指定列序的非连续列数据范围

VBA的Union方法会自动按照单元格在工作表中的**自然位置（从左到右、从上到下）**合并区域，所以你传入的D6:D100、H6:H100、I6:I100、G6:G100会被重新排序为D、G、H、I，且相邻的G-I列会被合并成连续区域，这就是你看到地址变成$D$6:$D$100,$G$6:$I$100的原因。而且Range对象本身无法保持自定义的列顺序，因为它的结构依赖于工作表的物理布局。

下面提供两种可行的解决方案：

方案一：直接操作数组（推荐，效率更高） #

既然最终目标是将数据提取到数组，直接在内存中处理数组是最可靠的方式，不需要强行构建自定义顺序的Range。代码示例如下：

Sub ExtractCustomColumnData()
    Dim ws As Worksheet
    Dim sourceData As Variant
    Dim resultData As Variant
    Dim targetCols As Variant
    Dim rowIndex As Long, colIndex As Integer
    Const START_ROW As Long = 6
    Const END_ROW As Long = 100
    
    ' 定义目标列的序号：D=4，H=8，I=9，G=7（对应你要的顺序：D→H→I→G）
    targetCols = Array(4, 8, 9, 7)
    
    For Each ws In ThisWorkbook.Worksheets
        ' 一次性读取从第6行到100行、第1列到第9列的所有数据到数组
        sourceData = ws.Range(ws.Cells(START_ROW, 1), ws.Cells(END_ROW, 9)).Value
        
        ' 初始化结果数组：行数=END_ROW-START_ROW+1，列数=4
        ReDim resultData(1 To UBound(sourceData, 1), 1 To 4)
        
        ' 按目标顺序填充结果数组
        For rowIndex = 1 To UBound(sourceData, 1)
            For colIndex = 1 To 4
                resultData(rowIndex, colIndex) = sourceData(rowIndex, targetCols(colIndex - 1))
            Next colIndex
        Next rowIndex
        
        ' 这里可以添加对resultData的后续处理（比如写入其他工作表、计算等）
        Debug.Print "工作表【" & ws.Name & "】数据已按自定义顺序提取"
    Next ws
End Sub

方案一优势： #

• 效率远高于多次读取单个列的Range，因为数组操作是在内存中完成的，减少了与工作表的交互次数。
• 完全可控列顺序，不受工作表物理布局影响。

方案二：用集合存储独立列Range（适合需单独处理列场景） #

如果需要单独操作每一列的Range对象，可以用Collection按目标顺序存储单个列的Range，避免Union自动排序的问题：

Sub StoreCustomColumnRanges()
    Dim ws As Worksheet
    Dim colRanges As Collection
    Dim singleColRange As Range
    Dim i As Integer
    
    Set colRanges = New Collection
    
    For Each ws In ThisWorkbook.Worksheets
        ' 按目标顺序添加列Range到集合
        colRanges.Add ws.Range("D6:D100")
        colRanges.Add ws.Range("H6:H100")
        colRanges.Add ws.Range("I6:I100")
        colRanges.Add ws.Range("G6:G100")
        
        ' 遍历集合处理每一列
        For i = 1 To colRanges.Count
            Set singleColRange = colRanges(i)
            Debug.Print "第" & i & "列地址：" & singleColRange.Address
            ' 这里可以读取该列数据或进行单独处理
        Next i
        
        Set colRanges = New Collection ' 重置集合，处理下一个工作表
    Next ws
End Sub

方案二注意点： #

• 集合中的Range保持你添加的顺序，但每次只能单独处理一列，效率不如数组方案。

内容的提问来源于stack exchange，提问作者DonnaR