[已解决]怎么把求和数据移动小数点？

hahada

Sub 统计()
    row1 = [A65536].End(xlUp).Row
        For i = 5 To row1
        If Cells(i, 3) = "aa" Or Cells(i, 3) = "bb" Or Cells(i, 3) = "dd" Then
            cs = cs + 1
            hj = hj + Cells(i, 2)
        End If
    Next i
    [a2] = cs
    [b2] = hj
End Sub

最佳答案

月排行榜 / 总排行榜

那么的帅

2013-5-22 23:30

hahada 发表于 2013-5-22 23:29
求和数据结果向左移动3位

Sub 统计()
    row1 = [A65536].End(xlUp).Row
        For i = 5 To row1
        If Cells(i, 3) = "aa" Or Cells(i, 3) = "bb" Or Cells(i, 3) = "dd" Then
            cs = cs + 1
            hj = hj + Cells(i, 2)
        End If
    Next i
    [a2] = cs
    [b2] = hj /1000
End Sub

跳转到最佳答案楼层

那么的帅

说明怎么移动小数点？

hahada

那么的帅 发表于 2013-5-22 23:27
说明怎么移动小数点？

求和数据结果向左移动3位

那么的帅

hahada 发表于 2013-5-22 23:29
求和数据结果向左移动3位

Sub 统计()
    row1 = [A65536].End(xlUp).Row
        For i = 5 To row1
        If Cells(i, 3) = "aa" Or Cells(i, 3) = "bb" Or Cells(i, 3) = "dd" Then
            cs = cs + 1
            hj = hj + Cells(i, 2)
        End If
    Next i
    [a2] = cs
    [b2] = hj /1000
End Sub

hahada

那么的帅 发表于 2013-5-22 23:30
Sub 统计()
    row1 = [A65536].End(xlUp).Row
        For i = 5 To row1

能不能讲解这两句代码，计数求和好简单？
cs = cs + 1
hj = hj + Cells(i, 2)

那么的帅

hahada 发表于 2013-5-22 23:31
能不能讲解这两句代码，计数求和好简单？
cs = cs + 1
hj = hj + Cells(i, 2)

cs = cs + 1   每次把CS的数值加1，也就起到计数的作用
hj = hj + Cells(i, 2)  每次相加 Cells(i, 2)  ，也就起到求和的作用

hahada

那么的帅 发表于 2013-5-22 23:33
cs = cs + 1   每次把CS的数值加1，也就起到计数的作用
hj = hj + Cells(i, 2)  每次相加 Cells(i, 2)  ...

cs和hj是不是初始值为0

那么的帅

hahada 发表于 2013-5-22 23:35
cs和hj是不是初始值为0

对 ，默认初始值 为 0