VBA遍历Excel所有工作表修改小数位数失效问题求助

核心问题 #

你的代码只修改了活动工作表，根源是未明确指定Range所属的工作表：
Range("A1:AA200")默认会引用当前活动工作表的区域，循环到其他工作表时，实际还是在操作活动表的单元格，自然不会改变其他表的内容。

额外逻辑偏差 #

原判断条件Len(c) - InStr(c, ".") > 2和你的需求不符：你要找的是包含2位小数的单元格，但这个条件是判断小数部分长度超过2位，会把3位及以上小数的单元格改成8位，完全反向了需求逻辑。

修正后的代码 #

Sub ChangeDecimal()
    Dim ws As Worksheet
    Dim c As Range
    
    For Each ws In Worksheets
        ' 明确绑定当前循环的工作表，操作其指定区域
        For Each c In ws.Range("A1:AA200")
            ' 先判断单元格是数值且非空，避免文本/空单元格出错
            If c.Value <> "" And IsNumeric(c.Value) Then
                ' 判断小数部分是否为2位
                Dim decimalParts As Variant
                decimalParts = Split(CStr(c.Value), ".")
                ' 处理整数（无小数点）的情况
                If UBound(decimalParts) = 1 Then
                    If Len(decimalParts(1)) = 2 Then
                        c.NumberFormat = "0.00000000"
                    End If
                End If
            End If
        Next c
    Next ws
End Sub

可选调整 #

如果你的需求是把格式为2位小数的单元格改成8位（而非值的小数部分是2位），可以把判断逻辑替换成：

If c.NumberFormat Like "0.00" Or c.NumberFormat Like "#,##0.00" Then
    c.NumberFormat = "0.00000000"
End If

内容的提问来源于stack exchange，提问作者Edward