适用场景：

- 需要快速选中多个名称包含 特定字符（如"hxl"）的工作表

- 批量操作前进行 多表联动处理（打印、格式调整等）

- 提高重复性工作的效率，减少手动操作

核心代码解析

示例代码（选中所有名称含 "hxl" 的工作表）

Sub SelectSheetsWithKeyword()
Dim ws As Worksheet
Dim myFlg As Boolean

myFlg = True ' 首次选中时允许替换当前选区

For Each ws In Worksheets
If ws.Name Like "*hxl*" Then ' 检查工作表名是否包含 "hxl"
ws.Select Replace:=myFlg ' 选中工作表
myFlg = False ' 后续选中时改为"追加"模式
End If
Next ws

MsgBox "已选中所有含 'hxl' 的工作表！", vbInformation
End Sub

关键点解析：

1. `Like "*hxl*"` → 使用通配符 `*` 匹配任意字符（类似模糊搜索）

2. `Replace:=myFlg` → 控制选中方式：

- `True`：替换当前选区（首次选中）

- `False`：追加到选区（后续选中）

3. 适用扩展：可修改 `"*hxl*"` 为其他关键字（如 `"*数据*"`、`"2024*"`）

进阶优化技巧

示例 1：结合数组批量处理目标工作表

Dim selectedSheets As Collection
Set selectedSheets = New Collection

For Each ws In Worksheets
If ws.Name Like "*hxl*" Then
selectedSheets.Add ws ' 存储符合条件的工作表对象
End If
Next ws

' 批量操作示例：删除所有含"hxl"的工作表（谨慎使用！）
If selectedSheets.Count > 0 Then
For Each ws In selectedSheets
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
Next ws
End If

示例 2：弹窗显示匹配结果

Dim result As String
For Each ws In Worksheets
If ws.Name Like "*hxl*" Then
result = result & ws.Name & vbCrLf
End If
Next ws

If result <> "" Then
MsgBox "匹配到以下工作表：" & vbCrLf & result, vbInformation
Else
MsgBox "未找到含'hxl'的工作表！", vbExclamation
End If

实际应用场景

批量打印 → 选中所有"月度报告"工作表后一键打印

数据整合 → 仅处理名称含"原始数据"的工作表

安全删除 → 清理临时工作表（如名称含"temp"）

互动提问

你在Excel中需要频繁操作多个工作表吗？

欢迎在评论区留言你的具体需求，我会针对性出教程！

关注我，解锁更多 Excel自动化神技！

Excel技巧 VBA编程 多表操作 办公自动化 效率提升

如果觉得有用，别忘了 点赞 + 收藏，关注我，获取更多Excel VBA高效编程技巧!