ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¼t°Ó²Î­p

¦^´_ 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³ò
  1. Sub rowcount()
  2.     MsgBox "§b±b³f¼t°Ó¦³ " & Sheets("§b±b").[A1].CurrentRegion.Rows.Count - 1 & " ®a"
  3. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¯Ê¤fªºªM¤l¡A¦pªG´«¤@­Ó¨¤«×¬Ý¥¦¡A¥¦¤´µM¬O¶êªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD