Excel 运行时错误'；1004'；方法'；范围'；对象的'_全球'；失败

我有一个宏，它在

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

Set DataCell=cnsu2table.Offset（0，x+1）
如果数据单元为“”，则
DataCell.Offset（-2，0）=cnsu2por
DataCell.Offset（-1，0）=cnsu2fcr
DataCell.Offset（1，0）=Application.WorksheetFunction.HLookup（DataCell，cnsu2array，51，False）
ElseIf DataCell=”“然后
Set EmptyCell=DataCell.Offset（-2,0）
范围（“EmptyCell:AZ24”）.ClearContents

改用：

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

更改：

Range("EmptyCell:AZ24").ClearContents

作者：

您还应将

EmptyCell

变量声明为：

Dim EmptyCell as Range

在使用它之前

EmptyCell

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

EmptyCell

Dim EmptyCell as Range