嗨，刚接触VBA的话碰到这种横向筛选的需求确实容易卡壳，毕竟Excel默认的筛选功能只支持行方向的，别担心，我给你写个简单的宏，一步步帮你实现只显示第3行里叫「Abby」的列～

实现思路 #

核心逻辑就是用VBA遍历表格的每一列，检查第3行的单元格内容是否为「Abby」，如果不是就把该列隐藏，符合条件的列保持显示。

具体代码及解释 #

打开VBA编辑器（按Alt+F11），插入一个新模块，把下面的代码粘贴进去：

Sub ShowOnlyAbbyColumns()
    Dim ws As Worksheet
    Dim col As Long
    Dim lastCol As Long
    
    ' 指定要操作的工作表，这里用当前激活的表，你也可以改成具体表名比如Sheet1
    Set ws = ActiveSheet
    
    ' 获取第3行数据的最后一列，避免遍历空列
    lastCol = ws.Cells(3, ws.Columns.Count).End(xlToLeft).Column
    
    ' 先取消所有列的隐藏，确保每次运行都是从全显示状态开始
    ws.Columns.Hidden = False
    
    ' 遍历第3行的每一列
    For col = 1 To lastCol
        ' 判断当前列第3行的内容是否等于"Abby"
        If ws.Cells(3, col).Value <> "Abby" Then
            ' 不符合条件就隐藏该列
            ws.Columns(col).Hidden = True
        End If
    Next col
End Sub

代码关键点说明：

• Set ws = ActiveSheet：如果你要固定操作某个工作表，把ActiveSheet改成ThisWorkbook.Sheets("你的表名")就行
• lastCol = ...：这个是自动找到第3行最后一个有内容的列，不用手动去数列数
• 先取消所有隐藏：避免之前的隐藏状态影响这次筛选结果
• 循环判断：逐列检查第3行的内容，不符合就隐藏

使用方法 #

1. 回到Excel界面，按Alt+F8调出宏对话框
2. 选中ShowOnlyAbbyColumns这个宏，点击「执行」就会自动筛选出第3行是「Abby」的列啦

小扩展 #

如果之后要筛选其他名字，只需要把代码里的"Abby"改成你要的名称就行，比如"Bob"或者其他。要是第3行有合并单元格，记得先调整合并范围，不然可能会判断不准哦～

备注：内容来源于stack exchange，提问作者Pauline Pl