VBA多条件循环开发求助：实现A列每10行批量填充N列对应数据直至空行

嘿，我来帮你搞定这个循环逻辑的问题！你手动写的重复代码确实效率很低，用循环可以完美实现需求——自动按每10行一组填充A列，取值自N列的逐行数据，直到N列出现空行为止。

核心思路
我们只需要跟踪两个关键位置：

• N列的数据源行号：从第2行开始，每处理完一组就下移一行
• A列的填充起始行号：从第392行开始，每处理完一组就下移10行
  用循环持续检查N列当前行是否为空，不为空就执行填充操作，直到遇到空行停止。

完整VBA代码 #

Sub FillRangeInBatches()
    Dim sourceRow As Long ' 记录N列当前的数据源行号
    Dim targetStartRow As Long ' 记录A列当前要填充的起始行号
    
    ' 初始化起始位置：对应你手动代码的起始点
    sourceRow = 2
    targetStartRow = 392
    
    ' 循环执行，直到N列当前行为空
    Do While Not IsEmpty(Range("N" & sourceRow))
        ' 填充A列从targetStartRow开始的连续10行
        Range("A" & targetStartRow & ":A" & targetStartRow + 9).Value = Range("N" & sourceRow).Value
        
        ' 更新下一次循环的行号
        sourceRow = sourceRow + 1 ' 数据源行下移一行
        targetStartRow = targetStartRow + 10 ' 填充起始行下移10行
    Loop
End Sub

代码关键点解释

• Do While Not IsEmpty(...)：确保只有当N列当前行有内容时才执行填充，遇到空行就自动停止循环
• targetStartRow + 9：因为要填充10行（比如从392到401是10行，392+9=401），如果需要调整每组行数，只需要修改这个数字和后面的+10即可
• 全程用变量跟踪行号，避免了手动写无数重复的Range赋值语句

小提示
如果N列可能存在只有空格的单元格（而非真正的空单元格），可以把循环条件改成：

Do While Trim(Range("N" & sourceRow).Value) <> ""

这样就能忽略纯空格的行，确保循环在真正无内容的行停止。

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