| ©«¤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# yc1031 UsedRange ·|¶Ç¦^¤w¨Ï¥Î¹L ªº½d³ò
 ¦p²{¦³¬O¸ê®Æ A1:A15,  ¦ý¦pA30¦³¿é¤J¸ê®Æ¹L,¦ý¤w²M°£¤F¸ê®Æ
 UsedRange.Rows.Count ÁÙ¬O·|pºâ¨ìA30
 
 CurrentRegion  ·|¶Ç¦^ ³sÄò¦³¸ê®Æ ªº½d³ò
 ½Æ»s¥N½XSub rowcount()
    MsgBox "§b±b³f¼t°Ó¦³ " & Sheets("§b±b").[A1].CurrentRegion.Rows.Count - 1 & " ®a"
End Sub
 | 
 |