E列が空白のとき、その空白行を削除し、番号を振り直す

質問

windows7　Excel2003でマクロ勉強中です。
あるサイトにE列が空白のとき、その空白行を削除し、番号を振り直すという
コードがありました。
自分で作った表（表の最上段の２行は項目名が入っています。）で　
実行すると「Rangeメソッドは失敗しました。Globalオブジェクト」と
エラーが出ます。エラーはでますが、処理自体は正しく実行されます。
このエラーの原因と回避するにはどうしたらよろしいでしょうか。

Sub E列が空白のとき、その空白行を削除し、番号を振り直す()
Dim i As Long, j As Long

'行削除の処理
For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
If Range("A" & i).Value <> "" And IsNumeric(Range("A" & i).Value) = True Then
If Range("E" & i).Value = "" Then
Rows(i).Delete
End If
End If
Next

'番号振りなおし処理
'’’Range("A" & Rows.Count).End(xlUp).Offset(1).Select
For i = 0 To Range("A" & Rows.Count).End(xlUp).Row
If Range("A" & i).Value = "番号" Then j = 1　・・・・・ここでエラー発生
If Range("A" & i).Value <> "" And IsNumeric(Range("A" & i).Value) = True Then
Range("A" & i).Value = j

j = j + 1
End If
Next
ActiveSheet.Protect
End Sub

回答No.2

mitarashi · ベストアンサー

#1です。
Activesheet.Rangeの件は、この手のエラーが出るときは、エクセルが、「どのシートを対象にしているのか分からん！」というケースが多いので、とにかく対象シートをはっきりさせましょうという意図であり、今回のコードはそれをしなくても、i=1から始めれば動くはずです。（当方では問題無く動作しました）
どんなエラーが出るのか、何処が意図しない動作をするのか、何処で止まるのか詳細をお知らせ下さい。
ご参考までに、対象シートを明確にしたコードを載せます。複数シートを操作する際には、必要になります。
Sub test()
Dim i As Long, j As Long

For i = ActiveSheet.Range("A" & ActiveSheet.Rows.Count).End(xlUp).Row To 1 Step -1
If ActiveSheet.Range("A" & i).Value <> "" And IsNumeric(ActiveSheet.Range("A" & i).Value) = True Then
If ActiveSheet.Range("E" & i).Value = "" Then
ActiveSheet.Rows(i).Delete
End If
End If
Next
For i = 1 To ActiveSheet.Range("A" & ActiveSheet.Rows.Count).End(xlUp).Row
If ActiveSheet.Range("A" & i).Value = "番号" Then j = 1
If ActiveSheet.Range("A" & i).Value <> "" And IsNumeric(ActiveSheet.Range("A" & i).Value) = True Then
ActiveSheet.Range("A" & i).Value = j
j = j + 1
End If
Next
End Sub

補足

作成いただきましたコードを実行したところ、完璧にできました。ありがとうございました。
ところで、このブックの中に他の書式の表2があるのですが、この表2にこのコードを実行すると、エラーも何も出ず何の変化もなく実行されません。

実行できた先の表には、項目部分にセル結合がありましたが、表2にはセル結合はありません。そこでセル結合したところ、１行だけ表示され、あとの行は何も表示されず正常に動作しませんでした。

教えていただいたコードで実行できないことは、どんな原因がかんがえられるのでしょうか？

回答No.3

mitarashi

#1&2です。
>表示される
という意味が分かりかねます。表示するという作業を行うところは無いと思いますが。
何も起こらないとすると、A列に相当するところを誤って何も無い列を指定しているとか、E列に相当するところを、空白セルが無い列を指定しているとかが考えられますね。
デバッグの入門編としては、コードの中の適当な箇所に
Debug.print i
msgbox "ここまで実行された"
Debug.print Range("A" & Rows.Count).End(xlUp).row
とか入れて、ループがどこまで実行されているのか、範囲がちゃんと認識されているのかを把握してください。

お礼

返事が遅れもうしわけありません。このたびは私の質問にお答えいただき適切なご回答ありがとうございました。後の問題については、時間かかりますが、今後自分で研究してみます。また何かありましたら今後ともよろしくお願いします。

回答No.1

mitarashi

Rangeを全て、Activesheet.Rangeに置換して実行すると1004のエラーになって実行が打ち切られるので分かり易いです。i=0から始めているので、Range("A0")と、おかしな事になるのが原因です。（当方XL2000なので、2007と挙動が違っていたら悪しからず）

補足

Rangeを全て、Activesheet.Rangeに置換して実行すると・・の部分が解りません。For i = 0 To Range("A" & Rows.Count).End(xlUp).Row　の部分を
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row　とするとうまく表示されません。