[[20170822093401]]　『マクロが起動しなくなりました。。』（888）　ページの最後に飛ぶ

『マクロが起動しなくなりました。。』（888）

下記のようなマクロを利用しております。
今まで問題なかったのですが、急に「実行時エラー'13'　型が一致しません」
というエラーが出てしまいました。
初心者の為、何が問題なのかがわかりません。

何卒ご教示願います。

Sub 1行飛ばし()

  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 ＞

 エラー発生時の
 Cells(行, 列)
 と
 Cells(行 - 1, 列)
 の値をチェックしてみてくれ。
（ねむねむ） 2017/08/22(火) 09:44

 もし、どちらかがエラー値になっていればそのセルがエラーにならないようにするかVBAのほうでエラーの場合に別処理にするようにしてみてくれ。

（ねむねむ） 2017/08/22(火) 09:52

承知いたしました。
ありがとうございます。
（888） 2017/08/22(火) 10:07

コメント返信：

[ 一覧(最新更新順) ]

[[20170822093401]] 『マクロが起動しなくなりました。。』（888） ページの最後に飛ぶ

[[20170822093401]]　『マクロが起動しなくなりました。。』（888）　ページの最後に飛ぶ