|
エラー処理というより、コードが間違いでした。
エラー処理で無限ループを抜けてます。
マクロの目的がわかりませんので、
正しいコードに直ってるかどうかの保証はありませんよ。
Sub つぎの場合()
Workbooks("T_月次細分別マスタ.xls").Worksheets("2.").Activate
Dim y As Range
Dim x As Integer
Dim z As Integer
Do
Columns("cw:cw").Select
Set y = Selection.Find _
(what:="2", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, MatchByte:=False)
On Error GoTo Err1:
y.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
Err1:
Exit Sub
End Sub
|
|