求助：VBA跨工作簿自动筛选——解决无法获取指定列值问题

原代码存在几个关键问题导致无法正确获取E列值并执行筛选：

1. 取值范围错误：你需要从当前工作表的E列提取筛选字段号，但原代码错误地从目标工作簿的工作表中取值
2. 类型不匹配：Range("E4:E" & lLastRow)是多单元格区域，直接赋值给Integer变量fieldnum会触发类型错误
3. 筛选对象错误：筛选操作应该针对目标工作簿中由当前工作表A列指定的工作表，而非ActiveSheet

以下是修正后的代码：

Sub FilterTargetSheets()
    Dim lLastRow As Long
    Dim wbTarget As Workbook
    Dim wsCurrent As Worksheet
    Dim wsTarget As Worksheet
    Dim fieldNum As Integer
    Dim i As Long
    
    ' 设置当前工作表（即存储目标表名和字段号的工作表）
    Set wsCurrent = ActiveSheet
    
    ' 尝试获取目标工作簿（未打开则提示）
    On Error Resume Next
    Set wbTarget = Workbooks("Quotes_Management_Tool tersrt.xlsx") ' 建议加上文件扩展名
    On Error GoTo 0
    If wbTarget Is Nothing Then
        MsgBox "目标工作簿未找到，请确认已打开或文件名正确", vbExclamation
        Exit Sub
    End If
    
    ' 获取当前工作表A列最后一行行号
    lLastRow = wsCurrent.Cells(wsCurrent.Rows.Count, "A").End(xlUp).Row
    
    ' 循环处理每一行的目标表名和筛选字段
    For i = 4 To lLastRow ' 假设数据从第4行开始，可根据实际调整
        ' 获取目标工作表名称（当前行A列）
        Dim targetSheetName As String
        targetSheetName = wsCurrent.Cells(i, "A").Value
        
        ' 检查目标工作表是否存在
        On Error Resume Next
        Set wsTarget = wbTarget.Sheets(targetSheetName)
        On Error GoTo 0
        If wsTarget Is Nothing Then
            MsgBox "目标工作簿中不存在工作表：" & targetSheetName, vbExclamation
            GoTo NextRow
        End If
        
        ' 获取当前行E列的筛选字段号（验证是否为有效数字）
        If IsNumeric(wsCurrent.Cells(i, "E").Value) Then
            fieldNum = CInt(wsCurrent.Cells(i, "E").Value)
        Else
            MsgBox "第" & i & "行E列的值不是有效数字", vbExclamation
            GoTo NextRow
        End If
        
        ' 在目标工作表执行自动筛选（先取消现有筛选避免冲突）
        wsTarget.Range("$A$5:$R$485").AutoFilter
        wsTarget.Range("$A$5:$R$485").AutoFilter _
            Field:=fieldNum, _
            Criteria1:=RGB(198, 239, 206), _
            Operator:=xlFilterCellColor
            
NextRow:
        Set wsTarget = Nothing ' 释放对象
    Next i
    
    MsgBox "筛选操作完成", vbInformation
End Sub

关键修正点说明 #

• 明确工作表对象：区分存储配置的当前工作表和需要筛选的目标工作表，避免ActiveSheet带来的不确定性
• 循环遍历处理：逐一处理当前工作表A列的所有目标表名，对应读取同一行E列的字段号
• 错误验证：增加工作簿/工作表存在性检查、E列值有效性验证，避免运行时错误
• 正确取值逻辑：从当前工作表的单个E列单元格取值，而非多单元格区域

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