大批量修改数据并计算

小鱼白白

1、大量异常数据替换
有大批数据需要处理，但数据中含有大量异常值，也就是那些五位数的数值，之前异常的值较少都是一一替换为0。异常值太多加上数据处理量大，希望找到一个便捷的方法。
2、替换后求和计算
求和计算后需要再乘以0.1得出最终数据
以前都是慢慢地将三项相加，然后下拉得出总和，然后在乘以0.1后下拉

小白处理大量数据有些吃力，希望大神们能提供一个简便的方法。感激不尽！

duquancai

手机，下不了附件，看你描述是excel吧？是否发错板块了？

jiminyanyan

excel  建议发到　vba 板块．．．．

duquancai

Sub shishi()
    Dim reg As Object, arr()
    Set reg = CreateObject("VBScript.Regexp")
    reg.Pattern = "^\d{5}$"
    arr = Sheet1.UsedRange
    For i = 1 To UBound(arr)
        For j = 1 To UBound(arr, 2)
            If reg.Execute(arr(i, j)).Count Then arr(i, j) = 0
        Next
    Next
    ReDim Preserve arr(1 To UBound(arr), 1 To 4)
    For i = 1 To UBound(arr)
        arr(i, 4) = (arr(i, 1) + arr(i, 2) + arr(i, 3)) * 0.1
    Next
    Range("e1").Resize(UBound(arr), 4) = arr
End Sub

duquancai

Sub shishi()
    Dim reg As Object, arr()
    Set reg = CreateObject("VBScript.Regexp")
    reg.Pattern = "^\d{5}$"
    arr = Sheet1.UsedRange
    For i = 1 To UBound(arr)
        For j = 1 To UBound(arr, 2)
            If reg.Execute(arr(i, j)).Count Then arr(i, j) = 0
        Next
    Next
    ReDim Preserve arr(1 To UBound(arr), 1 To 4)
    For i = 1 To UBound(arr)
        arr(i, 4) = (arr(i, 1) + arr(i, 2) + arr(i, 3)) * 0.1
    Next
    Sheet1.UsedRange.Resize(UBound(arr), 4) = arr
End Sub

小鱼白白

多谢大神   感受到了代码的神奇之处   会继续好好学习的

qiongguangdan

=IF(LEN(A1)=5,0,A1)使用该命令对数据进行筛选，然后在进行求和运算

小鱼白白

谢谢大家的帮助