修改Excel填充空白行宏：实现全列填充而非仅B列

这里是修改后的完整宏代码，它会遍历工作表中所有已使用的列，自动用每列上方的非空值填充该列的空白单元格：

Sub FillAllColBlanks()
    ' 修改自Dave Peterson 2004年的原始宏，适配所有列填充
    Dim wks As Worksheet
    Dim rng As Range
    Dim colRange As Range
    Dim LastRow As Long
    Dim col As Long
    
    Set wks = ActiveSheet
    
    With wks
        ' 遍历已使用区域的每一列
        For col = 1 To .UsedRange.Columns.Count
            ' 获取当前列的完整数据范围（从第1行到该列最后一行）
            Set colRange = .Range(.Cells(1, col), .Cells(.UsedRange.Rows(.UsedRange.Rows.Count).Row, col))
            
            ' 定位当前列的空白单元格
            On Error Resume Next
            Set rng = colRange.SpecialCells(xlCellTypeBlanks)
            On Error GoTo 0
            
            ' 如果存在空白单元格，执行填充
            If Not rng Is Nothing Then
                rng.FormulaR1C1 = "=R[-1]C"
                ' 将公式转换为值，避免后续数据变动影响填充结果
                colRange.Value = colRange.Value
            End If
        Next col
    End With
End Sub

关键改动说明 #

• 遍历所有列：去掉了原宏中针对单个列的固定设置，改用For col = 1 To .UsedRange.Columns.Count循环遍历所有已使用列
• 精准列范围定位：对每一列单独获取完整的数据范围，确保不会遗漏该列的任何行
• 优化填充逻辑：沿用原宏的上方值填充逻辑，同时添加了将公式转为值的步骤，避免后续数据变动干扰填充结果
• 容错处理：保留On Error语句，防止某列无空白单元格时触发运行错误

使用方法 #

1. 打开目标Excel文件
2. 按下Alt + F11打开VBA编辑器
3. 右键点击左侧工作簿名称，选择「插入」→「模块」
4. 将上述代码粘贴到模块窗口中
5. 返回Excel界面，按下Alt + F8，选择FillAllColBlanks并点击「执行」

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