[已解决]求和

cyj153

求：在一列数据中，只对数值进行统计。谢谢老师指导！
求和.rar (7.32 KB, 下载次数: 16)

2022-3-10 21:17 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

猴子下山了

2022-3-11 11:28

Sub test()
Excel.Application.ScreenUpdating = False
Dim arr
Dim mx
Range("i8").ClearContents
mx = Cells(Rows.Count, 3).End(xlUp).Row
arr = Range("c3:c" & mx)
For i = 1 To UBound(arr)
    If IsNumeric(arr(i, 1)) Then
        Range("i8") = Range("i8").Value + arr(i, 1)
    End If
Next
Excel.Application.ScreenUpdating = True
End Sub

跳转到最佳答案楼层

猴子下山了

Sub test()
Excel.Application.ScreenUpdating = False
Dim arr
Dim mx
Range("i8").ClearContents
mx = Cells(Rows.Count, 3).End(xlUp).Row
arr = Range("c3:c" & mx)
For i = 1 To UBound(arr)
    If IsNumeric(arr(i, 1)) Then
        Range("i8") = Range("i8").Value + arr(i, 1)
    End If
Next
Excel.Application.ScreenUpdating = True
End Sub