在整个 Excel 工作簿宏中格式化单元格编号

Question

我想创建一个宏，将整个工作簿 Excel 单元格格式化为数字。

我有这个代码：

Range("A1").NumberFormat = "0.00"

但这仅适用于特定范围。

你能帮我吗？

Answer 1

Dim sht As Worksheet

For Each sht In Worksheets
    sht.Cells.NumberFormat = "0.00"
Next sht

应该可以解决问题

嗯，我认为这会奏效：

Dim wb as Workbook: Set wb = ThisWorkbook
wb.Sheets.NumberFormat = "0.00"

它应该有效，因为它确实有效：

Dim wb As Workbook: Set wb = ThisWorkbook
wb.Sheets.Select: Selection.NumberFormat = "0.00"

我一定在语法中遗漏了一些微妙的东西...

Answer 2

这可以格式化您工作簿的所有工作表中的所有单元格。

Sub format_as_numbers()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Cells.NumberFormat = "0.00"
Next
End Sub

它必须是 .xlsx 格式的工作簿，因为旧的 .xls 文件没有那么多行和列，因此我认为它无法执行它。