運行時錯誤'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 。