Excel VBA实现筛选列可见空白单元格用上一个可见值向下填充

原代码存在的问题 #

• 对象变量ws赋值未加Set关键字，VBA中给对象变量赋值必须使用Set，否则会直接抛出运行时错误
• 直接调用rg.FillDown方法会读取单元格上方**所有行（包含隐藏行）**的内容作为填充值，不符合仅使用可见单元格值的要求
• 大量使用Select操作，会降低代码执行效率，也容易因为用户手动操作触发异常

修正后的完整代码 #

Sub Filldownvisiblecells()
    Dim ws As Worksheet
    Dim dl As Long
    Dim rg As Range
    ' 存储上一个可见的非空值
    Dim lastVisibleVal As Variant
    
    ' 对象赋值必须加Set
    Set ws = Workbooks("Book1.xlsm").Worksheets("Sheet1")
    dl = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 筛选A列值为Down的行
    ws.Range("A1").AutoFilter Field:=1, Criteria1:="Down"
    
    ' 清除B列可见单元格中指定值的内容
    For Each rg In ws.Range("B2:B" & dl).SpecialCells(xlCellTypeVisible)
        If rg.Text = "R1" Or rg.Text = "R2" Or rg.Text = "UT" Then
            rg.ClearContents
        End If
    Next rg
    
    ' 遍历可见单元格填充空白
    For Each rg In ws.Range("B2:B" & dl).SpecialCells(xlCellTypeVisible)
        If rg.Value <> "" Then
            ' 非空则更新上一个可见值
            lastVisibleVal = rg.Value
        Else
            ' 空白则用上一个可见值填充
            rg.Value = lastVisibleVal
        End If
    Next rg
End Sub

逻辑说明 #

• 新增lastVisibleVal变量专门记录上一个可见单元格的非空值，完全不读取隐藏行内容，确保填充逻辑符合需求
• 移除所有不必要的Select操作，执行效率更高，稳定性更强
• 遍历可见单元格时实时更新填充基准值，不管空白单元格位置、数据总量怎么变都能正常执行，不会修改任何隐藏行的原有内容
• 如果筛选后B列第一个可见单元格本身就是空白，此时lastVisibleVal为空值，会填充空值，如有需要可以在遍历前给lastVisibleVal设置默认值。

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