如何在找到第一个空白单元格后使用 VBA 向下拖动公式（自动填充）

Question

我需要一些帮助将字符串 ("Decliners") 拖到 excel 中的一列中。如果我知道我的起点是哪个单元格，我就知道如何执行此操作，但我首先必须找到我的数据集中的第一个空白行。
找到我的第一个空白行后，我需要拖动我的字符串从 C3 列中的那里向下。
该字符串仅被拖下一列。我也不知道这个数据集的范围，因为它是动态的。

本质上，我只需要重新创建双击单元格右下角的操作，然后 "Decliners" 一词填充到数据集的底部。

代码到 select 工作表中的第一个空白单元格：

Dim Pastesheet As Worksheet
Dim Decliners As String
Decliners = "Decliners"

Set Pastesheet = Worksheets("Ent Gainers_Decliners")
Pastesheet.Range("C3").End(xlDown).Offset(1, 0).Select
'Where I need the word "Decliners" dragged down from the cell selected

Answer 1

With Pastesheet
    .Range(.Range("C3").End(xlDown).Offset(1),.Cells(.Rows.Count,4).End(xlUp).Offset(,-1)).Value = Decliners
End With

这段代码会设置变量Decliners的值，从RangeC3的最后一个数据集之后的行向下，直到[=13]列中使用数据的最后对应行=] 列 C.

如何在找到第一个空白单元格后使用 VBA 向下拖动公式（自动填充）

How to drag a formula down (autofill) using VBA after finding the first blank cell

excel

vba

autofill