Note: The other languages of the website are Google-translated. Back to English

Excelでセルにゼロが含まれている場合に行全体を削除するにはどうすればよいですか?

Excelでセルにゼロが含まれている場合は行全体を削除したい場合があり、セルの数が少ない場合はXNUMXつずつ削除できます。 しかし、ゼロを含む何百もの行を削除する必要があるのはどうですか? あなたはそれを解決するために以下のトリッキーな方法のXNUMXつを選ぶことができます。

Excelのフィルター機能でセルにゼロが含まれている場合は行を削除します
ExcelのVBAでセルにゼロが含まれている場合は行を削除します
Kutools for Excelでセルにゼロが含まれている場合は、行を削除します


Excelのフィルター機能でセルにゼロが含まれている場合は行を削除します

フィルタ機能を使用して、特定の列のゼロ値に基づいてすべての行を除外し、後で表示されているすべての行を削除できます。 次のようにしてください。

1.行全体を削除するゼロ値を含む列セルを選択し、をクリックします 且つ > フィルタ。 スクリーンショットを参照してください:

2.次に、選択した列の最初のセルにドロップダウン矢印が表示されます。矢印をクリックして、[ 数値フィルター > 等しいです ドロップダウンリストから選択します。

ゼロの場合はドキュメントを削除1

3。 の中に カスタムオートフィルター ダイアログボックスに番号を入力 0 以下のスクリーンショットのようにテキストボックスに入力し、[ OK ボタン。

ゼロの場合はドキュメントを削除1

4.次に、この特定の列のすべてのゼロ値セルが除外されます。 フィルタ範囲内のすべての表示セルを選択して右クリックし、を選択してください 行の削除 右クリックメニューから。 そして、ポップアッププロンプトボックスで、をクリックします OK ボタン。 スクリーンショットを参照してください:

ゼロの場合はドキュメントを削除1

5.これで、表示されているすべての行が削除されます。 クリックできます 且つ > フィルタ 再び、ゼロ値セルのないすべてのデータを表示します。 スクリーンショットを参照してください:

ゼロの場合はドキュメントを削除1


Excelの特定の範囲にゼロ値が存在する場合、すべての行を簡単に削除できます。

Excel用のKutools 特定のセルを選択 ユーティリティを使用すると、特定の範囲にゼロ値が存在する場合に行全体を簡単に選択でき、選択したすべての行を間違いなく手動ですばやく削除できます。
ダウンロードして今すぐ試してみてください! (30- デイフリートレイル)


ExcelのVBAでセルにゼロが含まれている場合は行を削除します

このセクションでは、Excelの特定の列にゼロ値が存在する場合にすべての行を削除するVBAメソッドについて説明します。

1。 押す Altキー+ F11 キーを同時に表示して アプリケーション向け Microsoft Visual Basic 窓。

2. [Microsoft Visual Basic for Applications]ウィンドウで、[ インセット > モジュール、次に、次のVBAコードをコピーしてモジュールウィンドウに貼り付けます。

VBA:ワークシートの特定の列範囲にゼロ値が存在する場合は、行全体を削除します

Sub DeleteZeroRow() 'Updateby20140616 Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox( "Range"、xTitleId、WorkRng.Address、Type:= 8 )Application.ScreenUpdating = False Do Set Rng = WorkRng.Find( "0"、LookIn:= xlValues)If Not Rng Is Nothing Then Rng.EntireRow.Delete End If Loop While Not Rng Is Nothing Application.ScreenUpdating = True End Sub

3。 プレス F5 ポップアップでコードを実行するためのキー Kutools for Excel ダイアログボックスで、内部のゼロ値に基づいて行全体を削除する列範囲を選択し、[ OK ボタン。 スクリーンショットを参照してください:

ゼロの場合はドキュメントを削除1

次に、指定された列範囲のゼロ値に基づくすべての行がすぐに削除されます。

ゼロの場合はドキュメントを削除1


Kutools for Excelでセルにゼロが含まれている場合は、行を削除します

多くのExcelユーザーにとって、VBAコードを使用してExcelのデータを削除することは危険です。 VBAコードを正確に信頼していない場合は、ここで試してみることをお勧めします。 特定のセルを選択 の有用性 Kutools for Excel.

申請する前に Kutools for Excelについては 最初にダウンロードしてインストールします.

1.内部のゼロ値に基づいて行全体を削除する列範囲を選択し、[ クツール > 次の項目を選択します。: > 特定のセルを選択。 スクリーンショットを参照してください:

2。 の中に 特定のセルを選択 ダイアログでは、次のことを行う必要があります。

(1)を選択します 行全体 内のオプション 選択タイプ の項目を検索します。

(2)選択 等しいです 最初に 特定のタイプ ドロップダウンリスト、次に番号を入力します 0 テキストボックスに。

(3)をクリックします OK ボタン。

3.選択した行数を示すダイアログボックスが表示されたら、[ OK ボタン。 これで、指定した列範囲にゼロ値が存在するすべての行が選択されます。 選択した行を右クリックして、クリックしてください 削除 右クリックメニューで。 スクリーンショットを参照してください:

ゼロの場合はドキュメントを削除1

これで、指定した列にゼロ値が存在するすべての行がすぐに削除されます。 スクリーンショットを参照してください:

ゼロの場合はドキュメントを削除1

  無料トライアルをご希望の方は(30-day) このユーティリティの クリックしてダウンロードしてください、次に、上記の手順に従って操作を適用します。


Kutools for Excelでセルにゼロが含まれている場合は、行を削除します


関連記事:


最高のオフィス生産性ツール

Kutools for Excelはほとんどの問題を解決し、生産性を80%向上させます

  • 再利用: すばやく挿入 複雑な数式、チャート および以前に使用したものすべて。 セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストと数式を簡単に編集できます); 読書レイアウト (多数のセルを簡単に読み取って編集する); フィルター範囲に貼り付け...
  • セル/行/列をマージする データを失うことなく; 分割セルコンテンツ; 重複する行/列を組み合わせる...重複セルを防止します。 範囲を比較する...
  • [複製]または[一意]を選択します 行; 空白行を選択 (すべてのセルは空です); スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
  • 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
  • スーパーフィルター (フィルタースキームを保存して他のシートに適用します); 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
  • ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
  • 300 以上の強力な機能. Office / Excel 2007-2021 および 365 をサポートします。すべての言語をサポートします。 企業や組織に簡単に導入できます。 フル機能の 30 日間無料トライアル。 60日間の返金保証。
kteタブ201905

Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
officetab下部
コメントを並べ替える
コメント (15)
まだ評価はありません。 最初に評価してください!
このコメントは、サイトのモデレーターによって最小化されました
これは命の恩人でした!
このコメントは、サイトのモデレーターによって最小化されました
VBコードが機能しません。 10の位置にゼロがあるすべての行を削除します。 データが削除されるので、実際にこれを使用しないことを願っています...
このコメントは、サイトのモデレーターによって最小化されました
私は上記のコードを自分のために機能するように変更しました。 行Cに「Delete」があるすべての行を削除したかった。SubDelete_DeleteRows()Set WorkRng = Range( "C2:C12000")Application.ScreenUpdating = False Do Set Rng = WorkRng.Find( "Delete"、LookIn:= xlValues)If Not Rng Is Nothing Then Rng.EntireRow.Delete End If Loop While Not Rng Is Nothing Application.ScreenUpdating = True End Sub
このコメントは、サイトのモデレーターによって最小化されました
私は私のために働くように以下のコードを変更しました。 これにより、列Cのセルに「Delete」が含まれる列Cのすべての行が削除されました。SubDelete_DeleteRows()Set WorkRng = Range( "C2:C12000")Application.ScreenUpdating = False Do Set Rng = WorkRng.Find( "Delete" 、LookIn:= xlValues)If Not Rng Is Nothing Then Rng.EntireRow.Delete End If Loop While Not Rng Is Nothing Application.ScreenUpdating = True End Sub
このコメントは、サイトのモデレーターによって最小化されました
応答をありがとう、私のために働いた
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、
それは私のために働いた、どうもありがとう。
複数のシートがある場合は? すべてのシートに対してスクリプトを1回実行するにはどうすればよいですか?
このコメントは、サイトのモデレーターによって最小化されました
私の目的のために変更されました-助けてくれてありがとう:Sub DeleteZeroRow()Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "" Application.Calculation =xlManualMsgBox"未使用の0の量を削除する範囲を設定します"Set WorkRng = Application.InputBox(" Range "、xTitleId、" FG93:FG500 "、Type:= 8)Application.ScreenUpdating = False Sheets(" ENTRY ")。Select Do Set Rng = WorkRng.Find(" 0 "、LookIn:= xlValues)If Not Rng Is Nothing Then Rng.EntireRow.Delete End If Loop While Not Rng Is Nothing Application.ScreenUpdating = True Range(" FF92 ")。Select Selection.End(xlDown).SelectMsgBox"Removed。列FGからの0のROW-今すぐ計算中-お待ちください"Application.Calculation= xlAutomatic End Sub
このコメントは、サイトのモデレーターによって最小化されました
こんにちは。シート0の列「N」の値が=1の行を非表示にするコードが必要です。シート2の詳細を更新すると、列「N」の値が変更されます。そのときです。行を再表示する必要があります。 これは、Excelの数式(マクロとExcelフィルターなし)でこれを行うことができますか?
このコメントは、サイトのモデレーターによって最小化されました
これは私にはうまくいきませんでした。 選択した列と隣接する列のすべての値がゼロに変更されました。 私は何か間違ったことをしているに違いない!
このコメントは、サイトのモデレーターによって最小化されました
こんにちはシェリ、
私の場合、コードはうまく機能します。 どのExcelバージョンを使用していますか?
このコメントは、サイトのモデレーターによって最小化されました
こんにちはクリスタル。 XNUMX年前に投稿したので、わかったと思います。 しかし、返事をありがとう。
このコメントは、サイトのモデレーターによって最小化されました
これをVBの新しいモジュールに挿入します。
これは、その単語を含む行を削除するためのInputBoxを使用したものです。

属性VB_Name="FindDelRowByWord"
サブFindDelRow()
'Updateby20140616
範囲として暗くする
範囲として薄暗いWorkRng
文字列としての薄暗いxRep
エラーで次の再開
xTitleId="ZOKツール"
WorkRng=Application.Selectionを設定します
WorkRng = Application.InputBox( "Range"、xTitleId、WorkRng.Address、Type:= 8)を設定します
xRep = Application.InputBox( "行を削除する単語:"、 "ZOKツール"、、、、、、 2)
Application.ScreenUpdating = False
Do
Rng = WorkRng.Find(xRep、LookIn:= xlValues)を設定します
Rngがない場合は何もありません
Rng.EntireRow.Delete
終了する場合
Rngではないときにループすることは何もありません
Application.ScreenUpdating = True
End Subの
このコメントは、サイトのモデレーターによって最小化されました
大きなシートがあり、保持したい行があり、他の行に特定のキーワードが含まれていてそれらを削除した場合はどうなりますか? kutoolsは私には機能しますが、多くの行にそのキーワードが含まれているXNUMXつのキーワードについて、行が削除されました。同じことを行うために複数のキーワードが必要ですか? これは上記のコードで機能しますか?
このコメントは、サイトのモデレーターによって最小化されました
グッド·デイ、
KutoolsはXNUMXつのキーワードを同時に処理できます。 XNUMX番目の条件を「And」または「Or」で有効にする必要があります。 私が助けることができることを願っています。
このコメントは、サイトのモデレーターによって最小化されました
Despues de utilizar subtotal Como hacer para eliminar las filas involucradas que en el subtotal es igual a 0?
ここにはまだコメントが投稿されていません
あなたのコメントを残す
ゲストとして投稿
×
この投稿を評価:
0   文字
推奨される場所

フォローする

著作権©の2009 - WWW。extendoffice.com。 | | 全著作権所有。 搭載 ExtendOffice。 | サイトマップ
MicrosoftおよびOfficeのロゴは、米国MicrosoftCorporationの米国およびその他の国における商標または登録商標です。
SectigoSSLで保護