excel中将大于5的值替换为0

发布网友发布时间：2023-05-13 15:11

我来回答

共2个回答

热心网友时间：2024-12-04 06:34

用万能的vba可以实现。

例如有一列数据如图：

第一步：点击开发工具-visual basic图标。如图

第二步：在thisworkbook中创建程序替换，并输入如下代码：

Sub 替换()

LH = ActiveCell.Column

If InStr(Cells(1, LH), "数据项") < 1 Then

Exit Sub

End If

I = Cells(65535, LH).End(xlUp).Row

For J = 2 To I

If Cells(J, LH) > 5 Then

Cells(J, LH) = 0

End If

Next J

End Sub

第三步：点击宏-选择替换-点击执行按钮。如图：

执行后结果如图：

热心网友时间：2024-12-04 06:34

这个最好是用VBA了

Sub 替换异常()
    Dim i%, j%, rr%, cc%
    rr = Range("B65536").End(xlUp).Row
    cc = Range("IV2").End(xlToLeft).Column
    For i = 1 To rr
        For j = 1 To cc
            If Cells(i, j).Value >= 10 Then
                Cells(i, j) = 0
                Else
            End If
        Next
    Next
End Sub