如何用VBA实现基于动态X值自动填充多组姓名？

问题说明 #

• 需求：用VBA动态填充Excel的B列，根据I9单元格输入的X值，决定当前姓名要填充的行数。比如Name1从B9开始填12行，Name2自动从B21（Name1填充区域的下一行）开始填10行，X值每天都可能变动。
• 现有代码缺陷：硬编码了起始单元格B9，无法自动定位下一组姓名的填充起始位置。
• 目标：输入X值运行宏，即可填充当前姓名对应行数；手动输入新姓名后，再次运行宏能自动从下方空白单元格开始填充。

当前代码 #

Sub AutoFillNames()
    With ActiveSheet
       AutoFillRange .Range("B9"), Range("I9").Value
    End With
End Sub

修改后的代码 #

Sub AutoFillNames()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim startCell As Range
    Dim fillRows As Long
    
    ' 指定操作的工作表
    Set ws = ActiveSheet
    ' 获取I9中设置的填充行数
    fillRows = ws.Range("I9").Value
    
    ' 找到B列最后一个非空单元格的下一行，作为新填充的起始位置
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    Set startCell = ws.Range("B" & lastRow + 1)
    
    ' 初始状态下B9及以上为空时，默认从B9开始填充
    If lastRow < 9 Then
        Set startCell = ws.Range("B9")
    End If
    
    ' 执行填充操作
    AutoFillRange startCell, fillRows
End Sub

' 补充完整填充逻辑（如果原有代码未包含此子过程）
Sub AutoFillRange(targetCell As Range, fillCount As Long)
    ' 行数为0或负数时直接退出，避免出错
    If fillCount <= 0 Then Exit Sub
    ' 将目标单元格的值填充到指定行数的区域
    targetCell.Resize(fillCount).Value = targetCell.Value
End Sub

代码说明 #

• 自动定位起始位置：通过End(xlUp)找到B列最后一个非空单元格，下一行就是新的填充起点，彻底解决硬编码问题。
• 兼容初始状态：如果B9及以上区域为空，会自动默认从B9开始填充，匹配初始需求。
• 保留原有填充逻辑：复用AutoFillRange过程，确保按指定行数填充姓名。

使用步骤 #

1. 在B列起始位置（如B9）输入第一个姓名。
2. 在I9输入需要填充的行数，运行AutoFillNames宏，完成第一组填充。
3. 在B列上一组填充区域的下一行手动输入新姓名，在I9输入对应行数，再次运行宏即可自动填充新组。

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