###前提・実現したいこと
エクセルのSheet6にあるセルのうち、 Like で指定した文字を含まないセルを行ごと削除するマクロを作成しています。
###発生している問題・エラーメッセージ
Withステートメントで Sheet6.Cells(i, "O").MergeArea とくくると
実行時エラー '1004':
アプリケーション定義またはオブジェクト定義エラーです。
と表示されました。
Sheet6まででくくると正常に動作するのですが、Sheet6.Cells(i, "O")まで含めると同様のエラーになることまではわかりました。
なぜ.Cells(i, "O")まで含めるとエラーになるのかご教授願います。
###ソースコード
Sub Rows_Extract()
Dim i, mergeRows, endRow As Long endRow = Sheet6.UsedRange.Rows.Count Debug.Print "最終行は" & endRow & "行目" With Sheet6.Cells(i, "O").MergeArea For i = endRow To 6 Step -1 i = i + 1 mergeRows = .Rows.Count If Not .Offset(0, 0).Rows Like "[フロント,リア,サイド]*" Then .EntireRow.Delete End If i = i - mergeRows Debug.Print "現在" & i & "行目" + vbLf Next i End With
End Sub
###補足情報(言語/FW/ツール等のバージョンなど) ・使用Excel 2010 ・Sheet1~5までは削除済み Sheet6のみ存在
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
退会済みユーザー
2016/03/15 03:48