Excel で結合されたすべてのセルを検索して選択する方法をご存知ですか? ここでは、Excel の選択範囲または範囲内の結合されたすべてのセルをすばやく識別して選択するための XNUMX つのクールでトリッキーな方法を紹介します。

検索コマンドを使用して、結合されたすべてのセルを識別して選択します

Kutools for Excelを使用して、結合されたすべてのセルをすばやく選択してカウントします

マージされたすべてのセルをVBAコードで識別します

検索コマンドを使用して、結合されたすべてのセルを識別して選択します

アクティブなワークシート内のすべてのマージされたセルを識別して選択するには、 もう完成させ、ワークスペースに掲示しましたか? 次の手順でコマンドを実行します。

1。 クリック ホーム > 検索と選択 > もう完成させ、ワークスペースに掲示しましたか? を開く 検索および置換 ダイアログボックス。 開くこともできます 検索および置換 を押すとダイアログボックス Ctrl + F キー。

2。 クリック フォーマット ダイアログボックスのボタン、（あなたが見つけることができない場合 フォーマット ボタンをクリックしてください オプション ボタンをクリックしてダイアログを展開します。）スクリーンショットを参照してください。

3。 ポップアップで フォーマットを探す ダイアログボックスで、チェックするだけ セルを結合します 内のオプション テキストコントロール 下のセクション アラインメント タブをクリックして OK.

4。 今、あなたはに戻ります 検索および置換 ダイアログボックスで、をクリックします。 すべて検索 ボタン。 マージされたすべてのセルは、このダイアログボックスの下部に一覧表示されます。 を押したままにして、すべての検索結果を選択します シフト キー。

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

ヒント： 選択範囲内の結合されたセルのみを識別、検索、および選択する場合は、最初に範囲を選択する必要があります。

マージされたすべてのセルを選択して、Kutools forExcelでカウントします

Kutools for Excel's マージされたセルを選択 ツールは、ワンクリックで選択範囲内のすべてのマージされたセルを識別、検索、および選択するのに役立ちます。

インストールした後 Kutools for Excel、次のようにしてください:( 今すぐExcel用のKutoolsを無料でダウンロードしてください！ )

1。 結合されたセルを選択するデータ範囲を選択します。

2に設定します。 OK をクリックします。 クツール > 選択 > マージされたセルを選択、スクリーンショットを参照してください：

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

マージされたすべてのセルをVBAコードで識別します

VBA 1：マージされたすべてのセルを識別して強調表示する

1。 を押し続けます Alt + F11 キー、そしてそれは開きます アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、次のマクロをに貼り付けます モジュール 窓。

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 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、次のマクロをに貼り付けます モジュール 窓。

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

関連記事