Excelですべての結合セルを特定して選択するにはどうすればよいですか？

Excelで結合されたすべてのセルを見つけて選択する方法はご存知ですか？ ここでは、Excelの選択範囲またはデータ範囲ですべての結合セルを迅速に特定して選択するための3つの便利な方法をご紹介します。

「検索」コマンドを使用してすべての結合セルを特定して選択する

Kutools for Excelを使用してすべての結合セルを迅速に選択してカウントする

VBAコードを使用してすべての結合セルを特定する

「検索」コマンドを使用してすべての結合セルを特定して選択する

次の手順で、「検索」コマンドを使用してアクティブなワークシート内のすべての結合セルを特定して選択できます：

1. [ホーム] > [検索と選択] > [検索] をクリックして、「検索と置換」ダイアログボックスを開きます。Ctrl + F キーを押すことで「検索と置換」ダイアログボックスを開くこともできます。

2. ダイアログボックス内の [書式] ボタンをクリックします。（書式ボタンが見つからない場合は、[オプション] ボタンをクリックしてダイアログを展開してください。）スクリーンショットをご覧ください：

3. 表示される「検索の書式設定」ダイアログボックスで、配置タブのテキスト制御セクションにある [セルを結合] のみをチェックし、[OK] をクリックします。

4. これで「 検索と置換」ダイアログボックスに戻ります。「すべて検索」ボタンをクリックすると、すべての結合セルがこのダイアログボックスの下部にリストされます。Shiftキーを押しながらすべての検索結果を選択します。

すべての検索結果を選択すると、アクティブなシート内のすべての結合セルが選択されます。スクリーンショットをご覧ください：

ヒント: 選択範囲内の結合セルのみを特定、検索、選択したい場合は、まず範囲を選択する必要があります。

Kutools for Excelを使用してすべての結合セルを選択してカウントする

Kutools for Excelの「結合セルを選択」ツールを使用すると、1回のクリックですべての結合セルを特定、検索、選択することができます。

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 キーを押してこのマクロを実行すると、すべての結合セルがポップアップダイアログボックスにリストされます。スクリーンショットをご覧ください：

関連記事