Excel VBA Withステートメントの使い方

###前提・実現したいこと
エクセルの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件

ベストアンサー

with句の時点でiが初期化されておらず、

With Sheet6.Cells(0, "O").MergeArea

になっているからだと思います。
iを初期化してあげて下さい。

iの部分を可変にしてwith句としたいのでしょうけどたぶん無理です。
素直にsheet6までの括りにしてください。
どうしてもやりたいなら、with句ではなく、rangeを変数にいれるとか。

VBA
1Sub Rows_Extract()
2
3    Dim i, mergeRows, endRow As Long
4→    Dim rng as Range
5
6    endRow = Sheet6.UsedRange.Rows.Count
7    Debug.Print "最終行は" & endRow & "行目"
8
9    For i = endRow To 6 Step -1
10            i = i + 1
11→            Set rng = Sheet6.Cells(i, "O").MergeArea
12→            mergeRows = rng.Rows.Count
13            If Not .Offset(0, 0).Rows Like "[フロント,リア,サイド]*" Then
14→            rng.EntireRow.Delete
15        End If
16        i = i - mergeRows
17        Debug.Print "現在" & i & "行目" + vbLf
18    Next i
19
20End Sub