エクセルで行を2行飛ばし2行消しのテレコをまとめてしたい

質問

エクセルで行を2行残して2行消すのやりたいのですができますか？
１
２
３
４
５
６
７
８
９
１０
と列がある所を
１
２
５
６
９
１０
というように２行飛ばしで消す消さないの連続をまとめてやりたいのですがどうすればできますか？
よろしくお願いします。

回答No.3

imogasi · ベストアンサー

関数式を使ってＳｈｅｅｔ２に抜き出すことを考えます。
空き列（Ｂ列とします）に
=IF(MOD(ROW(A1)-1,4)>1,"",1)と入れて下へ複写します。
1
1

1
1

1
1
となります。
隣列に
=COUNT($B$1:B1)といれて下へ複写します。
1
2
2
2
3
4
4
4
5
6
この後Sheet1からＳｈｅｅｔ２に持っていくのは
Ｓｈｅｅｔ２のＡ１に
=OFFSET(Sheet1!$A$1,MATCH(ROW(A1),Sheet1!$C$1:$C$10,0)-1,0)
といれ下へ複写します。

お礼

みなさんお礼が大変遅くなり申し訳ございませんでした。回答ありがとうございました。
実はまだ１つも試していませんがこれから試して行きたいと思います。
まとめてのお礼となりますがどうかご了承くださいませ。

回答No.2

guruguru2

マクロを使うのは駄目ですか？

Private Sub CommandButton1_Click()
Dim i As Integer
Dim LastAdd As Integer
Dim DelCnt As Integer

'終端セルを取得
LastAdd = Mid(Range("A1").End(xlDown).Address, 4)
i = 1
DelCnt = 1
Do Until LastAdd < i

'行削除
If DelCnt = 3 Then
Rows(i & ":" & i + 1).Select
Selection.Delete Shift:=xlUp
'削除カウンタ初期化
DelCnt = 0

'カウンタ　設定
i = i - 1
End If

'終端セルを取得　※削除すると終端セルアドが変わる為
LastAdd = Mid(Range("A1").End(xlDown).Address, 4)

'削除カウンタ　設定
DelCnt = DelCnt + 1

i = i + 1
Loop

End Sub

で２行飛ばし削除が出来るのですが…。

回答No.1

noname#33973

原始的な方法ですが…。

作業列を２列用意します(A列、B列とします)
まず、A列に、0,1,2,3…　と通し番号を振ります。
次に、B列の先頭に、“=IF(MOD(A1,4)<=1,0,1)”と入力してコピーすると、B列は0,0,1,1,0,0,1,1…　となるはずです。

後は、B列、A列の優先順位で並べ替えた後、いらない部分をまとめて削除すればOKかと。