如何修改VBA宏，用C1单元格值替换硬编码值筛选Field17？

直接把硬编码的筛选条件替换为Range("C1").Value即可，同时可以删掉录制宏生成的冗余选择、复制代码，让代码更简洁高效：

Sub BUfilter()
    ' 基于C1单元格的值筛选ListObject"Combined"的第17列
    Dim ws As Worksheet
    Set ws = ActiveSheet
    
    ' 先清除原有筛选（可选，根据需求决定是否保留）
    ws.ListObjects("Combined").AutoFilter.ShowAllData
    
    ' 应用动态筛选条件
    ws.ListObjects("Combined").Range.AutoFilter Field:=17, Criteria1:=ws.Range("C1").Value
    
    ' 可选：定位到A1，不需要可删除此行
    ws.Range("A1").Select
End Sub

关键修改说明： #

• 将Criteria1:= "Tompo"替换为Criteria1:=ws.Range("C1").Value，直接读取C1单元格内容作为筛选条件
• 新增ws变量引用ActiveSheet，避免重复调用ActiveSheet，让代码更清晰且不易出错
• 可选添加ShowAllData清除原有筛选，确保每次筛选基于最新条件执行（若需保留筛选叠加可删除此行）
• 删除冗余的Range("C1").Select和Selection.Copy，这两行在原录制宏中无实际作用，无需复制单元格即可直接读取其值

内容的提问来源于stack exchange，提问作者Muhammad Usman Javed