GBKEE

¦^´_ 1# mark15jill

1. Sub owg()
   
2.     Dim CtrTemp, AtrTemp As String
   
3.     kk = 1
   
4.     For wgo = 1 To 1102
   
5.         mm = wgo / 10  '°Ó
   
6.         gg = wgo Mod 10  '¾l¼Æ
   
7.         Cells(wgo, "M") = mm
   
8.         Cells(wgo, "N") = gg
   
9.         yy = InStr(Cells(wgo, "M"), ".")
   
10.         If InStr(Cells(wgo, "M"), ".") >= 1 Then Cells(wgo, "M") = Mid(Cells(wgo, "M"), 1, yy - 1)
    
11.         AtrTemp = IIf(AtrTemp = "", "", AtrTemp & "&:&") & Cells(wgo, "A")
    
12.         Cells(1, "P") = AtrTemp
    
13.         kk = kk + 1  '³okk¬O¦ó¥Î³~??
    
14.     Next
    
15. End Sub

½Æ»s¥N½X