如何编写VBA宏实现Excel筛选后将可见行单元格值设为0

以下是可直接使用的VBA代码：

Sub 筛选J列负数并置零()
    Dim ws As Worksheet
    Dim filterRng As Range
    Dim visibleRng As Range
    
    ' 绑定当前活动工作表，可替换为指定工作表：Set ws = Sheets("你的工作表名")
    Set ws = ActiveSheet
    
    ' 取消已有筛选避免冲突
    If ws.AutoFilterMode Then ws.AutoFilterMode = False
    
    ' 取当前工作表已使用的所有数据范围
    Set filterRng = ws.UsedRange
    
    ' 第10列即J列，筛选值小于0的行
    filterRng.AutoFilter Field:=10, Criteria1:="<0"
    
    ' 跳过无符合条件数据的报错
    On Error Resume Next
    ' Offset(1)表示跳过表头，无表头可删除该部分
    Set visibleRng = filterRng.Offset(1).SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    
    If Not visibleRng Is Nothing Then
        ' 需求1：将可见行所有单元格置为0，启用下行
        visibleRng.Value = 0
        ' 需求2：仅将可见行J列置为0，注释上行，启用下行
        ' visibleRng.Columns(10).Value = 0
        ' 需求3：仅将可见行J列置为空值，注释上行，启用下行
        ' visibleRng.Columns(10).Value = ""
    End If
    
    ' 不需要取消筛选可注释下行
    ws.AutoFilterMode = False
End Sub

使用说明 #

• 代码默认第一行为表头，若数据无表头，删除Set visibleRng = filterRng.Offset(1).SpecialCells(xlCellTypeVisible)中的.Offset(1)参数即可
• 可根据实际业务需求，调整代码注释中对应的置零/置空规则
• 若需要保留筛选后的视图，注释最后一行ws.AutoFilterMode = False即可

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