如何在Excel中选择名称含特定单词的形状并实现隐藏/显示

核心思路 #

遍历当前工作表所有形状，通过名称匹配目标关键词（如Towncar），收集符合条件的形状后批量选中，替代录制宏的硬编码方式，完美适配后续新增的标注类别。

通用VBA代码 #

1. 通用筛选选中过程 #

这是核心逻辑，可接收任意类别关键词，灵活应对新增类别：

Sub SelectShapesByCategory(categoryName As String)
    Dim shp As Shape
    Dim matchingShapes() As String
    Dim count As Integer
    
    count = 0
    ' 遍历所有形状，收集匹配名称
    For Each shp In ActiveSheet.Shapes
        If InStr(1, shp.Name, categoryName, vbTextCompare) > 0 Then
            count = count + 1
            ReDim Preserve matchingShapes(1 To count)
            matchingShapes(count) = shp.Name
        End If
    Next shp
    
    ' 批量选中匹配形状，无匹配则提示
    If count > 0 Then
        ActiveSheet.Shapes.Range(matchingShapes).Select
    Else
        MsgBox "未找到包含 """ & categoryName & """的形状", vbInformation
    End If
End Sub

2. Towncar类别快捷调用 #

直接绑定到按钮，一键选中所有Towncar类标注：

Sub SelectTowncarShapes()
    SelectShapesByCategory "Towncar"
End Sub

3. 可选：自定义类别输入版本 #

后续新增类别无需修改代码，运行时手动输入关键词即可：

Sub SelectShapesByCustomCategory()
    Dim category As String
    category = InputBox("请输入要筛选的类别名称：", "形状类别筛选")
    
    If category <> "" Then
        SelectShapesByCategory category
    End If
End Sub

代码细节说明 #

• InStr(1, shp.Name, categoryName, vbTextCompare)：不区分大小写匹配关键词，如需严格区分，替换为vbBinaryCompare。
• ReDim Preserve：动态扩展数组，自动收集所有符合条件的形状名称。
• 选中形状后，可通过Excel「形状格式」窗格或右键菜单统一设置隐藏/显示，也可在代码后直接添加ActiveSheet.Shapes.Range(matchingShapes).Visible = msoFalse（隐藏）或msoTrue（显示）实现一键操作。

替换原有录制宏步骤 #

1. 按Alt+F11打开VBA编辑器，删除原Select_towncar_shapes宏。
2. 将上述代码粘贴到对应模块中。
3. 返回Excel，给按钮绑定SelectTowncarShapes或SelectShapesByCustomCategory过程即可。

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