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

[µo°Ý] ¦p¦ó¦b¦³¸ê®Æªº¦a¤è¦Û°Ê½s¸¹?

½Ð°Ý¤j¤j¡A¤U¦Cªºµ{¦¡½X¤§µ²ªG¡A­Y¤£·Q¥X²{¦h¾lªºªÅ¥Õ®æ¤l¡A§Y¤£·Q³Ì«á¤@µ§¸ê®Æ¸õ¨ì65536¡A§Úªº¸ê®Æ¬ù½s¸¹¨ì500¦Ó¤w¡A½Ð°Ý¸Ó¦p¦ó­×§ï?
Sub yy()
[a:a].HorizontalAlignment = xlCenter
Range("a2:a" & [b65536].End(3).Row) = "=row()-1"
[a:a] = [a:a].Value
End Sub

TOP

¦^´_ 11# winston219
End ÄÝ©Ê ®M¥Î¦Ü½d¨Ò¯S©w¶Ç¦^ Range ª«¥ó¡A¸Óª«¥ó¥Nªí¥]§t¨Ó·½½d³ò¤§°Ï°ìµ²§À³BªºÀx¦s®æ¡Cµ¥©ó«ö END+¦V¤WÁä¡BEND+¦V¤UÁä¡BEND+¦V¥ªÁä©Î END+¦V¥kÁä  ¥i°Ñ¾\  http://forum.twbts.com/thread-2055-1-1.html  4¼Ó
  1. Sub yy()
  2.     [a:a].HorizontalAlignment = xlCenter
  3.     Range("a2:a" & [b2].End(xlDown).Row) = "=row()-1"
  4.     'Range("a2:a" & [b2].End(4).Row) = "=row()-1"
  5.     [a:a] = [a:a].Value
  6. End Sub
  7. Sub EX()
  8.     With Range("B2", [b2].End(xlDown)).Offset(, -1)
  9. ' Range("B2", [b2].End(xlDown))-> ±qB2©¹¤U¨ì³Ì«á¦³¸ê®Æªº½d³ò,Offset(, -1)->¦V¥ª¦ì²¾¤@Ä檺½d³ò,
  10.         .HorizontalAlignment = xlCenter
  11.         .Cells = "=row()-1"
  12.         .Value = .Value
  13.     End With
  14. End Sub
½Æ»s¥N½X

TOP

³Ì«á¤@µ§¸ê®Æ¸õ¨ì65536
³oÀ³¸Ó¬ObÄ檺¸ê®Æ¦³°ÝÃD¡A [b65536].End(3).RowÀ³¸Ó¬ObÄæ³Ì«á¦³¸ê®Æªº¦C¡A­Y¶]¨ì65536ªí¥Ü¦³¬Ý¤£¨ìªº¦r²Å¦s¦b¡C

TOP

§Ú¸Õ¤FGBKEE»Poobird¨â¦ì¤j¤jªº¤èªk«á¡A¤´µM¨S¿ìªk¸Ñ¨M³o­Ó°ÝÃD¡C´«¤F¥t¤@­Ó¤u§@ªí«á¡A¤]¦P¼Ë¥X²{¨ì65536ªºªÅ®æ¡A½Ð°Ý¥i§_¨ì¦³¸ê®Æªº¦C¼Æ§Y¥i¡A¤£­n¥X²{¨º»ò¦h©¹¤UªºªÅ®æ¸ê®Æ?

TOP

¤w§i¶D§A°ÝÃD©Ò¦b¤F¡A½Ð¦Û¦æÀˬd§a¡C
©ÎªÌ§âÀɮתþ¤W¨Ó¤F¸Ñ¡I

TOP

ÁÂÁÂoobird¤j¤j¡A¤wµo·s°ÝÃD¡A±NÀɮפwªþ¤W¥h¤F!

TOP

«Øij¼Ó¥D¥Î9¼Ó²Ä¤@­Ómacro®É
³Ìªì¥[¤W³o¤@¥y
  1. Range("E2:E" & Rows.Count).Clear
½Æ»s¥N½X
¥ý²M°£E¦C¸ê®Æ,§_«h¤U¦¸¦A¥Î«K·|²¾¦ì(ÅܤFF¦C),·d±o¨®毁¤H¤`

TOP

¦^´_ 17# FAlonso
«Ü¦nªº«Øij,¦¹µ{§Ç¬O¨Ì·Ó¼Ó¥Dªº»Ý¨D,©Ò¶q¨­»s§@ªº¬G¨S¥[¤W§A«Øijªºµ{¦¡½X.

TOP

§Ú©Mª©¤j¦³¤@¼Ë°ÝÃD
­Éª©¤jªº¶¶­·¨®³á¤£ª¾­þ­Ó¤èªk¦n¥Î¸Õ¤@¤U
lionliu

TOP

§Ú¸Õ¥X¨Ó¤@­Ó¤èªkµ²¦X¦U¦ì¤j¤jªº¤èªk´N¥i¥H¤F
¹B¥Îexcel -->  ½s¿è--¨ì    ¦b¿ï¾ÜªÅ®æ«á
¥i±N©Ò¦³ªÅ®æ¿ï¨ú-->§R°£-->¾ã¦C¤W²¾
µM«á¦A°õ¦æ2¬°¤j¤jªº¤èªk´N¥i¥H¤F
¤èªk¦³ÂI²Â¦ý¬O¥i¥H°µ
lionliu

TOP

        ÀR«ä¦Û¦b : ¤f»¡¦n¸Ü¡B¤ß·Q¦n·N¡B¨­¦æ¦n¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD