[原] Excel(VBA)中数据的非科学记数法显示

\'**************************************************
\'函数说明 : 用于数据非科学记数法显示
\'制作者   : Temptation
\'**************************************************
Private Sub Worksheet_Activate()
    Dim i As Integer

    i = 2   \'起始操作行数

    Do
        Cells(i, 1) = "\'" & Format(Cells(i, 1), "##################")       \'第一行转为加"\'"前缀,按照身份证最多位数18位操作
        Cells(i, 4) = "\'" & Format(Cells(i, 4), "##################")       \'第四行转为加"\'"前缀
        
        i = i + 1

    Loop Until Cells(i, 1) = ""                                             \'直到数据的最后一行

End Sub