[已解决]下拉填充请高手帮忙

yysfcq

下面这段代码只能从F列2800开始下拉填充，请高手帮忙改为F列数据最后一行开始下拉，谢谢！


Sub 入库更新()
'
' 入库更新 宏
'

'
Application.ScreenUpdating = False
mrow = Cells(Rows.Count, "E").End(3).Row
Range([F2800], Cells(mrow, "G")).FillDown
Application.ScreenUpdating = True
    Calculate
    Calculate
    MsgBox "更新成功！"
End Sub

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2021-12-16 15:05

Range(Cells(rows.count, "f").end(3) , Cells(mrow, "G")).FillDown

跳转到最佳答案楼层

大灰狼1976

Range(Cells(rows.count, "f").end(3) , Cells(mrow, "G")).FillDown

林木水

你求助也放一个附件呀，都不知道你要怎么改，随便写一个看能不能解决你的问题。向下填充很简单，使用filldown方法
代码：
Sub text()
Dim h As Integerh = 10
Range("a1:a" & h).FillDown   
End Sub


想找到E列最后一行很简单，假设为a行
再找到F列最后一行也很简单，假设为b行
只需要把上面Range区域改成,F列的b行到a行

sam-wang

Range([F1], Cells(mrow, "G")).FillDown

yysfcq

大灰狼1976 发表于 2021-12-16 15:28
Range(Cells(rows.count, "f").end(3) , Cells(mrow, "G")).FillDown

太强了谢谢，已解决！