我有几个单元格包含格式为文本的电话号码 - 例如:3476225598 我如何转换每个单元格以使其显示为 347.6225598?
答案1
如果单元格格式为文本,则选择它们并运行这个简短的宏:
Sub FormatCells()
Dim r As Range
For Each r In Selection
r.NumberFormat = "@"
v = r.Text
r.Value = Left(v, 3) & "." & Mid(v, 4)
Next r
End Sub
编辑#1:
没有虚拟专用网络,假设数据在A1.....在B1进入:
=LEFT(A1,3) & "." & MID(A1,4,9999)