[[20061207130728]]　『一行おきに削除したい』（をきく）　ページの最後に飛ぶ

『一行おきに削除したい』（をきく）

 エクセルのバージョン　2003
 OSのバージョン　XP

 下の表で、このような手順で一行おきに行削除できます。
 １．B1を入力しないで、B2に1を入力する。
 ２．B1:B2を選択して、B10までフィルドラッグして、コピー。（連続データも可）
 ３．そのまま、編集、ジャンプ、セル選択、定数をＯＮ、ＯＫ。
 ４．右クリック、削除、行全体をＯＮ、ＯＫ。

 　　A　　　B
 1　AA10	
 2　AA20　　1
 3　AA30	
 4　AA40　　1
 5　AA50	
 6　AA60　　1
 7　AA70	
 8　AA80　　1
 9　AA90	
10　AA100　 1　　　　　　　　　　　　　　　　　　　　(6UP)

GJ!

 1　地番　住所　現住所　
 2　地番　住所　現住所　1
 3　地番　住所　現住所
 4　地番　住所　現住所　1
 こんなんでやってみると、全部の文字が選ばれ全部消えてしまいます？？？

 定数を選択していますので、該当行だけしか削除しません。
 この口座は、2006/12月のものです。こちらには、書かないでください。2008/1/23　(6UP)

 マクロで行うと （夕焼）

 Sub test()

 Dim i As Integer
 Dim lastrow As Integer
 Dim a As Integer

 lastrow = ActiveSheet.UsedRange.Rows.Count

 For i = lastrow To 1 Step -1

  a = i Mod 2

 'MsgBox a
If a = 1 Then     ' 0なら偶数を削除   1なら奇数削除
 Rows(i).Delete

 End If

  Next

 End Sub

 再度申し上げます。
 この口座は、2006/12月のものです。こちらには、書かないでください。2008/1/23　(6UP)

どこに書けば？

 質問自体過去のものということですか。

 そうです。　(6UP)

コメント返信：