GBKEE

¦^´_ 3# hugh0620
µ{¦¡½Æ»s«á ½Ð¿ï¾Ü¤@ªÅ¥Õªº¤u§@  °õ¦æ¬Ý¬Ý
¨ä¥L¨ç¼Æ½Ð¦h¬Ý»¡©ú¦h¾Þ§@ À³·|¹B¥Î¦Û¦p
Sub Ex()
    MsgBox ActiveSheet.Range("C100").End(1)(2, 1).Address '
    MsgBox ActiveSheet.Range("C100").End(xlToLeft).Cells(2, 1).Address '
   
    MsgBox ActiveSheet.Range("C100").End(2)(2, 1).Address '
    MsgBox ActiveSheet.Range("C100").End(xlToRight).Cells(2, 1).Address '
   
    MsgBox ActiveSheet.Range("C100").End(3)(2, 1).Address '
    MsgBox ActiveSheet.Range("C100").End(xlUp).Cells(2, 1).Address '
   
    MsgBox ActiveSheet.Range("C100").End(4).Address
    MsgBox ActiveSheet.Range("C100").End(xlDown).Address '
'ActiveSheet.Range("C100").End(xlDown) ¤w¨ìÀɮש³ºÝ ¦p«ü©ú-> ¤U¤@¦C¦ì .Cells(2, 1) ·|²£¥Í¿ù»~
    MsgBox ActiveSheet.Range("C100").End(4)(2, 1).Address                     '<-²£¥Í¿ù»~
    MsgBox ActiveSheet.Range("C100").End(xlDown).Cells(2, 1).Address    '<-²£¥Í¿ù»~
   
End Sub

GBKEE

1.  ªþ¥ó¤¤sheet A B¨â­Ó¸ê®ÆÁ`¦X¦bDATA¤¤  hugh0620 µoªí©ó 2010-12-2 15:14

1. Sub Ex()  '¶×¾ã
   
2.     Dim S As Worksheet
   
3.     For Each S In Sheets(Array("A", "B"))
   
4.         S.Range("D6").CurrentRegion.Offset(1).Copy Sheets("DATA").Range("D" & Rows.Count).End(xlUp).Cells(2)
   
5.     Next
   
6. End Sub

½Æ»s¥N½X

GBKEE

Rows.Count ÅU¦W«ä·N·íµM¬O«ü¦CªºÁ`¼Æ¡A³q±`ª½±µ¥Î65536oobird µoªí©ó 2010-12-3 14:18

§ÚªºExcleª©¥»¬O2003ª© Rows.Count=65536 ,2007ª© ??, 2010ª© ??
¨C·íµ{¦¡½X¦p¦³­pºâ¨ìÀɮ׳̩³ºÝ¦Cªº¼Æ­È,§Ú²ßºD¥ÎRows.Count,¥i³q¥Î©Ò¦³ª©¥»ÁקK¿ù»~²£¥Í.