luhpro

¦^´_ 3# ´Ñ»y³¾»ï
¥u­n¦b E ªº«á­±¥[¤W .Offset(0, 1) <§Y¼ÐªºÀx¦s®æ¥k²¾¤@Äæ = BÄæ> ´N¦n¤F:

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.Offset(0, 1).NumberFormatLocal = "0." & String(i, "0") & "_ "
   
9.         Else
   
10.             E.Offset(0, 1).NumberFormatLocal = "G/³q¥Î®æ¦¡"
    
11.         End If
    
12.     Next
    
13. End Sub

½Æ»s¥N½X