[原] 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