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

[µo°Ý] Àx¦s®æ©¹¤U¶K¤W

[µo°Ý] Àx¦s®æ©¹¤U¶K¤W

¤p§Ì·Q½Ð°Ý¤@¤U

¤p§Ì¦bA1 ¦Ü B5 ¥´¦n¤F¸ê®Æ
            A          B
1       ¤p¦W     ¤pµØ
2       ¤p¬ü     ¤pµY
3       ¤p³¯     ¤p±i
4       ¤p³·     ¤p¦p
5       ¤p¦w     ¤p¥É

¤p§Ì·Q­n½Æ»sA1 ¦ÜB5ªº¸ê®Æ
µM«á©¹¤U¶K¤W(¦¸¼Æ¤£­­)
Åܦ¨³o¼Ë(°²³]¨â¦¸)
              A          B
6         ¤p¦W     ¤pµØ
7         ¤p¬ü     ¤pµY
8         ¤p³¯     ¤p±i
9         ¤p³·     ¤p¦p
10       ¤p¦w     ¤p¥É
11       ¤p¦W     ¤pµØ
12       ¤p¬ü     ¤pµY
13       ¤p³¯     ¤p±i
14       ¤p³·     ¤p¦p
15       ¤p¦w     ¤p¥É

·Q½Ð°Ý¤@¤U
Sheet1.Range("A1:B5").Select
Application.Selection.Copy
¥ÎRange().Select  ªº¤è¦¡
­n¦p¦ó©¹¤U¶K¤W©O?

©Î¬O¦³§OºØ¤è¦¡¥i¥H§¹¦¨??
¤p°ÝÃD½Ð±Ð¤@¤U¤j®a
ÁÂÁÂ!!!
WOW

ActiveSheet.UsedRange.Copy [a65536].End(3)(2)

TOP

¨S·Q¨ì¤@¦æ´N¸Ñ¨M¤F!!!! ·PÁ¤j¤jªº¦^ÂÐ!!!
WOW

TOP

oobird  ¤£¦n·N«ä ·Q½Ð°Ý¤@¤U ¦pªG¦b¤@¦¸¶K¤Wªº¸Ü  ·|§â¤§«e½Æ»s¹Lªº ¥þ³¡½Æ»s°_¨Ó
¦pªG»¡½Æ»s¤@¦¸·|½Æ»s1¨ì5   ¦A½Æ»s¤@¦¸·|½Æ»s1¨ì10  
½Ð°Ý­n¦p¦ó¥u½Æ»s1¨ì5´N¦n¤F©O??
WOW

TOP

¦^´_ 4# g93353

ActiveSheet.[a1:b5].Copy [a65536].End(3)(2)

TOP

½Ð¦ì¦b ActiveSheet.[a1:b5].Copy [a65536].End(3)(2) »yªk¤º¡A
End«á­±¤§ (3)(2) ¥Nªí¦ó·N¡H   ÁÂÁ¡I

TOP

¦^´_ 6# c_c_lai

         [a65536].End(3)(2)
µ¥¦P©ó[a65536].End(xlup).offset(1,0)

¶·¤À2³¡¥÷¸ÑÄÀ
1.[a65536].End(3)=[a65536].End(xlup)
   ¥Ña65536©¹¤W(xlup)§ä¨ì²Ä1­Ó¤£¬°ªÅ­ÈªºÀx¦s®æ,§Ya5
2.Range("a1:b3")(1)=Range("a1")
   Range("a1:b3")(2)=Range("b1")
   Range("a1:b3")(3)=Range("a2")
   Range("a1:b3")(4)=Range("b2")
   ¬GRange("a5")(2)=Range("a5").offset(1,0)=Range("a6")

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-4-5 20:08 ½s¿è

¦^´_ 6# c_c_lai
VBA µøµ¡¤¤ µ{¦¡½Xªº½d³ò¤º ·Æ¹«ÂI¿ï«á, «öF8 ³v¨B °õ¦æµ{¦¡¬Ý¬Ý.
  1. Option Explicit
  2. Sub Ex_END()
  3.     MsgBox Range("C5").End(1).Address
  4.     MsgBox Range("C5").End(xlToLeft).Address
  5.    
  6.     MsgBox Range("C5").End(2).Address
  7.     MsgBox Range("C5").End(xlToRight).Address
  8.    
  9.     MsgBox Range("C5").End(3).Address
  10.     MsgBox Range("C5").End(xlUp).Address
  11.    
  12.     MsgBox Range("C5").End(4).Address
  13.     MsgBox Range("C5").End(xlDown).Address
  14. End Sub

  15. Sub Ex()
  16.     MsgBox Range("C5")(1).Address
  17.     MsgBox Range("C5").Cells(1).Address
  18.     MsgBox Range("C5").Cells(1, 1).Address
  19.     MsgBox Range("C5").Cells(1, "A").Address
  20.    
  21.     MsgBox Range("C5")(2).Address
  22.     MsgBox Range("C5").Cells(2).Address
  23.     MsgBox Range("C5").Cells(2, 1).Address
  24.     MsgBox Range("C5").Cells(2, "A").Address
  25.    
  26.     MsgBox Range("C5")(1, 3).Address
  27.     MsgBox Range("C5")(1, "C").Address
  28.     MsgBox Range("C5").Cells(1, 3).Address
  29.     MsgBox Range("C5").Cells(1, "C").Address
  30. End Sub
½Æ»s¥N½X

TOP

®@¨þ¡I­ì¨Ó¦p¦¹¡A¯u·PÁ¤j¤j¸ÔºÉªº»¡©ú¡C
ÆZ¹³Å]³N¤è¶ô©O¡I

TOP

ÁÂÁ¦U¦ì¤j¤jªº¦^Âгá!!!!!·P®¦·P®¦!!
WOW

TOP

        ÀR«ä¦Û¦b : ºw¤ô¦¨ªe¡C²É¦Ì¦¨ÅÚ¡A¤Å»´¤vÆF¡A¤Å¥Hµ½¤p¦Ó¤£¬°¡C
ªð¦^¦Cªí ¤W¤@¥DÃD