范围对象错误

我目前正在尝试使用查找functionfind“一个站点：”从那里，我将清除任何权利。 我正在面对一个应用程序定义的错误，在它想要清除的行上。 我想我可能做错了。 如果有人告诉我我错误地做了什么，这将是一件好事

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 

Answer 1

这应该是你以后，你需要将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 

Answer 2

下划线之前需要一个空格。