如何调整VBA宏筛选含连字符合同并兼容新增数据？

问题分析 #

• 初始宏通过Array指定固定的带连字符合同编号，新增的合同不在数组内就无法被筛选
• 修改后直接用Criteria1:="-"无效，因为Excel自动筛选默认是精确匹配，只会筛选内容完全等于"-"的单元格，而非包含"-"的内容

修正方案 #

要筛选所有包含连字符的单元格，需使用通配符匹配，同时优化代码避免冗余的Select操作（提升效率和稳定性）：

Sub Contracts_Hyphen()
    Dim transWS As Worksheet
    Dim contWS As Worksheet
    Dim transRange As Range
    Dim filteredRange As Range
    
    ' 定义工作表对象，避免Select操作
    Set transWS = ThisWorkbook.Sheets("Transactions")
    Set contWS = ThisWorkbook.Sheets("Contracts")
    
    ' 清除Contracts工作表原有数据（可选，按需保留）
    contWS.Cells.Clear
    
    ' 取消Transactions工作表的现有筛选（防止冲突）
    If transWS.AutoFilterMode Then transWS.AutoFilterMode = False
    
    ' 设置动态数据范围：自动识别已使用的单元格区域，兼容新增数据
    Set transRange = transWS.Range("A1").CurrentRegion
    
    ' 应用筛选：第5列，匹配所有包含"-"的内容
    transRange.AutoFilter Field:=5, Criteria1:="*-*"
    
    ' 获取筛选后的可见区域（包含表头），处理无匹配结果的情况
    On Error Resume Next
    Set filteredRange = transRange.SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    
    ' 若有筛选结果，复制到Contracts工作表
    If Not filteredRange Is Nothing Then
        filteredRange.Copy Destination:=contWS.Range("A1")
    End If
    
    ' 取消Transactions工作表的筛选
    transWS.AutoFilterMode = False
    
    ' 清除剪贴板模式
    Application.CutCopyMode = False
End Sub

关键修改说明 #

1. 通配符匹配：用Criteria1:="*-*"实现包含匹配，*代表任意长度的任意字符，可覆盖所有含-的合同编号
2. 动态数据范围：CurrentRegion替代固定单元格范围，自动适配新增的行/列数据
3. 移除Select操作：直接操作工作表和范围对象，减少运行错误，提升代码执行效率
4. 异常处理：添加错误捕获逻辑，避免无匹配结果时代码报错
5. 可选数据清除：contWS.Cells.Clear可确保每次复制的是最新筛选结果，不需要保留历史数据时可启用

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