Question

我正在尝试做一些我认为非常简单的事情但是我被困在部分代码上。

我需要代码查看A列中带有数字的最后一行并将该系列填充一次，即 A20 = 0019 A21 = 0020

Dim LastRow As Variant
Dim LastBlankRow As Variant

LastRow = Range("A" & Rows.Count).End(xlUp).Offset(0).Select
LastRow2 = Range("A" & Rows.Count).End(xlUp).Offset(1).Select

Selection.AutoFill Destination:=Range(LastRow & LastBlankRow), Type:=xlFillDefault

我开始使用此代码并将其开发到上面的代码，但是每次输入更多数据时我的范围都会更改。

Range("A20").Select
Selection.AutoFill Destination:=Range("A20:A21"), Type:=xlFillDefault
Range("A20:A21").Select

我想象我已经错过了一些简单但我无法弄明白的事情。

谢谢！

Answer 1

不要依赖ActiveSheet，始终使用Range限定Rows，Worksheet个对象。

<强>代码

Option Explicit

Sub FillOneDown()

Dim LastRow As Variant

With Worksheets("Sheet1") ' modify "Sheet1" to your sheet's name
    LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

    .Range("A" & LastRow).AutoFill Destination:=.Range(.Cells(LastRow, "A"), .Cells(LastRow + 1, "A")), Type:=xlFillDefault
End With

End Sub

VBA代码将系列填充到下一个空白单元格一次

1 个答案: