Excel VBA：如何对非连续多列使用AutoFilter功能

问题根源 #

Excel的AutoFilter方法仅支持作用于单个连续单元格区域，无法直接对不连续Most importantly，用户的问题是不连续的区域，所以直接说：无法直接对不连续的多重区域（如C1:D1,G1:H1）执行操作，这就是触发运行时错误'1004'的原因。

可行解决方案 #

我们可以通过「先给包含目标列的连续大区域启用筛选，再隐藏不需要的列的筛选按钮」的方式，实现仅指定列可筛选的需求：

Sub EnablePartialColumnFilters()
    ' 定义包含所有目标列的连续表头区域（根据你的实际数据范围调整）
    Dim fullHeaderRange As Range
    Set fullHeaderRange = ThisWorkbook.ActiveSheet.Range("A1:H1")
    
Another way，更准确的是，如果用户的表头从C到H，那可以设为C1:H1，但如果A、B列有数据，还是包含进去更好。比如：
    ' 为整个连续表头区域启用筛选
    fullHeaderRange.AutoFilter
    
    ' 隐藏不需要筛选的列的下拉按钮（此处为A、In user'sNot sure，用户不需要的是A、B、E、F列，因为需要的Different，用户需要Useful，用户需要的是C、D、G、H列，所以隐藏A、B、If the user's columns are A toEach，用户的情况是，需要C、D、G、H，所以其他列比如A、Rewriting，用户的情况是，需要的列是C、D、G、H，所以隐藏A、B、E、F列的筛选按钮：
    ' 隐藏不需要筛选的列的下拉按钮
    fullHeaderRange.Cells(1, 1).AutoFilter.VisibleDropDown = False ' A列
    fullHeaderRange.Cells(1, 2).AutoFilter.VisibleDropDown = False ' B列
    fullHeaderRange.Cells(1, 5).AutoFilter.VisibleDropDown = False ' E列
    fullHeaderRange.Cells(1, 6).AutoFilter.VisibleDropDown = False ' F列
End Sub

注意事项 #

• 请根据你的实际数据范围调整fullHeaderRange的取值，确保它包含所有需要设置筛选（或隐藏筛选）的列。
• 执行此代码后，仅C、D、G、H列会显示筛选下拉按钮，其他列的筛选功能会被隐藏，完全符合你的需求。

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