GBKEE

回復 1# 棋語鳥鳴

是這樣嗎

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim E As Range, i As Integer
   
4.     For Each E In Range("A:A").SpecialCells(xlCellTypeConstants, xlNumbers)
   
5.         i = InStr(E, ".")
   
6.         If i > 0 Then
   
7.             i = Len(Mid(E, i + 1))
   
8.             E.NumberFormatLocal = "0." & String(i, "0") & "_ "
   
9.         Else
   
10.             E.NumberFormatLocal = "G/通用格式"
    
11.         End If
    
12.     Next
    
13. End Sub

複製代碼