将单元格值格式化为电话号码格式

use*_*468 3 excel vba excel-vba

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

我想将它们转换为:111.222.3333

我试过了:

Format(Worksheets("Sheet1").Range("A1").Value, "###.###.####")
Run Code Online (Sandbox Code Playgroud)

这给了我"1112223333 .."

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

Format(Worksheets("Sheet1").Range("A1").Value, "(###) ###-####")
Run Code Online (Sandbox Code Playgroud)

它完美无缺:(111)222-3333

它只是与我有问题的"111.222.3333"格式.我在这里错过了什么吗?

提前致谢

Dou*_*ncy 5

期间需要转换为文本,否则它们将被读作小数点:

Worksheets("Sheet1").Range("A1").NumberFormat = "###"".""###"".""####"
Run Code Online (Sandbox Code Playgroud)