- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¸g¹L¹ê»Ú¸ê®Æ³B²z«á¡A§Ú§âÆ[¹î¨âºØ¤£¦P¤è¦¡°õ¦æ¤§µ²ªG±Ôz¦p¤U¡A¥H´ÁÀ°§U¨ä¥L©|¶·ÁA¸Ñªº¦P¾Ç̨Ӧ@¦P¤À¨É¡G
' ¥Ø«e¹ê»Ú§¹¾ã¶×¤J¸ê®Æ½d³ò¬°¡G A1:Z1712 ¡F ¦ý¬O±q X1:Z2000 Äæ¦ìÀx¦sªº¬Opºâ¤½¦¡(¦ôp³Ì¦h¸ê®Æ¶µ¬° 2000 ¦C¡A©Ò¥H±q X1713:Z2000 ¨äÄæ¦ìȧ¡¬° 0)
' ¶Ç¦^ 2000 ¦C¡AÂàzregister313¦^©«¡G©Ò¦³¨Ï¥ÎÀx¦s®æ©Ò²Õ¦¨¥|¤è§Î°Ï°ì¤§³Ì«á¤@¦C¤§¦C¸¹
' ¶Ç¦^ 1712 ¦C¡AÂàzregister313¦^©«¡GB Äæ©Ò¨Ï¥ÎÀx¦s®æ¤§³Ì«á¤@®æ¤§¦C¸¹- Sub Test()
- Dim total_row As Single
-
- Cells(2, 22).Value = ActiveSheet.UsedRange.Rows.Count
- Cells(2, 23).Value = Range("B" & Rows.Count).End(xlUp).Row
- End Sub
½Æ»s¥N½X- ' °õ¦æµ²ªG¡G
- '
- ' V (22) W (23)
- ' 1 --------------------
- ' 2 2000 1712 ' 1712 ¬°¹ê»Ú¶×¤J¸ê®Æ¤§¦æ¼Æ
- ' 3
½Æ»s¥N½X ©Ò¥H¦b¦¹®É¹ê°È³B²z¤W¡A ¦p±Ä¥H ActiveSheet.UsedRange.Rows.Count ¤è¦¡¡A©|¶·¦A¦¸¹LÂo³¡¤ÀªÅ¥Õ»P«D¯u¹ê¶×¤J¸ê®Æªº°ÝÃD¦C¡C
¦A¦¸·PÁ¤j¤jªº¸Ñ»¡¡I |
|