vba公式下拉至指定行？

文件属性：XLSX
以下为录制宏代码

Sub 公式下拉()
'
' 公式下拉宏
'

'
Range("A1").Select
ActiveCell.FormulaR1C1 = "=IF(MOD(ROW(),47)=0,47,MOD(ROW(),47))"
Selection.AutoFill Destination:=Range("A1:A517"), Type:=xlFillDefault
Range("A1:A517").Select
End Sub

场景是A:A517,长度不固定，那么517我放在一个固定单元格内R5，实际上R5中已经统计了一列的的长度，因中间有空行，阻断了公式双击下拉，所以需要手动下拉至指定行。
请问下，这个代码如何修改，实际是我想将A517改成A连接R5单元格内的数值。

举报该问题

推荐答案 2021-09-22

Sub 公式下拉()

Dim i, irow As Integer

irow = Range("d65536").End(xlUp).Row

'假设D列是用来参照公式下拉到什么位置的，假设D列最后一个单元格是D577，那么A列将填充到A577，而不管D1:D577中间是否有空白单元格的存在。

‘irow 你也可以换成你所谓的R5的值

For i = 1 To irow

'for i= 1 to range("r5").value

If i Mod 47 = 0 Then

Cells(i, 1) = 47

Else

Cells(i, 1) = i Mod 47

End If

End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：http://00.wendadaohang.com/zd/DTrID0TjZ0BrDBjDBnB.html

其他回答

第1个回答 2021-09-22

Sub 试试1()
Range("A1") = "=IF(MOD(ROW(),47)=0,47,MOD(ROW(),47))"
Range("A1:A" & Range("R5")).FillDown '向下填充
End Sub
【提示】：
仔细观察这条公式，这条公式在下拉填充时，每个单元格的公式都完全一样，不会出现公式所引用单元格行号需要变化的情况，所以也可以直接这样写代码：
Sub 试试2()
Range("A1:A" & Range("R5")) = "=IF(MOD(ROW(),47)=0,47,MOD(ROW(),47))"
End Sub本回答被提问者采纳

相似回答

VBA如何将用户窗体复合框下拉选择的目标值对应行数显示在指定的单元格...答：是选择C列的数值，对应的行号，写到C55? 选择的数值，写到C56?用单元格事件就可以的 Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim tr, tc tr = Target.Row tc = Target.Column If tr > 1 And tc = 3 And Cells(tr, "C") <> "" Then [c55] = tr [c56] = Ce...

EXCEL VBA复制内容到指定行答：1.将第一行内容复制到第4行 2.Alt+f11，输入如下代码：3.F5执行代码，结果如下：

EXCEL VBA提取内容到指定位置答：1.将A列中最后的内容提取到C1中：2.Alt+F11，输入代码如下：Sub m()x = Range("A65536").End(3).Row '将最后一个非空单元格的行号赋给变量x Cells(1, "C") = Cells(x, "A") '将最后一个非空单元格赋给单元格A3 End Sub 3.F5执行代码，关闭VBA界面，返回Excel得到结果如下：...

...用vba之类的实现点击一个按钮后一行数据自动复制粘贴到指定行...答：假设你数据在A2到F2里输入。任意插入一图形，右键点该图形，指定宏，新建。在出来的窗口中再Sub和End Sub之间粘贴如下代码：Dim i, j As Integer i = --Range("A2")For j = 1 To 6 Cells(i, j) = Cells(2, j)Next j 回到Excel，就有了你要的。