[已解决]请问如何在一个不固定的单元格，向下填充

tudigeming

先上附件

我想自动定位到h列第一个无数据的单元格（h17）
填上“下”，然后根据d列的行数，自动填充到最后
现在的问题是
我用一下命令可以填上“下”
Range("h" & Range("h" & Rows.Count).End(xlUp).Row + 1).Activate
ActiveCell.FormulaR1C1 = "下"
但是怎么向下填充呢（而且还要根据d列的行数），谢谢


另外，感觉用
cells（）=cells（）
是不是能解决呢

再次感谢大神

最佳答案

月排行榜 / 总排行榜

qdwfjmqj

2017-8-4 18:12

Sub 填充()
r = Cells(Rows.Count, 8).End(xlUp).Row
m = Cells(Rows.Count, 4).End(xlUp).Row
Range("H" & (r + 1)) = "下"
Range("H" & (r + 1)).AutoFill Destination:=Range("h" & (r + 1) & ":" & "h" & m), Type:=xlFillDefault
End Sub

跳转到最佳答案楼层

大灰狼1976

录制一个下拉填充的宏，改改参数就行了。

tudigeming

大灰狼1976 发表于 2017-8-4 17:20
录制一个下拉填充的宏，改改参数就行了。

我试了两个宏 发现都需要有range但是当前单元格位置并不能手选啊，怎么解决呢
Selection.AutoFill Destination:=Range(" ")
Range(" ").FlashFill

qdwfjmqj

Sub 填充()
r = Cells(Rows.Count, 8).End(xlUp).Row
m = Cells(Rows.Count, 4).End(xlUp).Row
Range("H" & (r + 1)) = "下"
Range("H" & (r + 1)).AutoFill Destination:=Range("h" & (r + 1) & ":" & "h" & m), Type:=xlFillDefault
End Sub

tudigeming

qdwfjmqj 发表于 2017-8-4 18:12
Sub 填充()
r = Cells(Rows.Count, 8).End(xlUp).Row
m = Cells(Rows.Count, 4).End(xlUp).Row

感谢大神，请问您怎么这么厉害

qdwfjmqj

晕多学习就会了啊！每天N个小时的学习！走路都想着怎么写代码就会厉害了