Excelで他の行をすべてすばやく削除する方法は？

How to delete every other row in Excel?

Excelで他の行や列をすばやく削除したい場合、まず他の行や列をすばやく選択し、それらに削除操作を適用できるかが大きなポイントになるかと思います。 そして、この記事では、まず他のすべての行や列を選択し、それらを素早く削除する方法について、いくつかのトリッキーなことを紹介します。

フィルタコマンドでExcelの他のすべての行を削除する

VBAコードでExcelの他のすべての行を削除する

Kutools for ExcelでExcelの他の行または列を削除する

。

Delete every other row in Excel with Filter command

Microsoft Excel の Filter コマンドを使用すると、1 行ごとにすばやくフィルターをかけて、一度にそれらを削除することができます。 以下のように操作してください。

1. 元のデータ以外の空欄に、0,1,0,1…,0,1 と入力する。 この場合、ヘルパー列Cに数値を入力します。次のスクリーンショットを参照してください。

2. 列Cを選択し、データタブで[フィルタ]ボタンをクリックします。 次に、C1の横にある矢印ボタンをクリックし、［すべて選択］オプションで［0］のみをチェックします。 スクリーンショット参照：

3. 次に、1がある行はすべて非表示にされます。 0が表示されている行を選択し、ホーム > 削除 > シート行の削除をクリックすると、これらの行が削除されます。

4.Note 4:See screenhots: [DB] [DB] [DB] [DB] [DB] [DB] [DB] [DB] [DB] [DB] [DB] [DB] [DB] [DB] [DB]

VBAコードでExcelで他の行をすべて削除

実際には、VBAマクロもこの問題を解決するのに良い選択です。

1. ExcelでAlt + F11キーを押しながら、それはMicrosoft Visual Basic for Applicationsウィンドウを開きます。

2. Insert > Moduleをクリックして、モジュールウィンドウに次のマクロを貼り付けます。

VBA コード.VBAは、Visual Basic for Applicationsウィンドウを開き、Visual Basic for Applicationsを起動します。

Sub DeleteEveryOtherRow()'Updateby ExtendofficeDim rng As RangeDim InputRng As RangexTitleId = "KutoolsforExcel"Set InputRng = Application.SelectionSet InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)Application.ScreenUpdating = FalseFor i = InputRng.Rows.Count To 1 Step -2 Set rng = InputRng.Cells(i, 1) rng.EntireRow.DeleteNextApplication.ScreenUpdating = TrueEnd Sub

3.F5キーを押して、このマクロを実行します。 すると、範囲を選択するためのダイアログが表示されます。 スクリーンショットを参照してください：

4. その後、クリックOK、2行目から選択した範囲内の他のすべての行は、一度に削除され、スクリーンショットを参照してください。

Delete every other row or column in Excel with Kutools for Excel

for the starter user of Microsoft Excel.All Rights Reserved, VBAマクロの使用は少し複雑です。 Kutools for ExcelのSelect Interval Rows & Columnsユーティリティは、他の行をすばやく削除するのに役立ちます。

Kutools for Excel : 300以上の便利なExcelアドインで、30日間で制限なく無料で試せます。

Kutools for Excelをインストールしたら、次のようにしてください：

1. 1行おきに削除したい範囲を選択し、Kutools > Select > Select Interval Rows & columns…

2をクリックして、このユーティリティを適用してください。 間隔行の選択&列]ダイアログボックスで、次のスクリーンショットに示すように設定を指定し、[OK]ボタンをクリックして、最初に他の行を選択します。

3。 次に選択内の他の行が選択されてハイライトされます。 スクリーンショットを参照してください：

4。 次に、これらの行のすべてを削除するには、ホーム>削除>削除シート行をクリックして、選択した他のすべての行をすぐに削除することができます。 スクリーンショットを見る：

クリックしてこの間隔選択行 & 列機能に関する詳細情報を見ることができます。

この機能を使用すると、必要に応じてすべてのn番目の行または列を削除することもできます。

今すぐKutools for Excelをダウンロードして無料体験しましょう

デモ。 Kutools for Excel