如何在 Excel 中识别并选中所有合并单元格？

您知道如何在 Excel 中快速查找并选中所有合并单元格吗？以下是三种巧妙方法，助您迅速在选定区域或范围内识别并选中所有合并单元格。

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

使用 Kutools for Excel 快速选择并统计所有合并

使用 VBA 代码识别所有合并

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

您可以通过以下步骤，使用查找命令在活动工作表中识别并选择所有合并：

1. 单击开始 > 查找和选择 > 查找，即可打开查找和替换对话框。您也可以直接按 Ctrl + F 快捷键，在任意位置快速打开该对话框。

2. 单击对话框中的格式按钮。（如果您找不到）格式按钮，请单击选项按钮展开对话框。）参见截图：

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

4. 现在您将返回到查找和替换对话框，单击查找全部按钮，所有合并结果将列于该对话框底部。按住 Shift 键即可全选所有查找结果。

当您选择所有查找结果时，所有合并当前工作表即被选中。参见截图：

提示：若您只想在选定区域内识别、查找并选择合并单元格，请先选中该区域。

使用 Kutools for Excel 选择并统计所有合并

Kutools for Excel 的选择合并单元格工具只需单击一次，即可帮您在选定区域内快速识别、查找并选中所有合并单元格。

安装 Kutools for Excel 后，请按以下步骤操作：（免费下载 Kutools for Excel 立即体验！)

1. 选择包含您要选中数据的合并区域。

2. 单击 Kutools > 选择 > 选择合并单元格，参见截图：

3. 所选区域内的所有合并单元格将立即被选中，并同步统计合并数量，参见截图：

使用 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 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 键运行此宏，所有合并内容将显示在弹出的对话框中。参见截图：

相关文章