Vba 范围类中的自动填充方法错误

我试图在VBA中创建一个自动填充函数，但无法使其工作。我得到错误消息：范围类错误中的自动填充方法。有人能告诉我为什么我不能让它工作，或者更好的是一个VBA代码使它工作。提前感谢您，请参阅下面的代码：（该代码只是更大代码的一部分，我非常确定SourceRange或FillRange没有问题，我在第行看到错误：

SourceRange.AutoFill Destination:=FillRange

）

---

建议，最好避免

ActiveCell

和

选择

；尝试使用

范围（“B1”）

（例如）或

单元格（1，“B”）

编辑1：

Set SourceRange1 = Worksheets("Blad1").Range("A1:A2")

' you need to set the Range from A1
Set FillRange1 = Worksheets("Blad1").Range("A1:A10")

SourceRange1.AutoFill Destination:=FillRange1

---

设置好

msgbox

源范围和

FillRange

后，请立即尝试

msgbox

ing。你得到期望值了吗？@Marcus Forsberg在下面测试我的答案，只要

Lenght1.Count

在你的代码中得到一个数字work@MarcusForsberg你试过我下面的代码了吗？成功了吗？谢谢你的回答！我试图做一个简单的自动填充，如下所示，但仍然得到相同的错误。让我觉得有某种附加功能是不可用的？设置SourceRange1=工作表（“Blad1”）。范围（“A1:A2”）设置FillRange1=工作表（“Blad1”）。范围（“A4:A10”）SourceRange1。自动填充目标：=FillRange1@MarcusForsberg查看我编辑的答案，您需要将

FillRange1

设置为范围（“A1:A10”）

Set SourceRange = Worksheets("Sheet2").Range(ActiveCell.Offset(-1, 0).Address & "," & ActiveCell.Offset(-1, 0).Address)
Set FillRange = Worksheets("Sheet2").Range(Selection.Address & "," & ActiveCell.Offset((Lenght1.Count), 0).Address)

SourceRange.AutoFill Destination:=FillRange

Set SourceRange1 = Worksheets("Blad1").Range("A1:A2")

' you need to set the Range from A1
Set FillRange1 = Worksheets("Blad1").Range("A1:A10")

SourceRange1.AutoFill Destination:=FillRange1