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

转载于:https://www.cnblogs.com/temptation/archive/2008/02/22/1077048.html