接收編譯錯誤：范圍對象上的限定符無效

Question

我在以下代碼的倒數第二行收到錯誤消息“編譯錯誤：無效的限定符”。

Dim Init_Range() As Range
Dim Init_Mod_Range() As Range

Init_Range = Sheets("Sheet1").ListObjects("Table1").ListColumns(9).DataBodyRange
Init_Mod_Range = Sheets("Sheet1").ListObjects("Table1").ListColumns(8).DataBodyRange

Init_Range.Select
Selection.Clear

我確信我能夠選擇一個范圍，因為如果我切換到下面的代碼行，它就可以工作。

Sheets("Sheet1").ListObjects("Table1").ListColumns(9).DataBodyRange.Select
Selection.Clear

誰能告訴我為什么將范圍分配給變量會破壞代碼？ 也許我應該使用不同的變量類型？ 任何幫助將不勝感激。

Answer 1

添加集

Set Init_Range = Sheets("Sheet1").ListObjects("Table1").ListColumns(9).DataBodyRange

Set Init_Mod_Range = Sheets("Sheet1").ListObjects("Table1").ListColumns(8).DataBodyRange

處理對象引用時需要使用Set，處理簡單數據類型時可以使用=進行賦值，但范圍和工作表等對象需要Set。

此外，我認為您在聲明 Init_Range 時不需要 ()，這將聲明一個范圍數組，看來您只希望它是一個范圍。

Answer 2

在您可以使用 .Select 或其他變體之前，需要先設置 ListObjects 和 Ranges 等對象變量：

Set Init_Range = Sheets("Sheet1").ListObjects("Table1").ListColumns(9).DataBodyRange