Vba范围对象单列自动填充

Question

我试图自动填充范围对象的单列。最后，我想使用一个公式自动填充。我在下面的一个玩具例子上尝试了这个方法。这会导致一个类型不匹配的错误，我似乎无法解决。

Sub Macro1()

Dim wk As Worksheet

Set wk = ActiveWorkbook.Sheets("Temp")

wk.Cells.Clear

Dim rng As Range

Set rng = wk.Range("A1:B5")

rng.rows(1).Columns(1) = 1

rng.rows(1).Columns(1).Select

Selection.AutoFill Destination:=rng(1 & ":" & rng.rows.Count, "A")

End Sub

这里是一个vba新手，所以任何帮助都会很感激。

Answer 1

仅参考rng的第一列。把

rng.rows(1).Columns(1) = 1
rng.rows(1).Columns(1).Select

Selection.AutoFill Destination:=rng(1 & ":" & rng.rows.Count, "A")

With rng
.Cells(1).Value = 1
.Cells(1).AutoFill Destination:=.Columns(1)
End With

如果你想从第3行开始自动填充:

With rng.Columns(1).Cells(3)
.Value = 1
.AutoFill Destination:=.Resize(rng.Rows.Count - 2)
End With