如何使用Excel VBA按照货币标准格式化列中的数字？

Question

我想格式化一列的所有单元格。数据是一个数字，我想在左侧添加一个小数，之后仅保留两位数字。然后按照货币标准对其进行格式化。例如：

Data:       Output:
10000       100.00
112233      1,122.33
123456789   1,234,567.89

需求正常，输出以斜体显示。

Answer 1

以下内容将给定列的格式设置为“货币”：

Sheets("Sheet1").Columns("A").NumberFormat = "£#,##0.00"

Answer 2

在这种情况下，宏记录器会有些危险，因为如果使用它，您的代码将看起来像这样（从另一个答案中得出）：

Sheets("Sheet1").Columns("A").NumberFormat = "£#,##0.00"

但是，这仅在英国可以。如果要编写代码以根据PC的本地设置格式化货币，那么最好在此处使用货币：

Sheets("Sheet1").Columns("A").Style = "Currency"

然后，一个英国人将获得英镑格式和一美元。