3

我在 Sheet1 的 A 列中列出了电话号码。目前它们没有任何格式,存储为:1112223333

我想将它们转换为:111.222.3333

我试过了:

Format(Worksheets("Sheet1").Range("A1").Value, "###.###.####")

这给了我“1112223333 ..”

编辑:当我尝试将其格式化为:

Format(Worksheets("Sheet1").Range("A1").Value, "(###) ###-####")

它工作得很好:(111)222-3333

它只是我遇到问题的“111.222.3333”格式。我在这里错过了什么吗?

提前致谢

4

1 回答 1

6

句点需要转换为文本,否则将被读取为小数点:

Worksheets("Sheet1").Range("A1").NumberFormat = "###"".""###"".""####"
于 2012-05-03T16:43:58.753 回答