Question

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

各位好，excel表格，81行*5565列，存在一些异常值（大于10），因为正常数值都是0.02, 0.036， 0.08 只要大于10，都可以视为异常值，现在想将这张表格的异常值替换为0 ，不知道怎么操作

Answer 1

用万能的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

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

执行后结果如图：

Answer 2

这个最好是用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