マクロエラ-

質問

初心者です。win2000,エクセルでマクロが途中で止まってしまいます。時々に、最後までいくことがありますが、８割がたは、同じところでストップします。
マクロ言語は理解できていません。
うまく完了のケ－スは、デ－タの中身次第かなと思います。

記憶では、”0”があれば、何かをするようにしたと思います。
想定外のデ－タで、とまるのなら、回避方法を教えてください。

黄色反転して、ストップする部分は、以下です。

mcr3
Range("A1").Select
ActiveCell.SpecialCells(xlLastCell).Select
Columns("C:C").Select
Selection.Find(What:="0", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, MatchByte:=False).Activate
いつもここで止まります。
ActiveCell.Replace What:="0", Replacement:="", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, MatchByte:=False
Selection.Find(What:="0", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, MatchByte:=False).Activate

-----------→つずく。

回答No.1

papayuka · ベストアンサー

単純にC列にある 0 を消したいだけなら

Sub Test()
　Columns("C:C").Replace What:="0", Replacement:="", LookAt:=xlWhole, _
　　SearchOrder:=xlByRows, MatchCase:=False, MatchByte:=False
End Sub

で良いと思います。

補足

ありがとうございます。
エラ－は、次のとおりです。

---実行時エラ－’91’
オブジェクト変数または、Withブロック変数が
設定されていません。---（終了-デバッグ-ヘルプ。）

何かの構文を追記すれば、エラ-回避できるケ－スでしょうか。

回答No.3

papayuka

ちなみに無理やりエラーでも進めるなら下記を一番上に追記します。

On Error Resume Next

つづくの後の処理によっては中途半端に処理が実行され、困った事になる可能性があります。

補足

ありがとうございます。
教えて頂き、だんだん様子が見えてきたような気がします。
つまり、自分で作ったマクロは、”作った時点でのデ－タ”に散在した”0”と”0”ではないところに対応したマクロだった。（と思います）-だから、同じマクロを次のデ－タに適用すると、散在する位置が違うからエラ－になる（と思います）
そこは、構文を知らない者の、限界点（と思います）

それでも、めげずに結果をだすなら、一回目に教えて頂いた方法でいいのかなと（思います）
その場合、挿入する区切りの場所がわかるかどうかですが、試してみます。
ありがとうございました。
感謝して、とりあえずポイントにさせていただきます。

回答No.2

papayuka

#1です。

見えている内容からだと、C列に 0 のセルが最低2つ無いとエラーになります。

　'C列を選択
　Columns("C:C").Select

　'選択範囲内で "0" を探してアクティブ
　Selection.Find(What:="0", ・・略・・).Activate

Find メソッドのヘルプ抜粋
　# 情報が見つかった最初のセル (Range オブジェクト) を返します。
　# 条件にあてはまるセルが見つからなかった場合は、Nothing を返します。

エラーは見つからないもの（Nothing）を アクティブにしようとしているからだと思います。

ほとんどヘルプサンプルのまんまですが、Find の結果が Nothing か否かを判断して条件を分岐させる必要があります。例は C列にある 0 のセルに赤色を付けます。
こことここの間の c.Interior.ColorIndex = 3 がセルを赤色にする部分です。

Sub Test()
Dim c
With ActiveSheet.Columns("C:C")
　Set c = .Find(What:="0", LookIn:=xlFormulas, LookAt:=xlWhole)
　If Not c Is Nothing Then
　　 firstAddress = c.Address
　　 Do
　　　　'↓ここと
　　　　c.Interior.ColorIndex = 3
　　　　'↑ここの間にやりたい処理を書く
　　　　Set c = .FindNext(c)
　　 Loop While Not c Is Nothing And c.Address <> firstAddress
　End If
End With
End Sub