如何格式化包含错误的单元格

如何格式化包含错误的单元格

我有几个单元格包含格式为文本的电话号码 - 例如: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)

相关内容