将Excel中以文本存储的长数字转为常规格式且保留原值

首先明确：Excel的数字存储精度仅为15位，你提供的数字有44位，远超这个限制——强行转成数字格式不仅会显示科学计数法，还会丢失末尾的精确数值，这不是格式设置的问题，是Excel本身的数字存储上限导致的。

你的VBA代码是把文本转成数字，反而触发了精度限制，解决思路应该是让单元格以文本格式完整保留原始数字，而非转成数字类型。以下是几种可行的批量处理方法：

方法1：VBA批量转为文本格式 #

替换你原有的代码，这段会先设置单元格为文本格式，再重新写入原始值，避免转成数字丢失精度：

Sub KeepLongNumbersAsText()
    Dim rng As Range
    Dim cl As Range
    
    On Error Resume Next ' 避免无常量单元格时报错
    Set rng = Cells.SpecialCells(xlCellTypeConstants)
    On Error GoTo 0
    
    If Not rng Is Nothing Then
        ' 设置单元格格式为文本
        rng.NumberFormat = "@"
        ' 重新写入值，确保以文本形式存储
        For Each cl In rng
            If IsNumeric(cl.Value) Then
                cl.Value = CStr(cl.Value)
            End If
        Next cl
    End If
End Sub

方法2：公式批量转换 #

如果不想用VBA，可在空白列（比如B列）第一个单元格输入公式：
=TEXT(A1,"@")
下拉填充到所有目标行，之后选中结果列，复制并右键选择「粘贴为值」，即可得到以文本格式完整显示的长数字。

方法3：手动批量转换（适合少量数据） #

选中所有需要处理的单元格，在顶部「数字格式」下拉框选「文本」，然后按F2+Enter逐个确认；或选中区域后点击「数据」选项卡的「分列」，直接点完成，也能触发文本格式的确认。

内容的提问来源于stack exchange，提问作者Black Mamba