运行时错误'1004'对象'_Global'的方法'Range'失败

Question

我有一个宏，它根据在主表上找到的信息填充DataCell位置的一些数据和其他一些单元格。 一旦在主表上找到“空白”，它将停止。 然后，我希望它在“数据”表上选择一个范围并清除该范围的内容。

由于某些原因，在尝试选择所需范围时出现错误。 该代码死于：

Range("EmptyCell:AZ24").Select

我只需要它来正确选择范围的第一部分。 该第一单元将根据宏的其他部分而变化。

我已经浏览了您对类似问题的其他答案，但无法解决该问题。

Set DataCell = cnsu2table.Offset(0, x + 1)
    If DataCell <> "" Then
    DataCell.Offset(-2, 0) = cnsu2por
    DataCell.Offset(-1, 0) = cnsu2fcr
    DataCell.Offset(1, 0) = Application.WorksheetFunction.HLookup(DataCell, cnsu2array, 51, False)
    ElseIf DataCell = "" Then
        Set EmptyCell = DataCell.Offset(-2, 0)
        Range("EmptyCell:AZ24").ClearContents

Answer 1

改用：

Range(EmptyCell, Range("AZ24")).ClearContents

Answer 2

更改：

Range("EmptyCell:AZ24").ClearContents

通过：

Range(EmptyCell.Address & ":AZ24").ClearContents

您还应该将EmptyCell变量声明为：

Dim EmptyCell as Range

在使用它之前。

EmptyCell是一个变量，因此将其置于引号之间将不会返回该变量，而是将返回字符串“ EmptyCell”而不是对象EmptyCell 。