[字典嵌套][三维数组]对结构基本相同、同名工作表列项目不同的多个工作簿按表名汇总

一派

zhaogang1960 发表于 2013-11-19 18:37
按照下图添加引用：
'引用Microsoft Scripting Runtime
'引用Microsoft AD0 Ext 2.8 for DDL and Secur ...

谢谢！另请教一下。我想对数据进行精度处理，即对选中区域数据（含常数和计算公式数据，对于空值、文本、非数据型计算公式不处理）运行宏保留两位小数，思路为：
（1）对单元格内的常数按此公式处理：=ROUND(" & c.Value & ",2)
（2）对单元格内的文本、非数据型计算公式和=ROUND(" & c.Value & ",2)这类公式的计算数据不处理
（3）对单元格内=ROUND(" & c.Value & ",n)这类公式的计算数据修改为=ROUND(" & c.Value & ",2)
代码如下，请问如何修改为好？

Sub 对选中区域数据保留两位小数()
    Dim c As Range
    For Each c In Selection
        If Left(c.Formula, 3) = "=RO" Then
            On Error Resume Next
            c.Replace What:="=", Replacement:=""
            c.Formula = "=" & Mid(c.Value, 1, (Len(c.Value) - 3)) & ",2)"
        End If
        If Not IsEmpty(c) And Left(c.Formula, 3) <> "=RO" Then
            On Error Resume Next
            c.Replace What:="=", Replacement:=""
            c.Formula = "=ROUND(" & c.Value & ",2)"
        End If
    Next c
    Selection.NumberFormatLocal = "0.00_);[红色](0.00)"
End Sub


这样可以追溯原始数据，但存在问题如下：（1）对c.Formula = "=ROUND(" & c.Value & ",n)"格式n>9以上的数据已经不起作用，（2）且有时也会对文本进行处理了。

xwzj1314

高人啦 向你学习

徐魔魔

正需要这个 解了燃眉之急~~~~~~~~~~~~

2007小金猪

收藏学习，看到这么多代码头大

jd3170999

一直吸取论坛上的知识，却没有能力为“家”做点贡献，很是内疚，没有能力为论坛添砖加瓦，但愿能为这座大厦添一点建筑用的“沙子”吧

kingsmile

赵老师出品必为精品

layamon

谢谢分享，我先用来试下