エクセルで3行消して1行残す作業をまとめてするには

質問

エクセルに貼り付けたデータで下のように消しの部分の行を消したいのですがどうすればよいでしょうか？
1
2
3
4消し
5消し
6消し
7
8消し
9消し
10消し
以下一行残し3行消すの連続

宜しくお願いします。

回答No.6

lively-gon · ベストアンサー

こんにちは

#4さんの方法と似ていますが，もう少し簡単にできる方法です．

3行目までのB列にとりあえず，4を入力しておきます．

そして，B4からB7までに1, 2, 3, 4と入力します．

A B
1 4
2 4
3 4
4 1
5 2
6 3
7 4
8

一度，B4からB7間でのセルを選択します．
選択すると選択範囲の右下に小さい黒い四角が現れます．
そこにマウスポインタを移動するとカーソルが黒い十字に変わりますので，
変わったところで，Ctrlキーを押しながら(これがポイントです)
マウスの左ボタンを押して選択範囲を広げます．
そうすると1, 2, 3, 4, 1, 2, 3...というように値が循環して入力されます．

その後は，B列で並べ替えを行って，B列の値が4以外の行を削除します．

お礼

御礼が遅くなり申し訳ございません。できました！
ありがとうございました。

回答No.5

imogasi

最初２行は一旦無視するとして、残すのは
3.7.11,15,・・・行と４ごとの等差数列です。
Sheet２の１行には、Sheet1の３
Sheet２の１行には、Sheet1の７
Sheet２の１行には、Sheet1の１１
・・
行を持ってくれば良いので
Sheet２のA1に=OFFSET(Sheet1!$A$1,(ROW()-1)*4+3-1,0)と入れます。
そしてB2以下に複写します。
Sheet１のB列をSheet2へ持ってくるのは
=OFFSET(Sheet1!$A$1,(ROW()-1)*4+3-1,1)
C列は=OFFSET(Sheet1!$A$1,(ROW()-1)*4+3-1,2)
です。最後の数字だけ１だけ増えてます。
勿論各列とも下方向に複写します。
Sheet1の第１、２行目は、Sheet2の一番上に２行挿入して、Sheet1をコピーして貼りつけするか、=Sheet1!A1などで移してください。
Sheet2の下の方の０が出ることの防止策は
=IF(COUNT(Sheet1!A:A)<(ROW()-1)*4+3,"",OFFSET(Sheet1!$A$1,(ROW()-1)*4+3-1,0))とIF部分を付け加えます。A列が数値でないときはCOUNTAを使う。

回答No.4

ares

行が多いのですよね？＃１のおっしゃるやりかたと
もう一つ。。。邪道ですが
消したい行の空いている列に「１」を入力します。

１
２
３
４　　　１
５　　　１
６　　　１
７
８　　　１
９　　　１
10　　　１　　　のように

並べ替えで「１」を入力した列を選択します。
すると消したい行がまとまりますので、
そこでまとめて選択して「削除」。
住所録やダブりデータで量が多いときはこうしています。
でも１００行くらいなら、＃１さんがおっしゃるやり方の
方が早いかも。。。

回答No.3

hakone

開いている列の「一行目」に
=(MOD(ROW(),4)>2)+(ROW()<3)
と書いて、必要なだけ下の方にずるーとコピーします。

コピーしたら、その列の何処かを選択した状態で
メニューの[データ][フィルタ][オートフィルタ]を実行し、
0
を選択します。
あとは、表示されている行の適当な範囲を選択して、
行ごと削除できます。

回答No.2

sunandseaandbeer

何度もすいません。
コントロールキーはどちらか一つだけを押しながらの作業です。両方を押す必要はありません。

回答No.1

sunandseaandbeer

キーボードの左下、右下にそれぞれある「Ctrl（コントロール）キー」を押しながら、消したい行をクリックしていくと、ばらばらに選択できると思います。
消したい行を全てクリックしたなら、「Delete」キーを押せば一括で削除できると思うのですが。

お礼

回答ありがとうございました。1000行くらいまとめて消す方法はないでしょうか？引き続き宜しくお願いします。