如何用VBA更新Excel自动筛选，使新插入行保持可见？

要解决插入新行后自动筛选未包含新内容的问题，核心是获取当前筛选的可见列表，将新公司名称加入后重新应用筛选。以下是修改后的完整代码，包含插入行和更新筛选的逻辑：

Sub AddCompanyAndUpdateFilter()
    Dim sNewName As String
    Dim lPosition As Long
    Dim rCompList As Range
    Dim ws As Worksheet
    Dim filterArray As Variant
    Dim newFilterArray As Variant
    Dim i As Integer
    Dim isInFilter As Boolean
    
    Set ws = Sheets("Sheet4")
    Set rCompList = ws.Range("Companies2")
    
    sNewName = InputBox("Enter name of new company")
    If sNewName = "" Then Exit Sub
    
    On Error Resume Next
    lPosition = Application.WorksheetFunction.Match(sNewName, rCompList, 2)
    On Error GoTo 0
    
    ws.Rows(lPosition + 2).Insert
    ws.Range("A" & lPosition + 2).Value = sNewName
    
    ' 处理自动筛选更新
    If ws.AutoFilterMode Then
        filterArray = ws.AutoFilter.Filters(1).Criteria1
        
        If IsArray(filterArray) Then
            ' 检查新名称是否已在筛选列表中
            isInFilter = False
            For i = LBound(filterArray) To UBound(filterArray)
                If filterArray(i) = sNewName Then
                    isInFilter = True
                    Exit For
                End If
            Next i
            
            ' 不在列表中则添加并重新筛选
            If Not isInFilter Then
                ReDim newFilterArray(LBound(filterArray) To UBound(filterArray) + 1)
                For i = LBound(filterArray) To UBound(filterArray)
                    newFilterArray(i) = filterArray(i)
                Next i
                newFilterArray(UBound(newFilterArray)) = sNewName
                
                ws.AutoFilter.Range.AutoFilter Field:=1, Criteria1:=newFilterArray, Operator:=xlFilterValues
            End If
        Else
            ' 单个筛选条件时，合并为数组
            newFilterArray = Array(filterArray, sNewName)
            ws.AutoFilter.Range.AutoFilter Field:=1, Criteria1:=newFilterArray, Operator:=xlFilterValues
        End If
    Else
        MsgBox "当前未开启自动筛选，新行已默认可见"
    End If
End Sub

关键逻辑说明 #

1. 筛选状态判断：先检查工作表是否开启了自动筛选，避免无筛选时执行无效操作
2. 筛选数组处理：
   • 若当前是多值筛选（数组类型），遍历数组检查新名称是否已存在，避免重复添加
   • 若当前是单值筛选，直接将新名称与原条件合并为数组
3. 重新应用筛选：用更新后的数组重新设置筛选条件，确保新插入的行被设为可见

注意事项 #

• 代码中Field:=1对应A列（筛选列），如果你的筛选列不是第一列，需修改此数字
• 命名区域Companies2需覆盖筛选列的完整数据范围，确保插入位置计算准确
• 加入了空输入判断，避免用户取消输入时出错

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