Excel で太字以外のセルや行を削除するには、どうすればよいでしょうか？

下記のスクリーンショットのように、太字と太字以外の書式が混在するデータ範囲があるとします。ここで必要なのは、太字でないセルまたは行を削除することです。一つひとつ手動で削除する代わりに、このチュートリアルではExcel でこれを素早く処理するテクニックをご紹介します。

VBA を使用して太字でない行を削除する

検索と置換と範囲ヘルパーを使用して太字でないセルを削除する

Kutools for Excel を使用して太字でない行/セルを削除する

太字以外の行を削除するには、VBA コードをご利用いただけます。

1。「Alt + F11」キーを押すと、Microsoft Visual Basic for Applicationsウィンドウが開きます。

2。「挿入」＞「モジュール」をクリックし、開いたモジュールウィンドウに以下の VBA コードを貼り付けます。

VBA：太字でない行を削除する。

Sub DeleteNonBolded()
'UpdatebyKutoolsforExcel20151116
    Dim xRg As Range
    Dim xDelRg As Range
    Dim xAddress As String
    Dim xUpdate As Boolean
    Dim I As Long
    Dim xBold As Variant
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a range", "Kutools for Excel", xAddress, , , , , 8)
    Set xRg = Application.Intersect(xRg, ActiveSheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "This VBA cannot support multiple range", , "Kutools for Excel"
        Exit Sub
    End If
    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For I = 1 To xRg.Rows.Count
        xBold = xRg.Rows(I).Cells.Font.Bold
        If TypeName(xBold) = "Boolean" Then
            If xBold = False Then
                If xDelRg Is Nothing Then
                    Set xDelRg = xRg.Rows(I).EntireRow
                Else
                    Set xDelRg = Union(xRg.Rows(I).EntireRow, xDelRg)
                End If
            End If
        End If
    Next
    xDelRg.Delete
    Application.ScreenUpdating = xUpdate
End Sub

3。「F5」キーを押して VBA コードを実行します。Kutools for Excelダイアログボックスが表示されたら、太字以外の行を削除する範囲を指定し、「OK」ボタンをクリックします。

すると、太字が含まれていない行が削除されたことが確認できます。

注：すべてのセルが太字でない場合にのみ、その行を削除できます。

KUTOOLS AI でExcel の魔法を解き放ちましょう

• スマート実行：セル操作、データ分析、チャート作成をすべてシンプルなコマンドで実現します。
• カスタム数式：ワークフローの効率化に役立つ、あなただけのカスタマイズ数式を生成します。
• VBA コーディング：VBA コードを簡単に記述・実装できます。
• 数式の解釈：複雑な数式が簡単に理解できます。
• テキスト翻訳：スプレッドシート内で言語の壁を乗り越えましょう！

AI 搭載のツールでExcel の機能をさらに強化しましょう。今すぐダウンロードして、これまでにない効率を体験してください！

検索と置換と範囲ヘルパーを使用して太字でないセルを削除する

太字でないセルの内容だけを削除したい場合は、まず検索と置換機能で太字のセルを選択し、その後、Kutools for Excelの範囲ヘルパーを使って太字でないセルを逆選択してから、内容を削除します。

1。太字でないセルを削除したいデータ範囲を選択し、「Ctrl + F」を押して検索と置換ダイアログを開き、「オプション」ボタンをクリックしてください。スクリーンショットを参照してください：

2。「書式」をクリックしてフォーマットを検索ダイアログを開き、「フォント」タブのフォントスタイルリストから太字を選択してください。スクリーンショットを参照してください：

3。「OK」をクリックした後、「すべて検索」をクリックすると、すべての太字が検索と置換ダイアログに一覧表示されます。「Ctrl + A」を押してすべてを選択し、検索と置換ダイアログを閉じてください。スクリーンショットを参照してください：

4。これらのセルを選択した状態で、「Kutools>選択>範囲ヘルパー」をクリックしてください。スクリーンショットを参照してください：

5。表示されるダイアログで、まず選択を反転オプションにチェックを入れ、その後、元のデータ範囲を選択してください。これにより、選択範囲が反転していることを確認できます。スクリーンショットを参照してください：

6。「閉じる」をクリックした後、「Delete」キーを押して、太字でないセルの内容を削除します。

Kutools for Excel を使用して太字でない行/セルを削除する

上記の方法は十分に簡単とは言えません。このような場合は、Kutools for Excelの類似の書式を持つセルを選択するユーティリティを使えば、太字でないセルを素早く特定して削除できます。

無料でインストールKutools for Excel 後、以下の手順に従ってください：

1。必要なデータ範囲を選択し、「Kutools > 選択 > 類似の書式を持つセルを選択する」をクリックしてください。スクリーンショットを参照してください：

2。表示されるダイアログで、「セルから書式を選択」ボタンをクリックし、データ範囲から太字でないセルを1 つ選択してください。その後、下部のフォントセクションにあるリストで「太字」のみにチェックを入れます。スクリーンショットを参照してください：

3。「OK」をクリックすると、選択されたセル数を知らせるダイアログが表示されます。「はい」をクリックして閉じてください。

これで、すべての太字以外のセルが選択されました。「Delete」キーを押して、セルの内容を簡単に削除できます。または、太字以外の行ごと削除したい場合は、選択されたセルのいずれかを右クリックし、「削除>行全体」を選択してください。スクリーンショットを参照してください：

デモ：太字でないセル/行を削除する

関連記事：

• Excel でハイパーリンクをプレーンテキストに変換する方法は？
• Excel でセルの内容が特定の文字列で始まるか、または終わる場合にカウントするには、どうすればよいですか？
• Excel でリストから重複を削除し、その件数をカウントするにはどうすればよいですか？

最高の Office 業務効率化ツール

🤖	KUTOOLS AI アシスタント：次に基づいてデータ分析を革新します：インテリジェント実行   ｜  コード生成｜  カスタム数式作成  ｜  データ分析とチャート生成｜  拡張機能呼び出し…
	人気の機能：検索・ハイライト、または重複をマーキング   ｜  空白行を削除する   ｜  データを失うことなく列の結合またはセルを   ｜  数式を使用しない四捨五入...
	スーパー LOOKUP：複数条件 VLookup  ｜  複数値 VLookup  ｜   複数シート間 VLookup   ｜   ファジーマッチ....
	高度なドロップダウンリスト：ドロップダウンリストをすばやく作成   ｜  連動型ドロップダウンリスト   ｜  複数選択可能なドロップダウンリスト....
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示状態を切り替え｜範囲および列の比較...
	注目の機能：グリッドフォーカス   ｜  デザインビュー   ｜強化された数式バー   ｜ ワークブックとシートマネージャー   ｜  リソースライブラリ（オートテキスト）｜  日付ピッカー   ｜  ワークシートの統合  ｜  暗号化／セルの復号化   ｜ リストからメール送信   ｜  スーパーフィルター   ｜   特殊フィルタ（太字のフォントを持つセルをフィルタリング／斜体／取り消し線。。。） 。。。
	トップ15 ツールセット：12 テキストツール（テキストの追加、特定の文字を削除、...）｜   50+チャートタイプ（ガントチャート、...）｜   40+実用的関数（誕生日に基づいて年齢を計算します、...）｜   19 挿入ツール（QR コードを挿入、パスから画像を挿入、...）｜   12 変換ツール（単語に変換する、為替レートの変換、...）｜   7 結合と分割ツール（高度な行のマージ、セルの分割、...）｜さらに多数

Kutools はお好みの言語でご利用いただけます。英語、スペイン語、ドイツ語、フランス語、中国語、および40+の他の言語をサポートしています！

Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。

Kutools for Excel の詳細はこちら。。。無料ダウンロード。。。

---

Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします

• Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
• 複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
• 日々の生産性を50％も向上させ、毎日数百回ものマウスクリックを削減します！

Office Tab の詳細はこちら。。。無料ダウンロード。。。

---

すべてのKutools アドインが、たった1 つのインストーラーで完結。

Kutools for Officeスイートには、Excel ・Word ・Outlook ・PowerPoint 用のアドインと Office Tab Pro が含まれており、複数の Office アプリを横断して作業するチームに最適です。

• オールインワンスイート— Excel、Word、Outlook、PowerPoint 用アドイン＋Office Tab Pro
• インストーラー1 つ、ライセンス1 つ— 数分でセットアップ可能（MSI 対応）
• 連携してさらにパワーアップ— Office アプリ全体で生産性が向上
• 30 日間のフル機能トライアル— 登録不要、クレジットカード不要
• 最高のお得感— 個別アドイン購入よりお得

Kutools for Office の詳細はこちら。。。無料ダウンロード。。。