Question

我目前正在尝试使用“查找功能”查找“一个网站：＆＃39;从那里，我将清除右边的任何内容。我正面临一个应用程序定义的错误，它应该被清除。我想我可能做错了。如果有人告诉我我错误地做了什么会很好

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

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

范围对象错误

2 个答案: