excelのマクロで2007だとエラーが。

質問

excel2003では動いていたマクロが2007では、エラーになってしまいます。
中断→デバッグ→再開→中断→デバッグ→再開、、、、
と中断しながらも１０～２０行ずつ進みます。
解決法がありましたら教えてください。
※デバッグで確認すると「end if」で中断します。

Sub 仕分()
Dim n As Long
Dim nRow As Long

Worksheets("シート名").Activate

nRow = Range("A1").End(xlDown).Row
For n = 2 To nRow
If Cells(n, 6) = "条件１" Then
Cells(n, 22) = "仕分け"
ElseIf Cells(n, 6) = "条件２" Then
Cells(n, 22) = "仕分けしない"
ElseIf Cells(n, 6) = "条件１" And Cells(n, 7) = "条件２" Then
Cells(n, 22) = "仕分け２" Else
Cells(n, 22) = "OK"
End If
Next n
End Sub

回答No.2

nicotinism · ベストアンサー

ヘルプでは下記のように載っています。
お作法通りに記述した方が無難かと。
If condition Then
[statements]

[ElseIf condition-n Then
[elseifstatements] ...

[Else
[elsestatements]]

End If

ただ、今回の場合は上記のように修正しただけでは解決しないかもしれません。
私の場合、
エラーメッセージは出ずに、エラーにはなりそうに無いところで
まるでブレークポイントを設定したように、行が黄色くなって止まってしまう場合が
有りました。
『全てのブレークポイントの解除』でも解決しなかったのでGoogleと
http://okwave.jp/qa/q3480564.html
などが参考になるかと思います。
上記はAccessの話ですがExcelでも同様です。

お礼

エラーでずに最後まで動きました。
改行をなめてました、、、

ありがとうございます。

回答No.1

DreamyCat

２００７版へ移行するときに
コードをコピーして貼り付け、そのときに
何らかの操作ミスがあったのではないかと思います。

２００７版で調べていないので間違っていたらすみません。

Cells(n, 22) = "仕分け２" Else
Cells(n, 22) = "OK"

Cells(n, 22) = "仕分け２"
Else
Cells(n, 22) = "OK"

お礼

ありがとうございました。
まさか改行程度でエラーが、、なんてなめてました。
回答ありがとうございました。

補足

DreamyCatさん回答ありがとうございます。
改行の場所ということでしょうか？

これは、こちらの掲示板に移したときにそのままの改行がなっていないだけで、
実際は

1行目　Cells(n, 22) = "仕分け２"
2行目　Else　Cells(n, 22) = "OK"

という風になっています。

3行にしたほうがいいということなのでしょうか？