範囲オブジェクトエラー - excel、vba

私は現在Find Functionを使用しています「1つのサイト」を見つけます。そこから、右側にあるものはすべてクリアします。私はそれがクリアすることになっている行でアプリケーション定義のエラーに直面しています。私はそれを間違ってしたのかもしれないと思います。誰かが私が間違ってそれをやったことをどこか私に言ったらそれは良いだろう

Dim r As Range
Set r = Sheet2.Range("E:M").Find(What:="One site:", _
After:=Sheet2.Range("E3"), _
LookIn:=xlValues, LookAt:=xlPart)
If Not r Is Nothing Then
r.End(xlRight).ClearContents "Error on this line
End If

回答：

これはあなたが求めているものであるべきです、あなたは変える必要があります xlRight に xlToRightそして、右側のそれらをクリアするための少し余分なもの。

Option Explicit

Sub SO45316709()
Dim r As Range, r2 As Range
On Error Resume Next
Set r = Sheet2.Range("E:M").Find(What:="One site:", After:=Sheet2.Range("E3"), LookIn:=xlValues, LookAt:=xlPart)
On Error GoTo 0
If Not r Is Nothing Then
Set r2 = r.End(xlToRight)
Sheet2.Range(r.Offset(0, 1), r2).ClearContents
End If
End Sub

アンダースコアの前にスペースが必要です。