求助大神！循环加总出错和格式问题

ssupsly

求助大神！为什么我用这个代码循环加总数字后得出的结果（K）会和最后一行数据一样？而我如果最后不除100000000则会得出正确的结果。另外如何让最终加总的结果（K）显示起来为逗号分开的数字？试了改格式但好像没用，具体数据看附件

代码如下：
Sub 头寸计算()


Dim i As Integer
Dim k As Double

For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    Range("g" & i).NumberFormatLocal = "#,##0.00"

    If Range("e" & i) = "" Then
        Exit For

    ElseIf Range("e" & i) = "拆出" Then
        Range("o" & i) = Range("g" & i) * 1
    Else:
    Range("o" & i) = Range("g" & i) * -1
    End If

    Range("o" & i).NumberFormatLocal = "#,##0.0"
    k = (k + Range("o" & i)) / 100000000


Next

    Range("o" & ActiveSheet.UsedRange.Rows.Count + 1) = k
    Range("o" & ActiveSheet.UsedRange.Rows.Count + 1).NumberFormatLocal = "#,##0.00"

End Sub

大灰狼1976

k = (k + Range("o" & i)) / 100000000 改成 k = k + Range("o" & i) / 100000000
没有显示千位符的原因是数据太小，k的最终值只有3点几。

hfwufanhf2006

我没下载你文件，我就直接说我看法;
1、加总我理解就是求和，除100000000干什么？
2、数字的显示格式由单元格设置来定义，与代码无关。比如数字12345，要显示为12,345或者12,345.00都是在单元格中设置的，你设置成什么格式它就显示为什么样子的。当然用代码来设置格式也是可以的，但这样比较麻烦，很少有人这么做，直接设置最方便。因为代码专注于数据处理，而格式是很个性化的东西，一个人一个要求。如果你实在想要代码设置格式，录制个宏，把代码复制进来就行了，没必要记设置格式的代码；

ssupsly

hfwufanhf2006 发表于 2019-9-11 17:01
我没下载你文件，我就直接说我看法;
1、加总我理解就是求和，除100000000干什么？
2、数字的显示格式由单 ...

因为加总的数字太大，几十亿，除以100000000 可读性强，就好比加总之后是3500000000，这样显示很容易数错，如果除100000000，就能直接显示成35，以亿为单位，这样阅读方便