エクセルVBA、特定条件で行を追加

条件
B列に2～500まで、「ああ-○○」、「かか-▽▽」、…といったように、頭に２文字の目印を付けて、後半には長い文章が書かれて、1つのセルの中で文字列が何種類か並んでいます。

頭の２文字の目印を境目に2行追加したいのですが、どのようなマクロを書けばよいでしょうか？

ネットで見る限り、セル1つずつ検索して、上のセルと異なる場合は行を挿入、が適切に思いますが、頭の2文字の検索？をどうすればよいか思いつきません。

ちなみに、頭の2文字は、
ああ
かか
ささ
たた
なな
と決まっています。。

http://www.asahi-net.or.jp/~zn3y-ngi/YNxv9482.html

こちらの、

10 Dim 行 As Long
20 Const 列 = 7 '所属Ⅲの列

30 For 行 = Cells(Rows.Count, 列).End(xlUp).Row To 3 Step -1
40 If Cells(行, 列) <> Cells(行 - 1, 列) Then
50 Rows(行).Insert
60 End If
70 Next 行

を流用すると、

10 Dim 行 As Long
20 Const 列 = 2
30 For 行 = Cells(Rows.Count, 列).End(xlUp).Row To 3 Step -1
40 If Cells(行, 列) <> Cells(行 - 1, 列) Then
50 Rows(行).Insert
60 End If
70 Next 行

でもよいかと思ったのですが、頭の2文字の判定ができないので、使えない状況です。

セルの中の頭の2文字だけを判定するマクロは作れるでしょうか？
上のものに追加してもらえると助かります。

また、これよりいいものがあれば、教えてください。

No.2 回答者： tom04 回答日時： 2015/05/01 16:37

こんにちは！

すでに回答は出ていますので、参考程度で・・・

Sub Sample1()
Dim i As Long
For i = Cells(Rows.Count, "B").End(xlUp).Row To 3 Step -1
If Left(Cells(i, "B"), 2) <> Left(Cells(i - 1, "B"), 2) Then
Rows(i & ":" & i + 1).Insert
End If
Next i
End Sub


こんな感じではどうでしょうか？m(_ _)m

No.1 回答者： hallo-2007 回答日時： 2015/05/01 16:08

If Cells(行, 列) <> Cells(行 - 1, 列) Then

を
If Left(Cells(行, 列),2) <> Left(Cells(行 - 1, 列)) Then
にしてみてダメだったでしょうか。