ヒント:他の言語はGoogle翻訳されています。 訪問することができます English このリンクのバージョン。
ログイン
x
or
x
x
お申し込み
x

or

Excelで太字にしないとセルや行を削除する方法は?

以下のスクリーンショットのように、太字のセルで太字のセルではなく、太字のセルでデータの範囲があると仮定すると、太字でない場合はセルまたは行を削除する必要があります。 このチュートリアルでは、太字のセルを手動で1つずつ手動で削除するのではなく、Excelですばやく解決する方法を紹介します。

doc太字でない場合は削除1

VBAで太字にしない場合は行を削除する

太字でない場合はセルを削除し、置換および選択範囲ヘルパ

Kutools for Excelで太字でない場合は行/セルを削除 良いアイデア3


v VBAで太字にしない場合は行を削除する

太字でない行を削除するには、VBAコードを使用して処理します。

1。 押す F11 + Alt キーを使用して アプリケーション用Microsoft Visual Basic 窓。

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 ボタン。

doc太字でない場合は削除2

そして太字のセルを含んでいない行が削除されていることがわかります

doc太字でない場合は削除1右矢印doc太字でない場合は削除3

注:行は、同じ行のすべてのセルが太字になっていない場合にのみ削除できます。

式 長いエクステンションのエクステンションはもう心配する必要はありません! Kutools for Excel's 自動テキスト すべての数式をグループに追加できます
自動テキストとして、あなたの脳を解放する! 自動テキストを知るにはここをクリック 無料トライアルを受けるにはここをクリック

太字でない場合はセルを削除し、置換および選択範囲ヘルパ

太字でないセルからセルの内容を削除する場合は、[検索と置換]機能を使用して太字のセルを最初に選択してから、 Kutools for Excelさん 選択範囲ヘルパー ボールドされていないセルの選択を逆にして内容を削除します。

Kutools for Excel, 以上で 120 便利なExcel機能、 作業効率を高め、作業時間を節約できます。

1。 太字でないセルを削除するデータ範囲を選択し、を押します。 Ctrl + F 有効にする 検索および置換 ダイアログを開き、をクリックします。 オプション ボタン。 スクリーンショットを見る:

doc太字でない場合は削除4

2。 クリック フォーマット に移動します フォーマットを探す ダイアログ、および フォント タブ、選択 ピン から フォントスタイル リスト。 スクリーンショットを見る:

doc太字でない場合は削除5

3。 クリック OK > すべて検索、太字のセルはすべて 検索および置換 ダイアログを開き、 Ctrl + A すべてを選択してから、 検索および置換 ダイアログ。 スクリーンショットを見る:

doc太字でない場合は削除6

4。 次に、これらのセルを選択したままにして クツール > 選択します > 選択範囲ヘルパー。 スクリーンショットを見る:

doc太字でない場合は削除7

5。 ポップアップダイアログで、 逆選択 オプションを選択し、元のデータ範囲を選択します。 これで選択が逆転していることがわかります。 スクリーンショットを見る:

doc太字でない場合は削除8

6。 クリック 閉じる。 今すぐプレス 削除 太字でないセルからセルの内容を削除するキー。

doc太字でない場合は削除9


Kutools for Excelで太字でない場合は行/セルを削除

上記の方法は簡単ではありません。この場合は、 Kutools for Excelさん フォーマットでセルを選択 太字でないセルをすばやく識別し、それらを削除するユーティリティ。

Kutools for Excel, 以上で 120 便利なExcel機能、 作業効率を高め、作業時間を節約できます。

後の 無料インストール Excel用のKutoolsは、以下のようにしてください:

1。 必要なデータ範囲を選択し、をクリックします。 クツール > 選択します > フォーマットでセルを選択。 スクリーンショットを見る:

doc太字でない場合は削除15

2。 ポップアップダイアログで、をクリックします。 セルからフォーマットを選択 ボタンを押してデータ範囲から太字でないセルを選択し、チェックします ピン 「フォント」セクションの下のリストからのみ選択できます。 スクリーンショットを見る:

doc太字でない場合は削除11

3。 クリック Okダイアログボックスが表示され、選択したセルの数が表示されます。 はい それを閉じる。

doc太字でない場合は削除12

ここで、太字でないセルがすべて選択され、 削除 キーを押してセルの内容を削除します。 または、太字ではない行を削除する場合は、選択したセルのいずれかを右クリックし、 削除 > 列全体。 スクリーンショットを参照してください:

doc太字でない場合は削除13右矢印doc太字でない場合は削除14

関連記事:



Excelの推奨生産性向上ツール

Kutools for Excelを使用すると、いつでも作業を終わらせることができ、群衆から目立つようにすることができます。

  • 300作業シナリオ用に設計された1500以上の強力な高度な機能により、生産性を70%向上させ、家族の世話をしたり人生を楽しんだりするための時間を増やすことができます。
  • 数式やVBAコードを暗記する必要はもうありません。これから脳を休ませてください。
  • 3分でExcelのエキスパートになる、複雑で繰り返しのある操作が数秒で可能
  • 毎日何千ものキーボードとマウスの操作を減らし、今や職業病に別れを告げる。
  • 110,000の非常に効果的な人々と300 +世界的に有名な企業の選択。
  • 60-dayフル機能無料トライアル。 60日の返金保証。 2年間の無料アップグレードとサポート。

ブラウザのタブよりはるかに強力な、タブ付きのブラウジングと編集をMicrosoft Officeにもたらします。

  • Officeタブは、Word、Excel、PowerPoint、およびその他のOfficeアプリケーション(発行元、アクセス、Visio、およびプロジェクト)用に設計されています。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を50%向上させ、毎日数百回のマウスクリックを削減します。
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.