Excel：如何清理错误数据，或让一切错误数据为零

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

正在用Excel做分析，有时候会出现错误数据，比如不存在的两个数字相除，就出现上面的情况。不知道怎么把这些错误数据用简单的方法删掉，或者让他们都等于零。因为数据很庞大，用手操作只有俩字：累死！谢谢高人帮帮忙！！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：EXCEL exce xcel cel 用excel Excel 清理 如何

Yes, you can. Let me write some vba code when I come back in a few hours.

用iserror函数就好

试试下面的代码把#div/0!换成空白.

Sub Change_Formula()
    Dim sTemp1 As String
    Dim sTemp2 As String
    Dim iTemp As Integer
    Dim i As Integer
    Dim j As Integer
    Dim iRow As Integer
    Dim iCol As Integer
   
    iRow = ActiveSheet.UsedRange.Rows.Count
    iCol = ActiveSheet.UsedRange.Columns.Count

    For i = 1 To iRow
        For j = 1 To iCol
            If Cells(i, j).HasFormula Then
                sTemp1 = Cells(i, j).Formula
                iTemp = Len(sTemp1)
                sTemp2 = Right(sTemp1, iTemp - 1)
                Cells(i, j).Formula = "=IF(ISERROR(" & sTemp2 & ")," & Chr(34) & Chr(34) & "," & sTemp2 & ")"
            End If
        Next j
    Next i
End Sub

筛选一下就可以全部删除

筛选排序以后直接删掉。

maxwang1990 发表于 2013-8-27 06:45
用iserror函数就好

弄好了，谢谢

pingguagain 发表于 2013-8-27 07:29
试试下面的代码把#div/0!换成空白.

Sub Change_Formula()

你是说把这些写到表格里？

lilia519 发表于 2013-8-27 22:22
你是说把这些写到表格里？

你要做的事情原理很简单. 之所以出现div/0!是因为公式中被除数是0. 我写的是vba程序(你上网查查怎么用). 这个程序遍历工作表中所有的单元, 把公式用iserror替换掉: 比如原先的公式是=C1/D1,替换后的公式为=if(iserror(c1/d1),"",c1/d1). 这样再出现被除数为0时,单元格为空. 如果你想用0而不是空格,将程序中chr(34)&chr(34)换成0. 其他人说的排序筛选都不可取因为这样做会破坏原有数据的完整性.

全部替换 一下子就搞定了