Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/26.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 如何在找到第一个空白单元格后使用VBA向下拖动公式(自动填充)_Excel_Vba_Autofill - Fatal编程技术网

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

Excel 如何在找到第一个空白单元格后使用VBA向下拖动公式(自动填充),excel,vba,autofill,Excel,Vba,Autofill,我需要一些帮助,将字符串(“declient”)拖到excel中的列中。如果我知道什么单元格是我的起点,我知道该怎么做,但我首先必须找到数据集中的第一个空行。一旦找到第一个空行,我需要从C3列中向下拖动字符串。此字符串仅向下拖动一列。我也不知道这个数据集的范围,因为它是动态的 基本上,我只需要重新创建双击单元格右下角的操作,然后将单词“Decliners”填充到数据集的底部 选择工作表中第一个空白单元格的代码: Dim Pastesheet As Worksheet Dim Decliners

我需要一些帮助,将字符串(“declient”)拖到excel中的列中。如果我知道什么单元格是我的起点,我知道该怎么做,但我首先必须找到数据集中的第一个空行。
一旦找到第一个空行,我需要从C3列中向下拖动字符串。
此字符串仅向下拖动一列。我也不知道这个数据集的范围,因为它是动态的

基本上,我只需要重新创建双击单元格右下角的操作,然后将单词“Decliners”填充到数据集的底部

选择工作表中第一个空白单元格的代码:

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

这段代码将设置变量
的值,从上次数据集之后的行开始,从范围
C3
向下,直到
D
C
中使用数据的最后一行


这段代码将设置变量
的值,从上次数据集之后的行开始,从范围
C3
向下,直到
D列
中所用数据的最后一行,对于
C列

而言,找到B列中最后一行的方法很好;我自己也错过了。@Jeeped-我正要给你写点东西,但你把它删掉了:)所以我试了一下,什么也没发生。我将
end(xlUp)
替换为
end(xlDown)
,整个列都填充了“declinkers”。不太清楚它为什么不起作用。@Davey-现在更容易帮助:)看看编辑后的答案。效果很好!谢谢斯科特!真的很感激它能很好地找到B列的最后一行;我自己也错过了。@Jeeped-我正要给你写点东西,但你把它删掉了:)所以我试了一下,什么也没发生。我将
end(xlUp)
替换为
end(xlDown)
,整个列都填充了“declinkers”。不太清楚它为什么不起作用。@Davey-现在更容易帮助:)看看编辑后的答案。效果很好!谢谢斯科特!您可能需要指定哪列决定了列C的值的长度,以及列C是否已经有一些不应该被干扰的值。您可能需要指定哪列决定了列C的值的长度,以及列C是否已经有一些不应该被干扰的值。
With Pastesheet
    .Range(.Range("C3").End(xlDown).Offset(1),.Cells(.Rows.Count,4).End(xlUp).Offset(,-1)).Value = Decliners
End With