更改 Excel 2007 中的数字格式

Question

我有一个如下所示的 Excel 文件。我如何更改单元格格式，使其看起来与功能栏完全相同。而不是 3E-07 --> 0.000003

我不想更改小数位数，因为我只希望它具有所需的小数位数，这样末尾就不会出现多余的零。 例如，因为最小的数字有 7 个小数位，如果我将整列更改为 7 个小数位，像 6E-05 这样的数字将在末尾有两个额外的零 (0.0000600)。

我试图在宏观上做到这一点，因为有很多数字需要处理。我可以自己设置循环。

Answer 1

要修复所有列，请按照以下步骤操作： -

1. 单击A列提到的符号（即A的左侧）
2. 当您单击该符号时，它将选择整个工作表
3. 双击A 列 与 A 列 之间的边框线B 列
4. 这可以解决 Excel 工作表上的所有问题

此数字格式问题是由于列大小而发生的。

要修复这种类型的数字格式“0.0000600”：-

1. 选择列标题（即 A 列、B 列......以及您需要格式化的任何列）
2. 右键单击选项卡
3. 选择 < strong>“设置单元格格式”
4. 点击类型字段下
5. 类别下的自定义选项，输入0.0000000000

然后它会解决您的格式问题。

Answer 2

您已使用 VBA 标记了此问题，因此这里有两个 VBA 的示例 .自动调整方法。

对于整个工作表：

    With ActiveSheet    'set this worksheet reference more defintively!
        .Cells.EntireColumn.AutoFit
    End With

如果您的列已经达到您想要的宽度，您可以测试前 20 行，看看 .TEXT 属性 显示散列标记（例如# 或 Chr(35)）符号。

    With ActiveSheet    'set this worksheet reference properly!
        With .Cells(1, 1).CurrentRegion
            For c = 1 To .Columns.Count
                For r = 1 To 20     'maybe even .Rows.Count for smaller data grids
                    If CBool(InStr(1, .Cells(r, c).Text, Chr(35), vbBinaryCompare)) Then
                        .Columns(c).EntireColumn.AutoFit
                        Exit For
                    End If
                Next r
            Next c
        End With
    End With

后者使用 .CurrentRegion 属性定义要处理的单元格范围 从原点开始扩展，直到遇到完全空白的行和列。