| ©«¤l5923 ¥DÃD13 ºëµØ1 ¿n¤À5986 ÂI¦W0  §@·~¨t²Îwin10 ³nÅ骩¥»Office 2010 ¾\ŪÅv150 ©Ê§O¨k ¨Ó¦Û¥xÆW°ò¶© µù¥U®É¶¡2010-5-1 ³Ì«áµn¿ý2022-1-23 
         
 | 
                
| ¦^´_ 1# lai.k.h ½Æ»s¥N½XSub Ex()
    Dim C As Range
    For Each C In Range("a1:a15")
        If C.Cells(1, 2) <> "" Then C.Cells(1, 3) = C / C.Cells(1, 2)
    Next
End Sub
 | 
 |