excel VBA范围对象单列自动填充

mnemlml8 于 2023-04-07 发布在其他

关注(0)|答案(1)|浏览(166)

我试图自动填充range对象的一列。最终我想使用公式自动填充。我在下面的一个玩具示例中尝试了这个。这导致了一个类型不匹配错误，我似乎无法弄清楚。

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新手在这里，所以任何帮助将不胜感激。

excel

来源：https://stackoverflow.com/questions/75902312/vba-range-object-single-column-autofill

1条答案

按热度按时间

w41d8nur1#

只需参考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

赞(0）回复(0）举报 2023-04-07

我来回答

excel VBA范围对象单列自动填充

1条答案

相关问题

热门标签

最新问答