"Wrong number of arguments or invalid property assignment" 尝试删除单元格中的值时出错

Question

我的代码段如下，

If Not Column2 = Empty Then
    Set Rg2 = sheet.Cells.Find(What:=Column2)
    If Not Rg2 Is Nothing Then
        Column2Width = Rg2.MergeArea.Columns.Count - 1
        StartCol2Column = Rg2.Column
        EndCol2Column = StartCol2Column + Column2Width
    Else
        MsgBox Column2 & " not found in " & BalkanSheet.Name
    End If
    Else
    Worksheets("Graph").Range(Cells(i, 7), Cells(i, 8), Cells(i, 9), Cells(i, 10)).Value = ""
End If

当我尝试 运行 时，我收到行 Worksheets("Graph").Range(Cells(i, 7), Cells(i, 8), Cells(i, 9), Cells(i, 10)).Value = "" 的错误消息，显示 "Wrong number of arguments or invalid property assignment"。

i 值是在代码前面设置的变量。我想让代码做的是，如果 If 语句为 false (Else)，那么它将删除指定单元格中的值。

有什么想法吗？

Answer 1

尝试这样的事情：

with Worksheets("Graph")
    .Range(.Cells(i, 7), .Cells(i, 10)).ClearContents
end with

想法是 . 是一种引用工作表的方式，当您引用单元格时，这是必需的。