如何在 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 鍵執行此巨集後，所有合併項目將顯示於跳出的對話方塊中。請參閱截圖：

相關文章