為什么在Excel中使用VBA會收到“運行時錯誤'424'：需要對象”？

Question

我在VBA中編寫的某些代碼有問題。 我遇到了這個錯誤，但是我不認為我使用錯了，因為我在另一個子程序中寫了非常相似的內容。

Sub quicktest()
Dim testrng As Range
Set testrng = Sheet5.Range("J81")
AddNewRecordsColumn testrng
End Sub

Sub AddNewRecordsColumn(bottomcell As Range)
Dim copyrng, pasterng As Range
Set copyrng = Sheet5.Range(Sheet5.Range("E3"), bottomcell)
Set pasterng = Sheet5.Range(Sheet5.Range("D3"), bottomcell)
pasterng.Value = copyrange.Value 'this is the line highlighted by debugger

End Sub

任何幫助將不勝感激！

Answer 1

在最后一行上，突出顯示的那個，copyrange不存在。 復制確實，差異很小。

Answer 2

Dim copyrng, pasterng As Range

由於尚未為復制指定數據類型，因此它是一個變體。 對於變體，請使用Value2或復制一個范圍。

從幫助昏暗

輸入 Optional 。 變量的數據類型； 可以是Byte，Boolean，Integer，Long，Currency，Single，Double，Decimal（當前不支持），Date，String（對於可變長度的字符串），String * length（對於固定長度的字符串），Object，Variant，a用戶定義的類型或對象類型。 對聲明的每個變量使用單獨的As類型子句 。