KutoolsforOffice— 1 つのソリューション、5 つの強力なツール。少ない労力で大きな成果。

Excel ですべての結合されたセルを特定して選択する方法は?

著者テクニカルサポート変更日

Excel で結合済みセルを検索・選択する方法をご存知ですか?ここでは、選択範囲または指定範囲内のすべての結合済みセルをすばやく特定・選択するための3 つの便利な裏技をご紹介します。

すべての結合セルを特定して選択

「検索」コマンドですべての結合済みを特定・選択

Kutools for Excel ですべての結合済みをすばやく選択・カウント

VBA コードですべての結合済みを特定


「検索」コマンドですべての結合済みを特定・選択

アクティブなワークシート内のすべての結合済みを検索コマンドで次の手順で特定・選択できます:

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

2書式ボタンをダイアログボックス内でクリックします。()書式ボタンが見つからない場合は、オプションボタンをクリックしてダイアログを展開してください。)スクリーンショットをご参照ください:

ダイアログ ボックスで [書式] ボタンをクリック

3フォーマットを検索ダイアログボックスが表示されたら、配置タブのテキストコントロールセクションで結合セルオプションのみをチェックし、OKをクリックします。

ダイアログ ボックスで [セルの結合] オプションをオンにする

4検索と置換ダイアログボックスに戻ったら、すべて検索ボタンをクリックします。すると、すべての結合済みセルがこのダイアログボックスの下部に一覧表示されます。Shiftキーを押しながら、すべての検索結果を選択してください。

これで、すべての検索結果を選択すると、結合済みのすべてのアクティブなワークシートが選択されます。スクリーンショットをご参照ください。

すべての検索結果を選択すると、すべての結合セルが選択される

ヒント:選択範囲内でのみ特定・検索・結合セルを選択するには、事前にその範囲を選択しておく必要があります。


すべての結合済みを選択してカウント(Kutools for Excel 使用)

Kutools for Excel結合セルを選択ツールを使えば、選択範囲内のすべての結合セルをワンクリックで瞬時に特定・検索・選択できます。

Kutools for Excelは、複雑な作業を効率化する300 以上の高度な機能を提供し、創造性と効率性を高めます。AI 機能を統合したKutools は、データ管理を簡単にしながら正確にタスクを自動化します。Kutools for Excel の詳細情報。。。         無料トライアル。。。

Kutools for Excel をインストール後、以下の手順に従ってください:Kutools for ExcelKutools for Excel を今すぐ無料ダウンロード!

1。データ範囲を選択し、その中から「結合済み」セルを選択します。

2Kutools > 選択 > 結合セルを選択をクリックします。スクリーンショットを参照してください:

Tabs > 選択 > 結合セルを選択 をクリック

3。選択範囲内のすべての結合セルが一度に選択され、その数も同時にカウントされます。スクリーンショットを参照してください:

すべての結合セルが選択される

ヒント:この機能を使用するには、まずKutools for Excelをインストールする必要があります。今すぐダウンロードして30 日間の無料トライアルをお試しください。

VBA コードですべての結合済みを特定

VBA 1:すべての結合済みを特定してハイライト

1ALT + 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

3F5キーを押してこのマクロを実行すると、アクティブなワークシート内のすべての結合セルが特定され、ハイライトされます。スクリーンショットを参照してください:

すべての結合セルをハイライトする VBA コード

VBA 2:すべての結合済みを特定して一覧表示

1ALT + 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

3F5キーを押してこのマクロを実行すると、すべての結合セルがポップアップダイアログボックスに一覧表示されます。スクリーンショットを参照してください:

すべての結合セルを一覧表示する VBA コード