VBA如何传递列范围参数？及Collection存储后如何复制到目标区域？

你当前用Collection的思路没必要，反而把逻辑复杂化了。针对你的需求（当数组中某行第4列为空时，将该行对应A-C列的数据复制到工作表K-M区域的逐行位置），直接结合数组和工作表范围操作更高效，以下是正确实现：

核心思路 #

1. 确认Data是从工作表读取的二维数组（通常通过Data = Range("A1:D" & lastRow).Value生成）
2. 遍历数组筛选符合条件的行（IsEmpty(Data(sr,4))）
3. 将筛选出的行的1-3列数据，批量或逐行写入目标范围K:M

代码实现（高效批量版） #

如果数据量较大，建议先把符合条件的数据存入临时数组，再一次性写入工作表，减少IO操作：

Sub CopyFilteredRows()
    Dim ws As Worksheet
    Dim Data As Variant
    Dim tempArr As Variant
    Dim sr As Long, dr As Long, lastRow As Long
    Dim colCount As Integer ' A-C共3列
    
    Set ws = Worksheets(2)
    colCount = 3 ' 对应A-C列
    
    ' 读取数据源到数组（假设数据源是A-D列，根据实际范围调整）
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    Data = ws.Range("A1:D" & lastRow).Value
    
    ' 初始化临时数组，大小为最大可能的行数 × 3列
    ReDim tempArr(1 To UBound(Data), 1 To colCount)
    
    dr = 0
    ' 遍历数组筛选符合条件的行
    For sr = 1 To UBound(Data)
        If IsEmpty(Data(sr, 4)) Then ' 第4列对应原数据的D列
            dr = dr + 1
            ' 复制当前行的A-C列（数组第1-3列）到临时数组
            tempArr(dr, 1) = Data(sr, 1)
            tempArr(dr, 2) = Data(sr, 2)
            tempArr(dr, 3) = Data(sr, 3)
        End If
    Next sr
    
    ' 如果有符合条件的数据，写入目标范围K-M
    If dr > 0 Then
        ' 目标范围从K2开始，写入dr行×3列的数据
        ws.Range("K2:M" & 1 + dr).Value = tempArr
    End If
End Sub

代码实现（逐行复制版，适合小数据量） #

如果数据量小，也可以直接逐行复制到工作表：

Sub CopyFilteredRowsDirect()
    Dim ws As Worksheet
    Dim Data As Variant
    Dim sr As Long, dr As Long, lastRow As Long
    
    Set ws = Worksheets(2)
    
    ' 读取数据源到数组
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    Data = ws.Range("A1:D" & lastRow).Value
    
    dr = 1 ' 目标行从K2开始，初始值对应K2的行索引+1
    For sr = 1 To UBound(Data)
        If IsEmpty(Data(sr, 4)) Then
            dr = dr + 1
            ' 直接将数组中当前行的1-3列写入工作表K-M的对应行
            ws.Cells(dr, "K").Resize(1, 3).Value = Array(Data(sr, 1), Data(sr, 2), Data(sr, 3))
        End If
    Next sr
End Sub

为什么你的Collection方案不对？ #

• 你用For Each cell In users.Item("Users")会遍历A-C列的每个单元格，这和你需要的按行筛选逻辑不符
• FinalList = Users这种赋值方式在VBA中不成立，Collection的项是对象，不能直接赋值
• 嵌套循环逻辑混乱，导致无法正确映射行关系

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