|
▼ちくたく さん:
返信ありがとうございます。
早速試してみたのですが、うまくいきません。。。(初心者なものでご勘弁を!)
Do Loop作業をしていて検索してヒットする間はマクロが動くのですが、該当するデータがなくなった時に先程のエラーが出てしまうのです。
下記はLoop記入の前に入力すればいいのかそれとも??
数パターン試してみたのですが、どこの時点で入力したらいいのか分かりません。
>コードが止まっている処理の前に、
ってどこですか?
一応、今作成しているのを明記したので良かったら教えてください。
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
|
|