基于其他单元格值自动填充指定行数的VBA宏问题求助

我完全懂你的需求：当前宏是把序列填充到引用单元格值对应的行号（比如J1为40时就填充到第40行），但你需要的是从A8开始向下填充40行（也就是最终覆盖A8到A47的区域）。

问题出在哪 #

你的代码里，目标区域的结束行直接用了Range("J1").Value，这会把结束位置定位到第J1行，而不是从A8开始往后数J1行的位置。

修改后的代码 #

' 计算结束行号：起始行(A8是第8行) + 要填充的行数(J1的值) - 1
Dim endRow As Long
endRow = 8 + Range("J1").Value - 1

' 取消不必要的选中操作，直接操作Range更高效
Range("A8").AutoFill Destination:=Range("A8:A" & endRow), Type:=xlFillSeries
' 如果不需要选中最终填充的区域，可以删掉下面这行
' Range("A8:A" & endRow).Select

额外优化建议 #

• 尽量别用Select和Selection，直接操作Range对象不仅运行更快，还能减少莫名其妙的错误。
• 可以加个简单的错误判断，避免J1输入无效值导致宏报错：

Dim fillRows As Long
fillRows = Range("J1").Value

If fillRows > 0 And IsNumeric(fillRows) Then
    Dim endRow As Long
    endRow = 8 + fillRows - 1
    Range("A8").AutoFill Destination:=Range("A8:A" & endRow), Type:=xlFillSeries
Else
    MsgBox "J1单元格请输入正整数！"
End If

这样修改后，当J1的值为40时，宏会从A8开始向下填充40行，完全符合你的预期需求。

内容的提问来源于stack exchange，提问作者RobertW081171