Excelで他のすべての行またはすべてのn行を削除する方法

このチュートリアルでは、Microsoft Excelで、他のすべての行または任意の列を効率的に削除する方法を示します。フィルタリングとVBAコードの2つの方法について説明します。

特定の行を削除することが必要な多くのシナリオがあります。たとえば、奇妙な数週間データを別のシートに転送しながら、偶数数週間からデータを保持する必要がある場合があります。プロセスのコアには、ターゲット行を選択してから削除することが含まれます。

方法：

• フィルタリングを介して他のすべての行を削除します
• VBAで代替行を削除します
• すべてのn行を削除します

方法1：フィルタリングを使用して他のすべての行を削除します

この方法では、ヘルパー列とExcelのフィルタリング機能を使用します。

1. ヘルパー列：データの横に新しい列を追加します。この列の最初のセルに=MOD(ROW(),2)を入力し、ドラッグします。この式は、均一な行で0、奇数行で1を返します。

   

2. フィルタリング：ヘルパー列にフィルターを適用します（data> sort＆filter>フィルター）。 0（均一な行を削除する）または1（奇数行を削除する）のいずれかを選択します。

   

3. 削除：可視行（フィルター基準に一致するもの）を選択し、右クリックして、「削除行」を選択します。

   

4. フィルターの取り外し：フィルターをオフにします（フィルターボタンをもう一度クリックします）。ヘルパー列を削除します。

   

   ワークシートには、保持したい行のみが含まれています。

   

ヒント：削除する代わりに行を移動するには、削除する前にろ過された行をコピーして、新しい場所に貼り付けます。

方法2：VBAで代替行を削除します

このVBAマクロはプロセスを自動化します：

 sub delete_alternate_rows_excel（）
  Dim Sourcurange As Range
  SourceRange = Application.Selectionを設定します
  seet sourcerange = application.inputbox（ "range："、 "select the range"、sourcerange.address、type：= 8）
  sourcerange.rows.count> = 2の場合
    範囲としてdim firstcell
    IntegerとしてのDim RowIndex
    application.screenupdating = false
    rowindex = sourcerange.rows.count-（sourcerange.rows.count mod 2）から1ステップ-2
      set firstcell = sourcerange.cells（rowindex、1）
      firstcell.entirerow.delete
    次
    application.screenupdating = true
  ifを終了します
End Sub

1. VBAエディター（Alt F11）を開きます。

2. モジュール（挿入>モジュール）を挿入します。

3. コードをモジュールに貼り付けます。

4. マクロ（F5）を実行します。

5. プロンプトが表示されたら、データ範囲を選択します。

   

   マクロは、選択した範囲の他のすべての行を削除します。

   

方法3：すべてのn行を削除します

これにより、フィルタリング方法が展開されます。ヘルパー列でこの式を使用します。

=MOD(ROW() - *m*, *n*)

どこ：

• mは、最初のデータ行マイナス1の行番号です。
• nは削除するn行です。

たとえば、行2から始まる3行ごとに削除するには、 =MOD(ROW()-1,3)を使用します。次に、0をフィルタリングし、可視行を削除します。

これにより、任意のnowを効率的に削除できます。開始行に基づいてm調整することを忘れないでください。

以上がExcelで他のすべての行またはすべてのn行を削除する方法の詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。