Excel VBA で行挿入

質問

Excel2002を使っています。
質問させていただきます。
VBAで行を挿入したいのですが、たとえば以下のようにデータがあります。
　A列
　東京
　東京
　東京
　大阪
　大阪
　名古屋
予めデータはソートされています。
この状態で、東京と大阪の間、大阪と名古屋の間に1行挿入（空行）したいです。
コマンドボタンをクリックしたときの動作の一つとして実現したいのですが方法がわかりません。
ご指導いただければ幸いです。

回答No.1

himajin555 · ベストアンサー

Sub Macro1()
Cells.Find(What:="大阪", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
Selection.EntireRow.Insert
Cells.Find(What:="名古屋", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
Selection.EntireRow.Insert
End Sub

マクロ記録でできたお。

お礼

回答ありがとうございます。
できました！
お世話になりました。