[[20161014184358]]　『マクロで行挿入』（RINO BRANO）　ページの最後に飛ぶ

『マクロで行挿入』（RINO BRANO）

初めて投稿させて頂きます。

A列　　　　B列

りんご　　100　
りんご　　150
りんご　　200
りんご　　100
みかん　　100
みかん　　100
もも　　　100
りんご　　150

このような書式の時に、A列の名称が変わる境目で1行挿入する
マクロがあればご教示願います。

こちらの過去の質問で似たようなのがあり、それを参考にしてみたのですが

実行時エラー'13'
型が一致しません。

というメッセージがでてきてしまいました。
下記のマクロでどこか不具合はありますでしょうか？

Sub 一行飛ばし()

  Dim 行 As Long
  Const 列 = 1  '所属?Vの列

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

End Sub

どなたか教えて頂ければ大変助かります。
よろしくお願い致します。

＜使用 Excel：Excel2013、使用 OS：Windows7 ＞

 データは２行目から存在するんでしょうかね。

 いずれにしても、１行目からデータ　であっても、２行目からデータ　であっても
 アップされたコード、問題なく実行されますが？？

（β） 2016/10/14(金) 19:05

 A列のどこかにエラー値（#N/A とか）があるのでは？

 エラー値であれば、それを比較しようとしているところで　13 エラーになりますが。

（β） 2016/10/14(金) 19:07

β様　
早急に御回答頂きありがとうございます！！
解決致しました！

A列を確認した所、まさにエラー値（#N/A）がありました。
消去した所、一発でマクロが実行されました。

本当にありがとうございます。

（RINO BRANO） 2016/10/14(金) 19:11

コメント返信：