エクセルについて教えてください。

質問

エクセルの行を一つ飛びで消したいのですができますか？
例）
　Ａ　Ｂ
1
2
3
4
　↓

たとえばＡ列Ｂ列の偶数行（２，４，６・・・）をまとめて消して上に詰めたいのですが。
詳しい方お願いします。

回答No.3

mu2011 · ベストアンサー

一例です。
（１）空き列（仮にＣ列）のC1に１、C2は未入力として、C1:C2を選択、下方向にコピー
（２）コピーした状態でCtrl＋Ｇキー押下→セル選択→空白を選択→ＯＫ→Ctrl＋－（ハイフン）を
　　　押下→行全体を選択→ＯＫ
（３）空き列（c列）を削除

お礼

回答ありがとうございました。

回答No.4

tom04

こんばんは！
A1セルから数値が入っているとします。

操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面がでますので
↓のコードをコピー＆ペーストしてマクロを実行してみてください。
（Alt＋F8キー　→　マクロ　→　マクロ実行です）

Sub test() 'この行から
Dim i As Long
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(i, 1) Mod 2 = 0 Then
Rows(i).Delete (xlUp)
End If
Next i
End Sub 'この行まで

※　数値が連番の場合は手動でも簡単にできます。
A列を挿入　→　元のA列がB列に移動しますので
A1セルに「1」と入力
A1・A2（空白のまま）を範囲指定しA2セルのフィルハンドルでずぃ～～～！っと下へコピー！
データ内のセル（どこでもOK）を選択　→　メニュー　→　データ　→　オートフィルタ
A列の▼で「空白セル」を選択
これで偶数行のみが表示されますので、行毎すべて削除！　→　オートフィルタを解除
最後にA列を削除して完了です。

参考になりますかね？m(_ _)m

お礼

回答ありがとうございました。

回答No.2

keithin

Ｂ１に何か記入します。数字の１でもいいし，Ａとかでもいいです
Ｂ２は空っぽのナンにも入っていないままにします
Ｂ１：Ｂ２を選択し，下向けにＡ列リスト下端までオートフィルドラッグします

Ｂ１からＡ列リスト下端までを選択します
Ｂ１がアクティブセルになっていることを確認して，Ｂ列昇順で並べ替えます（Ａ→Ｚ並べ替えボタンをポチッと押します）
奇数行が上に集まり，偶数行が下に集まるので，偶数行をまとめて選んで削除します。

お礼

回答ありがとうございました。

回答No.1

noname#154975

マクロ
Excel ワークシートで 1 行おきに行を削除する方法
http://support.microsoft.com/kb/213610/ja

手動で削除
■EXCELの表で一行おきに行削除する方法?教えて - Office系ソフト - 教えて！goo
http://okwave.jp/qa/q3169790.html

お礼

回答ありがとうございました。