Skip to main content

如何在 Excel 中識別並選取所有合併的儲存格?

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

你知道如何在 Excel 中尋找並選取所有合併的儲存格嗎?以下是三種快速識別並選取 Excel 中某個選定範圍或區域內所有合併儲存格的巧妙方法。

identify and select all merged cells

使用「尋找」命令識別並選取所有合併的儲存格

使用 Kutools for Excel 快速選取並計算所有合併的儲存格

使用 VBA 程式碼識別所有合併的儲存格


使用「尋找」命令識別並選取所有合併的儲存格

你可以透過以下步驟,使用「尋找」命令來識別並選取當前工作表中的所有合併儲存格:

1. 點擊「Home(主頁)」>「Find & Select(尋找與選取)」>「Find(尋找)」以打開「尋找和替換」對話框。你也可以通過按下 Ctrl + F 鍵來打開「尋找和替換」對話框。

2. 在對話框中點擊「Format(格式)」按鈕。(如果找不到「Format(格式)」按鈕,請點擊「Options(選項)」按鈕以展開對話框。)請參閱截圖:

Click the Format button in the dialog box

3. 在彈出的「尋找格式」對話框中,僅勾選「Alignment(對齊)」標籤下「Text control(文字控制)」部分中的「Merge Cells(合併儲存格)」選項,然後點擊「OK(確定)」。

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」>「Select(選擇)」>「Select Merged Cells(選擇合併儲存格)」,請參閱截圖:

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. 點擊「Insert(插入)」>「Module(模組)」,並將以下宏粘貼到模組視窗中。

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. 點擊「Insert(插入)」>「Module(模組)」,並將以下宏粘貼到模組視窗中。

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