跳至主要内容

如何在 Excel 中识别并选择所有合并的单元格?

Author: Tech Support Last Modified: 2025-05-08

你知道如何在 Excel 中查找并选择所有合并的单元格吗?这里有三种巧妙的方法,可以快速识别和选择 Excel 中某个选定区域或范围内的所有合并单元格。

identify and select all merged cells

使用“查找”命令识别并选择所有合并的单元格

使用 Kutools for Excel 快速选择并统计所有合并的单元格

使用 VBA 代码识别所有合并的单元格


使用“查找”命令识别并选择所有合并的单元格

你可以通过以下步骤使用“查找”命令来识别并选择当前工作表中的所有合并单元格:

1. 点击“开始”选项卡下的“查找与选择”,然后点击“查找”以打开“查找和替换”对话框。你也可以通过按下 Ctrl + F 键打开“查找和替换”对话框。

2. 在对话框中点击“格式”按钮(如果找不到“格式”按钮,请点击“选项”按钮以展开对话框)。请参见截图:

Click the Format button in the dialog box

3. 在弹出的“查找格式”对话框中,仅勾选“对齐”选项卡下“文本控制”部分中的“合并单元格”选项,然后点击“确定”。

check the Merge Cells option in the dialog box

4. 现在回到“ 查找和替换”对话框,点击“全部查找”按钮。所有合并的单元格都会列在这个对话框的底部。按住 Shift 键选择所有查找结果。

当你选择所有查找结果时,当前工作表中的所有合并单元格都会被选中。请参见截图:

all merged cells are selected when selecting all finding results

提示:如果你只想在一个选定区域内识别、查找并选择合并的单元格,则需要先选择该区域。


使用 Kutools for Excel 选择并统计所有合并的单元格

Kutools for Excel 的“选择合并单元格”工具可以帮助你一键识别、查找并选择选定区域内的所有合并单元格。

Kutools for Excel 提供了超过 300 种高级功能,简化复杂任务,提升创造力与效率。 通过集成 AI 能力,Kutools 能够精准自动执行任务,让数据管理变得轻松简单。Kutools for Excel 的详细信息...         免费试用...

安装 Kutools for Excel 后,请按照以下步骤操作:( 立即免费下载 Kutools for Excel! )

1. 选择要选取合并单元格的数据区域。

2. 点击 Kutools > 选择 > 选择合并单元格,参见截图:

Click Kutools > Select > Select Merged Cells

3. 所有选定区域内的合并单元格将一次性被选中,并且还会统计合并单元格的数量,参见截图:

all the merged cells are selected

提示:要使用此功能,你需要先安装 Kutools for Excel ,请 点击下载并享受 30 天免费试用

使用 VBA 代码识别所有合并的单元格

VBA 1:识别并高亮显示所有合并的单元格

1. 按住 ALT + F11 键,打开 Microsoft Visual Basic for Applications 窗口。

2. 点击“插入”>“模块”,并将以下宏粘贴到模块窗口中。

Sub FindMergedcells()
'updateby Extendoffice
Dim x As Range
For Each x In ActiveSheet.UsedRange
If x.MergeCells Then
x.Interior.ColorIndex = 8
End If
Next
End Sub

3. 按 F5 键运行此宏。当前工作表中的所有合并单元格都将被识别并高亮显示,参见截图:

vba code to highlight all merged cells

VBA 2:识别并列出所有合并的单元格

1. 按住 ALT + F11 键,打开 Microsoft Visual Basic for Applications 窗口。

2. 点击“插入”>“模块”,并将以下宏粘贴到模块窗口中。

Sub ListMergedcells()
'updateby Extendoffice
Dim x As Range
Dim sMsg As String
sMsg = ""
For Each x In ActiveSheet.UsedRange
If x.MergeCells Then
If sMsg = "" Then
sMsg = "Merged cells:" & vbCr
End If
sMsg = sMsg & Replace(x.Address, "$", "") & vbCr
End If
Next
If sMsg = "" Then
sMsg = "No merged cells."
End If
MsgBox sMsg
End Sub

3. 按 F5 键运行此宏,所有合并的单元格都会在一个弹出的对话框中列出。参见截图:

vba code to list all merged cells