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

¼t°Ó²Î­p

¼t°Ó²Î­p

²Î­p¼t°Ó.rar (20.09 KB)


¦U¦ì¦n¡A¤G­Ó°ÝÃD·Q½Ð±Ð¡I

1.  
Sub rowcount()
MsgBox "¤w¥X³f¼t°Ó¦³ " & ActiveSheet.UsedRange.Rows.Count - 1 & " ®a"

End Sub


§Ú¥i¥H¥[¤J«ü©w­pºâ­þ­ÓSHEETªºROW ¼Æ¶Ü?

2. ¦]¬°ªí®æ¨Æ¥ý³£¤w¸g©³½u, ³y¦¨¦bCOUNT ROW®É, ·|¦³¿ù»~,
   ½Ð°Ý¥i¥H§ï¦¨¥u­pºâ¦³¤å¦rªºROW ¼Æ¶Ü?

·PÁ¦U¦ì!

¦^´_ 2# GBKEE


    §Ú©ú¥Õ¤F! «D±`·PÁ±zªº¨ó§U, °ÝÃD¤w¸Ñ¨M¤F~ :D

TOP

¦^´_ 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 : ¤p¨Æ¤£°µ¡B¤j¨ÆÃø¦¨¡C
ªð¦^¦Cªí ¤W¤@¥DÃD