VBA 自动填充 - 单元格引用变量

问题描述

我正在尝试将 A 列中的最后一个单元格自动填充到 B 列中的最后一个单元格。

但是，每列中的最后一个单元格是可变的。

以下是我当前的代码：

level

我找到了 A 列中的第一个空单元格并输入了“TEMP”。我现在想把它填到 B 列的最后一行。

任何帮助将不胜感激。

谢谢

解决方法

应该这样做：

    Dim lastrowa As Long
    Dim lastrowb As Long
    
    With Sheet2
        lastrowa = .Cells(.Rows.Count,1).End(xlUp).Row
        lastrowb = .Cells(.Rows.Count,2).End(xlUp).Row
        
        .Cells(lastrowa + 1,1).Value = "TEMP"
        .Cells(lastrowa + 1,1).AutoFill .Range(.Cells(lastrowa + 1,1),.Cells(lastrowb,1))
    End With