Excel中如何一次性选择包含3个指定文本内容的单元格?
实现Excel多文本片段的批量选中(3个及以上条件)
方法1:条件格式+定位条件
- 选中需要筛选的目标单元格区域(比如
A1:Z100) - 点击「开始」选项卡 → 「条件格式」→ 「新建规则」→ 选择「使用公式确定要设置格式的单元格」
- 在公式框输入:
=AND(ISNUMBER(SEARCH("文本1",A1)),ISNUMBER(SEARCH("文本2",A1)),ISNUMBER(SEARCH("文本3",A1)))- 把
"文本1""文本2""文本3"替换成你需要的三个文本片段,A1要和选中区域的左上角单元格对应
- 把
- 设置一个醒目的格式(比如黄色填充),点击确定
- 按
Ctrl+G打开定位对话框,点击「定位条件」→ 选择「单元格格式」→ 「格式」→ 选中刚才设置的填充颜色,确定后即可选中所有符合条件的单元格
方法2:VBA宏一键选中
- 按
Alt+F11打开VBA编辑器,右键当前工作簿→插入→模块 - 粘贴以下代码:
Sub SelectMultiTextCells() Dim targetRange As Range Dim cell As Range Dim text1 As String, text2 As String, text3 As String ' 替换成你的三个目标文本 text1 = "文本1" text2 = "文本2" text3 = "文本3" ' 目标区域默认是当前选中区域,也可改为固定区域如Range("A1:Z100") Set targetRange = Selection targetRange.Worksheet.Cells.ClearSelection For Each cell In targetRange If InStr(cell.Value, text1) > 0 And InStr(cell.Value, text2) > 0 And InStr(cell.Value, text3) > 0 Then If targetRange.Worksheet.Selection Is Nothing Then Set targetRange.Worksheet.Selection = cell Else Set targetRange.Worksheet.Selection = Union(targetRange.Worksheet.Selection, cell) End If End If Next cell End Sub
- 修改代码里的
text1/text2/text3为你的目标文本,按F5运行即可选中符合条件的单元格
方法3:辅助列公式筛选
- 在空白列(比如D列)首单元格输入公式:
=AND(ISNUMBER(SEARCH("文本1",A1)),ISNUMBER(SEARCH("文本2",A1)),ISNUMBER(SEARCH("文本3",A1))) - 下拉填充公式到数据末尾,返回
TRUE的行就是符合条件的单元格 - 选中辅助列,按
Ctrl+F查找TRUE,点击「查找全部」后按Ctrl+A选中所有结果,切换回原数据列即可选中目标单元格
内容的提问来源于stack exchange,提问作者Johanna
相关产品推荐
相关产品推荐

