ExcelでXNUMX行おきにすばやく削除するにはどうすればよいですか？

ExcelでXNUMXつおきの行または列をすばやく削除する場合、重要な点は、最初にXNUMXつおきの行または列をすばやく選択してから、それらに削除操作を適用する方法です。 また、この記事では、最初にXNUMXつおきの行または列を選択してから、それらをすばやく削除する方法について、いくつかの注意点を示します。

フィルタコマンドを使用してExcelのXNUMX行おきに削除する

VBAコードを使用してExcelのXNUMX行おきに削除する

Kutools forExcelを使用してExcelのXNUMX行おきまたは列を削除します

フィルタコマンドを使用してExcelのXNUMX行おきに削除する

MicrosoftExcelの フィルタ コマンドを使用すると、XNUMX行おきにすばやくフィルタリングして、一度に削除できます。次のようにしてください。

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

2。 列Cを選択し、 フィルタ 下のボタン 且つ タブ。 次に、C1の横にある矢印ボタンをクリックし、 0 下 すべてを選択します。 オプション。 スクリーンショットを参照してください：

3。 次に、1のすべての行が非表示になります。 0で表示されている行を選択し、 ホーム > 削除 > シート行を削除する これらの行を削除します。 次に、XNUMX行おきに削除し、クリックする必要があります フィルタ もう一度ボタンを押すと、1の行のみが表示されます。スクリーンショットを参照してください。

4。 最後に、必要に応じてヘルパー列Cを削除できます。

VBAコードを使用してExcelのXNUMX行おきに削除する

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

1. 押したまま 他の + F11 Excelでキーを押すと、 アプリケーション向け Microsoft Visual Basic 窓。

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

VBAコード：選択範囲内のXNUMX行おきに削除します。

Sub DeleteEveryOtherRow()
'Updateby Extendoffice
Dim rng As Range
Dim InputRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Application.ScreenUpdating = False
For i = InputRng.Rows.Count To 1 Step -2
    Set rng = InputRng.Cells(i, 1)
    rng.EntireRow.Delete
Next
Application.ScreenUpdating = True
End Sub

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

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

Kutools forExcelを使用してExcelのXNUMX行おきまたは列を削除します

Microsoft Excelの初心者ユーザーにとって、VBAマクロの使用は少し複雑です。 ザ・ 間隔の行と列を選択します の有用性 Kutools for Excel XNUMX行おきにすばやく削除するのに役立ちます。

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

1。 XNUMX行おきに削除する範囲を選択し、をクリックしてこのユーティリティを適用します。 クツール > 選択 > 間隔の行と列を選択….

2。 に 間隔の行と列を選択します ダイアログボックスで、次のスクリーンショットのように設定を指定し、をクリックします OK ボタンをクリックして、最初にXNUMX行おきに選択します。

3。 次に、選択範囲内のXNUMX行おきに選択され、強調表示されます。 スクリーンショットを参照してください：

4。 次に、をクリックして、選択したXNUMX行おきにすばやく削除できます。 ホーム > 削除 > シート行を削除する これらの行をすべて削除します。 スクリーンショットを参照してください：

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

今すぐExcel用のKutoolsをダウンロードして無料トライアル！