如何使用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"

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