对单元格内数据进行判断，全数字的进行累加，什么方法最简单？

xhc陈

对单元格内数据进行判断，全数字的进行累加，什么方法最简单？

gwjkkkkk

Sub TEST()
    Dim arr, brr, i&, j&, k&, iNum&
    arr = Range("A1").CurrentRegion
   
    For i = 2 To UBound(arr)
        For j = 2 To UBound(arr, 2)
            brr = split(arr(i, j), ",")
            iNum = 0
            For k = 0 To UBound(brr)
                If Not VBA.IsNumeric(brr(k)) Then
                   arr(i, j) = arr(i, j)
                   GoTo ExitLine
                End If
            Next k
            For k = 0 To UBound(brr)
                iNum = iNum + Val(brr(k))
            Next k
            arr(i, j) = iNum
ExitLine:
        Next j
    Next i
   
    [A11].Resize(UBound(arr), UBound(arr, 2)) = arr
    Beep
End Sub

gwjkkkkk

请楼主参考附件。。。

剑指E