如何通过Excel宏筛选指定值并复制对应列数据至新工作表？

我懂你要的是一个能给客户用的通用模板宏——录制的宏虽然能完成单次操作，但大多带着硬编码的单元格引用或固定工作表名，一旦数据结构变了就容易出错，完全不适合做模板。下面是一个更健壮、灵活的宏代码，完美匹配你的需求：

Sub FilterAndCopyToNewSheet()
    Dim wsSource As Worksheet
    Dim wsNew As Worksheet
    Dim lastRow As Long
    Dim filterRange As Range
    
    ' 可自定义：指定你的源数据工作表，比如改成Set wsSource = ThisWorkbook.Worksheets("原始数据")
    Set wsSource = ActiveSheet
    
    ' 创建新工作表，用时间戳命名避免重名冲突
    Set wsNew = ThisWorkbook.Worksheets.Add
    wsNew.Name = "筛选结果_" & Format(Now(), "YYYYMMDD_HHMMSS")
    
    ' 自动获取数据最后一行，不用手动改行号
    lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    
    ' 定义筛选范围（假设表头在第1行，筛选条件在C列，按需修改列范围）
    Set filterRange = wsSource.Range("A1:C" & lastRow)
    
    ' 清除原有筛选，防止干扰
    If wsSource.AutoFilterMode Then wsSource.AutoFilterMode = False
    
    ' 应用筛选：筛选指定的两个品牌（这里Field:=3对应C列，改成你的实际筛选列号）
    filterRange.AutoFilter Field:=3, Criteria1:="Bimbo Mexico", Operator:=xlOr, Criteria2:="Bimbo Canada"
    
    ' 复制可见的A、B列数据到新表（包含表头）
    wsSource.Range("A1:B" & lastRow).SpecialCells(xlCellTypeVisible).Copy Destination:=wsNew.Range("A1")
    
    ' 取消筛选，还原源表状态
    wsSource.AutoFilterMode = False
    
    ' 自动调整新表列宽，提升可读性
    wsNew.Columns("A:B").AutoFit
    
    MsgBox "搞定！筛选结果已经存到新工作表：" & wsNew.Name, vbInformation
End Sub

关键细节说明 #

• 适配模板的灵活性：你可以直接修改wsSource的赋值，把它固定成你的数据源工作表名称（比如Set wsSource = ThisWorkbook.Worksheets("客户数据")），这样不管用户切换到哪个表，宏都能正确找到数据源。
• 动态适配数据量：通过lastRow自动获取数据的最后一行，哪怕数据增加或减少，宏都不用改代码。
• 筛选列可自定义：代码里Field:=3代表筛选C列，如果你的品牌名称在其他列（比如B列），改成Field:=2就行。
• 避免重名错误：新工作表用时间戳命名，再也不会出现“工作表已存在”的报错。

为什么不用录制的宏？ #

录制的宏会记录你操作时的每一步，比如Range("C1").Select这种硬编码操作，一旦你的数据位置、工作表名称变了，宏就会失效。上面的代码完全摆脱了这些限制，更适合作为给客户的模板使用。

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