|
”2”を検索するたびに下記作業をDo Loopで作業するマクロなんですが、"2"がなくなると
『実行時エラー'91':
オブジェクト変数またはWithブロック変数が設定されていません。』
と出てしまいます。
データの結果はあっているので、このままでも良いのですが、このようなエラーが出ずに例えばMsgBoxなどを表示し作業を終了する方法はありませんか?
初心者なので詳しいことが分からずすみません。
その他アドバイスありましたら合わせてよろしくお願いいたします。
Sub 2.の場合()
Workbooks("T_月次細分別マスタ.xls").Worksheets("2.").Activate
Dim y As Integer
Dim x As Integer
Dim z As Integer
Do
Columns("cw:cw").Select
y = Selection.Find(what:="2", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, MatchByte:=False).Activate
ActiveCell.Offset(2, 0).Select
Selection.EntireRow.Insert
ActiveCell.Offset(0, -38).Select
Selection.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Selection.Copy
For x = 1 To 11
ActiveCell.Offset(0, 1).Select
ActiveCell.PasteSpecial
Next x
Range(Selection, Selection.End(xlToLeft)).Select
Application.CutCopyMode = False
Selection.Copy
ActiveCell.Offset(-2, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues
ActiveCell.Offset(1, 0).Select
For z = 1 To 2
Selection.EntireRow.Delete
Next z
ActiveCell.Offset(-1, 0).Select
ActiveCell.Offset(0, 38).Select
ActiveCell.ClearContents
Loop
End Sub
|
|