按列条件筛选行并将指定列数据复制至另一Excel工作表

导致Run-time error '1004'的核心原因及修复点 #

• 工作表名错误：需求明确条件来自Template工作表B1单元格，但代码中错误引用了genericTemplate工作表，导致无法获取正确筛选条件，甚至可能因工作表不存在触发错误。
• 语法错误：conditionThen中间缺少空格，应为condition Then，语法错误直接引发运行时异常。
• Range对象引用不规范：Range(ws2.Cells(x, 3), ws2.Cells(x, 8))未指定所属工作表，默认使用当前活动工作表，当活动表不是ws2时，跨工作表传递Cells参数给Range会触发1004错误。
• 变量声明不规范：i、condition、FinalRow未显式声明类型，变体类型可能带来潜在逻辑问题；Dim i, x As Long仅将x声明为Long，i实际为Variant类型。
• 可选优化：原代码从第1行开始遍历，若onboarding表存在表头，会误将表头纳入筛选范围，建议从第2行开始遍历。

修复后的完整代码 #

Private Sub CommandButton1_Click()
    Dim i As Long, x As Long
    Dim condition As Variant
    Dim ws1 As Worksheet: Set ws1 = ActiveWorkbook.Sheets("onboardings")
    Dim ws2 As Worksheet: Set ws2 = ActiveWorkbook.Sheets("Template")
    
    ' 从Template工作表B1获取筛选条件
    condition = ws2.Cells(1, 2).Value
    Dim FinalRow As Long
    ' 明确使用ws1的行数，避免依赖活动工作表
    FinalRow = ws1.Cells(ws1.Rows.Count, 1).End(xlUp).Row
    
    x = 4
    
    ' 若onboarding表无表头，可将起始行改为i=1
    For i = 2 To FinalRow
        ' 修复语法：condition与Then之间添加空格
        If ws1.Cells(i, 1).Value = condition Then
            ' 明确指定工作表对象调用Range，避免跨表引用错误
            ws2.Range(ws2.Cells(x, 3), ws2.Cells(x, 8)).Value = ws1.Range(ws1.Cells(i, 2), ws1.Cells(i, 7)).Value
            ' 更简洁的写法可用Resize：
            ' ws2.Cells(x, 3).Resize(1, 6).Value = ws1.Cells(i, 2).Resize(1, 6).Value
            x = x + 1
        End If
    Next i
End Sub

额外说明 #

• 若你的数据源工作表实际名称是onboarding（而非代码中的onboardings），请同步修改ws1的工作表名。
• 使用Resize方法可以简化跨列赋值代码，避免重复写多个Cells引用，逻辑更清晰。

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