excelで、規則的に並んでいる2行づつ削除し、3行目ごとのこす

excelで、規則的に並んでいる2行づつ削除し、3行目ごと残す。
それから、excelの、上のようなプログラムが入門者向けに売ってあるものを教えてください（出来れば）。
それではよろしくお願いいたします。

No.2 ベストアンサー 回答者： souta_n 回答日時： 2004/04/02 09:56

私はExcelVBAはあまり得意ではありません。

でも入門者向けにはベタなプログラムですけど、むしろわかり易いかも。
>excelで、規則的に並んでいる2行づつ削除し、3行目ごと残す。
VBAで記述すると
Sub Macro1()
Dim Cnt As Integer
For Cnt = 1 To 4
　　　Worksheets("Sheet1").Rows(Cnt).Delete
　　　Worksheets("Sheet1").Rows(Cnt).Delete
Next Cnt
End Sub

Cnt変数は削除する行番号です。
FOR Cnt 1 To 4は仮に問題の3行の処理を4回繰り返すということです。
別に10回繰り返したかったら、FOR Cnt 1 To 10とすればよいわけです。
Worksheets("Sheet1").Rows(Cnt).Deleteが2回あるのは2行消すということです。

私は入門書はけちだから買いません。そのかわりサイトを紹介します。

参考URL：http://abcclub.cside.ne.jp/

この回答へのお礼

詳しく書いていただいて、ありがとうございました。

お礼日時：2004/04/02 13:32

No.3 回答者： gosuke32 回答日時： 2004/04/02 11:07

そのシートに何行データがあるのかはわかりませんが、少ない行でしたら。

削除するデータのある行をctrlキーをおしままクリックで選択し、右クリックで削除をすると一度に削除できます。
入門書については、教えてgooを利用して購入していません。

No.1 回答者： mshr1962 回答日時： 2004/04/02 09:19

手動なら空いている（又は挿入した）列に

B,B,Aと入力して下方向にドラッグでコピーしてください。
この列で並び替えればBにした行が下に移動します。
Bの行を削除後、この列を削除でOK

>入門者向けに売ってあるものを教えてください。
売っているものがあるのかは分かりませんが
VBAやマクロの知識があれば作成は可能です。
「エクセルVBA」とか「エクセルマクロ」となっている
参考書を入手すればいいのではないですか？
参考になるサイトのURLを載せておきます。
【エクセル技道場】
http://www2.odn.ne.jp/excel/
上記でだめなら下記のサイトで熟練者のサイトのリンクがあります。
http://www.geocities.co.jp/SiliconValley-SantaCl …