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

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

方法：

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

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

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

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

   

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

   

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

   

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

   

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

   

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

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

このVBAマクロはプロセスを自動(dòng)化します：

 sub delete_alternate_rows_excel（）
  Dim Sourcurange As Range
  SourceRange = Application.Selectionを設(shè)定します
  seet sourcerange = application.inputbox（ "range："、 "select the range"、sourcerange.address、type：= 8）
  sourcerange.rows.count> = 2の場(chǎng)合
    範(fàn)囲として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）を?qū)g行します。

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

   

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

   

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

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

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

どこ：

• mは、最初のデータ行マイナス1の行番號(hào)です。
• nは削除するn行です。

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

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

以上がExcelで他のすべての行またはすべてのn行を削除する方法の詳細(xì)內(nèi)容です。詳細(xì)については、PHP 中國語 Web サイトの他の関連記事を參照してください。