会计专用格式的数据汇总后不是原始值，而是四舍五入之后的

Neil258

用下面的代码汇总一些数据之后，收入列的值就发生了变化，请大神指导是哪里的问题？

Sub zz()
    Dim f$, p$, a, s
    Application.ScreenUpdating = False
    Sheet1.UsedRange.Offset(1).ClearContents
    p = ThisWorkbook.Path & "\"
    f = Dir(p & "*.xlsx")
    Do While Len(f)
        If f <> ThisWorkbook.Name Then
            With GetObject(p & f)
                a = .Sheets(3).Range("A1:j" & .Sheets(3).[a1000000].End(3).Row)
                s = Split(f, ".")(0)
                .Close False
            End With
            With Sheet1
            .Range("A" & .[a1000000].End(3).Row + 1).Resize(UBound(a), UBound(a, 2)) = a
            .Range("K" & .[Z1000000].End(3).Row + 1).Resize(UBound(a)) = s
            End With
        End If
        f = Dir
    Loop
    Application.ScreenUpdating = True
End Sub

liulang0808

楼主方便的话，上传个模拟附件吧。。。

小小鸟前滚翻

猜一猜可能是设置项

Neil258

这个是附件，工作簿2、3是原始数据，VBA汇总的是里面的Sheet3，汇总后“本月单价收益费用”列的值发生了变化，请帮忙看下是哪里的原因

Neil258

liulang0808 发表于 2019-10-9 18:25
楼主方便的话，上传个模拟附件吧。。。

已上传，麻烦再看下吧

Neil258

小小鸟前滚翻 发表于 2019-10-10 04:11
猜一猜可能是设置项

emmmm……试了一下，不是这个原因，还是感谢

liulang0808

Neil258 发表于 2019-10-10 12:06
这个是附件，工作簿2、3是原始数据，VBA汇总的是里面的Sheet3，汇总后“本月单价收益费用”列的值发生了变 ...

附件内容测试没有问题，楼主换台电脑看看吧

Neil258

liulang0808 发表于 2019-10-10 12:41
附件内容测试没有问题，楼主换台电脑看看吧

换电脑试了，还是不行，但表示感谢