グループ単位で空白行を挿入するVB

下記の様に番号順にまとまったデータがある場合に
その番号が違う番号になった時に空白行を１行挿入したいのですが
良い方法があればご教授下さい。
お願い致します。

<<例>>
（実行前）
　番号 DATA1　DATA2
1　　1　 aaaa bbbb
2　　1　 aaaa cccc
3　　2　 bbbb bbbb
4　　3　 cccc bbbb

（実行後）
1　　1　 aaaa bbbb
2　　1　 aaaa cccc

3　　2　 bbbb bbbb

4　　3　 cccc bbbb

以上です。

No.2 ベストアンサー 回答者： taocat 回答日時： 2005/03/14 15:43

こんにちは。

シンプルなサンプルを。(^^;;;

1行目見出し、２行目からデータだとして。

---------------------------------------------------
Sub Test()

　Dim Bango
　Dim R As Long
　Dim LastRow As Long

　LastRow = Range("A65536").End(xlUp).Row

　Bango = Range("A" & LastRow).Value

　For R = LastRow - 1 To 2 Step -1
　　　If Range("A" & R).Value <> Bango Then
　　　　　Rows(R + 1).Insert shift:=xlDown
　　　　　Bango = Range("A" & R).Value
　　　End If
　Next R

End Sub
------------------------------------------------

以上です。
　

この回答へのお礼

ありがとうございました。
とても参考になりました！

お礼日時：2005/03/14 18:08

No.1 回答者： KenKen_SP 回答日時： 2005/03/14 15:36

VBAや関数を使わない方法です。

1.　[Ctrl]+[*]で表全体を選択
2.　[データ]-[集計]クリック
3.　[グループの基準] ＝ 番号 にして、あとのオプションはお好みで
4.　[OK]クリック

すると、アウトラインが自動的に作成され、グループごとの後ろにデータの集計行が挿入されます。

5.　[データ]-[グループとアウトラインの設定]-[アウトラインのクリア]クリック

あとはオートフィルターで「個数を含む」などの条件で抽出されたデータ範囲を消去します。削除ではなく消去です。