Excel VBA实现A列最后非空值向下填充至C列末行并重复操作

需求逻辑 #

• 自动定位A列最后一个非空单元格
• 以C列最后一个非空单元格的行号为填充终止边界，向下填充A列的空单元格
• 支持多段重复填充，直到C列所有行处理完成

效果示例 #

初始状态：

单段填充预期效果：

多段填充预期效果：

现有代码缺陷 #

原有代码固定以A2为填充起始点，每次运行需要手动选中A2，无法自动适配A列的非空位置：

Dim lrowc As Integer

lrowc = SavedData.Cells(Rows.Count, "C").End(xlUp).Row
    SavedData.Range("A2:A" & lrowc).FillDown

修正后代码 #

单段填充版本（匹配原有需求，仅自动替换A2为A列最后非空单元格） #

Dim lrowc As Long, lrowA As Long
' 获取C列最后非空行号
lrowc = SavedData.Cells(SavedData.Rows.Count, "C").End(xlUp).Row
' 自动获取A列最后非空行号
lrowA = SavedData.Cells(SavedData.Rows.Count, "A").End(xlUp).Row
' 执行填充
SavedData.Range("A" & lrowA & ":A" & lrowc).FillDown

多段自动循环填充版本（自动处理所有A列分段空值，无需多次运行） #

Sub FillAColumnByC()
    Dim lrowc As Long, currentARow As Long, nextARow As Long
    ' 定位C列最后一行数据行
    lrowc = SavedData.Cells(SavedData.Rows.Count, "C").End(xlUp).Row
    ' 初始A列起始行，若有表头可修改为2
    currentARow = 1
    Do While currentARow < lrowc
        ' 查找下一段A列非空行的位置
        nextARow = SavedData.Cells(currentARow + 1, "A").End(xlDown).Row
        ' 边界判断：如果下一段超出C列最后行，填充到C列最后行即可
        If nextARow >= lrowc Then
            SavedData.Range("A" & currentARow & ":A" & lrowc).FillDown
            Exit Do
        End If
        ' 填充当前段的空值
        SavedData.Range("A" & currentARow & ":A" & nextARow - 1).FillDown
        ' 跳转至下一段A列非空行继续处理
        currentARow = nextARow
    Loop
End Sub

优化说明 #

• 将行号变量类型从Integer修改为Long，避免行数超过32767时出现溢出报错
• 自动定位A列非空单元格位置，无需手动选中指定单元格
• 多段版本支持一次运行处理所有A列分段空值，匹配重复操作需求

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