Excel で1 行おきの行を素早く削除するには?
Excel で1 行おき(または1 列おき)の行や列を素早く削除したい場合は、まずそれらをスピーディーに選択し、その後で削除操作を適用することがポイントです。この記事では、1 行おきまたは1 列おきの行や列を効率的に選択して、すばやく削除するための便利な方法をいくつかご紹介します。
フィルター機能を使ってExcel で1 行おきの行を削除する
VBA コードを使ってExcel で1 行おきの行を削除する
Kutools for Excel を使ってExcel で1 行おきまたは1 列おきの行・列を削除する
フィルター機能を使ってExcel で1 行おきの行を削除する
Microsoft Excel のフィルター機能を使えば、1 行おきの行を素早く抽出して一括削除できます。以下の手順に従ってください。
1。元のデータとは別の空白列に、0, 1, 0, 1…、0, 1と入力します。この例では、補助用の列 C に数値を入力しています。下のスクリーンショットをご覧ください。

2。列 C を選択し、データタブのフィルターボタンをクリックします。次に、C1 の横にある矢印ボタンをクリックし、すべて選択オプションの下で0のみをチェックしてください。スクリーンショットをご確認ください。

3。すると、1 を持つすべての行が非表示になります。表示されている0 の行を選択し、ホーム>削除>シート行の削除をクリックしてこれらの行を削除します。これにより、1 行おきの行が削除され、その後再度フィルターボタンをクリックして、1 を持つ行のみを表示します。スクリーンショットをご覧ください。
![]() | ![]() |
4。最後に、必要に応じて補助用の列 C を削除してください。
1 行おき、または n 行ごと(列も同様)に選択し、一度に削除します
Kutools for Excelの行/列を間隔で選択ユーティリティを使えば、1 行おきや n 行ごと(列も同様)に簡単に該当する行や列を選択でき、その後、必要に応じてさまざまな操作が行えます。Kutools for Excel を今すぐダウンロード!
VBA コードを使ってExcel で1 行おきの行を削除する
実は、この問題を解決するには VBA マクロも非常に効果的な手段です。
1。Excel でAlt+F11キーを押すと、Microsoft Visual Basic for Applicationsウィンドウが開きます。
2。挿入>モジュールをクリックして、次のマクロをモジュールウィンドウに貼り付けてください。
VBA コード:選択範囲内の1 行おきの行を削除する
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をクリックすると、範囲内において2 行目から始まる1 行おきの行が一度に削除されます。スクリーンショットをご覧ください。
![]() | ![]() | ![]() |
Kutools for Excel を使ってExcel で1 行おきまたは1 列おきの行・列を削除する
Microsoft Excel の初心者にとって、VBA マクロの使用は少し複雑に感じられるかもしれません。行/列を間隔で選択機能を備えたKutools for Excelなら、1 行おきの行を素早く削除できます!
Kutools for Excel をインストールした後は、以下の手順に従ってください。Kutools for Excel
1。1 行おきに削除したい範囲を選択し、次にKutools>選択>行/列を間隔で選択…をクリックして、このユーティリティを適用します。

2。行/列を間隔で選択ダイアログボックスで、以下のスクリーンショットのように設定を行い、OKボタンをクリックして、まず1 行おきの行を選択します。

3。すると、選択範囲内で1 行おきの行がハイライト表示されます。スクリーンショットをご確認ください。

4。その後、選択された1 行おきの行を素早く削除するには、ホーム>削除>シート行の削除をクリックして、これらの行を一括で削除します。スクリーンショットをご覧ください。
![]() | ![]() | ![]() |
この機能を使えば、必要に応じて n 行ごとまたは n 列ごとに、行や列を削除できます。
今すぐKutools for Excel をダウンロードして、無料トライアルをお試しください!
最高の Office 業務効率化ツール
| 🤖 | KUTOOLS AI アシスタント:次に基づいてデータ分析を革新します:インテリジェント実行 | コード生成| カスタム数式作成 | データ分析とチャート生成| 拡張機能呼び出し… |
| 人気の機能:検索・ハイライト、または重複をマーキング | 空白行を削除する | データを失うことなく列の結合またはセルを | 数式を使用しない四捨五入... | |
| スーパー LOOKUP:複数条件 VLookup | 複数値 VLookup | 複数シート間 VLookup | ファジーマッチ.... | |
| 高度なドロップダウンリスト:ドロップダウンリストをすばやく作成 | 連動型ドロップダウンリスト | 複数選択可能なドロップダウンリスト.... | |
| 列マネージャー:指定した数の列を追加|列の移動|非表示列の表示状態を切り替え|範囲および列の比較... | |
| 注目の機能:グリッドフォーカス | デザインビュー |強化された数式バー | ワークブックとシートマネージャー | リソースライブラリ(オートテキスト)| 日付ピッカー | ワークシートの統合 | 暗号化/セルの復号化 | リストからメール送信 | スーパーフィルター | 特殊フィルタ(太字のフォントを持つセルをフィルタリング/斜体/取り消し線。。。) 。。。 | |
| トップ15 ツールセット:12 テキストツール(テキストの追加、特定の文字を削除、...)| 50+チャートタイプ(ガントチャート、...)| 40+実用的関数(誕生日に基づいて年齢を計算します、...)| 19 挿入ツール(QR コードを挿入、パスから画像を挿入、...)| 12 変換ツール(単語に変換する、為替レートの変換、...)| 7 結合と分割ツール(高度な行のマージ、セルの分割、...)|さらに多数 |
Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。
Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします
- Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
- 複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
- 日々の生産性を50%も向上させ、毎日数百回ものマウスクリックを削減します!
すべてのKutools アドインが、たった1 つのインストーラーで完結。
Kutools for Officeスイートには、Excel ・Word ・Outlook ・PowerPoint 用のアドインと Office Tab Pro が含まれており、複数の Office アプリを横断して作業するチームに最適です。
- オールインワンスイート— Excel、Word、Outlook、PowerPoint 用アドイン+Office Tab Pro
- インストーラー1 つ、ライセンス1 つ— 数分でセットアップ可能(MSI 対応)
- 連携してさらにパワーアップ— Office アプリ全体で生産性が向上
- 30 日間のフル機能トライアル— 登録不要、クレジットカード不要
- 最高のお得感— 個別アドイン購入よりお得






