为什么在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类型子句 。