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

±N­«½Æ¸ê®Æ§R°£

±N­«½Æ¸ê®Æ§R°£

§Ú¦³¤@­ÓÀÉ®×·Q­n¨Ì¾Ú A Äæ§PÂ_¬O§_¦³­«½Æ
­Y¦b A Ä椤¦³­«½Æªº¸Ü´N¥u¯d¤U²Ä¤@µ§¸ê®Æ
¨ä¾lªº¾ã¦æ§R°£

¦b Excel ¤¤¦³­Ó¥¨¶°¥¦¬O¥i¥H¨Ì·Ó§Úªº»Ý¨D±N­«½Æªº¸ê®Æ§R°£
¥i¬O¥¦³s¤U­±§Úªº­pºâ¤½¦¡¤]·|¤@°_¾ã¦æ§R°£

½Ð°Ý§Ú¸Ó¦p¦ó§ï§Úªºµ{¦¡©O¡H

ÁÂÁ¡ã
Test.zip (13.3 KB)

¦^´_ 1# Genie

play.gif
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

§Úª¾¹D 2007 ¦³³o¥\¯à
¦ý§Ú¬O 2003 ªºª©¥»
¤£ª¾¹D¦b 2003 ¬O§_¦³¤ñ¸û§Ö³tªº¤èªk©O¡H
ÁÂÁ¡ã

TOP

§Úª¾¹D 2007 ¦³³o¥\¯à
¦ý§Ú¬O 2003 ªºª©¥»
¤£ª¾¹D¦b 2003 ¬O§_¦³¤ñ¸û§Ö³tªº¤èªk©O¡H
ÁÂÁ¡ã

TOP

2003 ªºª©¥»
¸ê®Æ>¿z¿ï>¶i¶¥¿z¿ï>°õ¦æ>  
  1 ¦b­ì¦³½d³òÅã¥Ü¿z¿ïµ²ªG  
  2 ¸ê®Æ½d³ò>a1:a20 (¨Ò)  
  3 ¤£¿ï­«½Æªº¬ö¿ý
½T©w                            ¬Ý¦X¤£¦X¥Î

TOP

2003 ªºª©¥»§Ú¤]ª¾¹D¥i¥H³o¼Ë°µ
¥i¬O·í§Úªº¸ê®Æ¦³¤W¸Uµ§ªº®É­Ô¶]°_¨Ó«ÜºC
©Ò¥H¤~·Q»¡¥i¤£¥i¥H¥Î vba ¤ñ¸û§Ö±N­«½Æªº¸ê®Æ§R°£¡H

TOP

Dim EndRow As Integer: EndRow = Sheets(sheetsCaption).Range("a1").End(xlDown).Row

TOP

¥»©«³Ì«á¥Ñ Genie ©ó 2011-6-14 19:22 ½s¿è

ÁÂÁ oobird ¥i¥H¶¶§Qªº§R°£­«½Æªº¸ê®Æ¤F
¥i¬O¬°¤°»òRange(Col & "65536").End(xlUp)§ï¦¨Range("a1").End(xlDown)´N¥i¥H¤F©O¡H

Test.zip (12.66 KB)

TOP

        ÀR«ä¦Û¦b : ÁÀ¨¥¹³¤@¦·²±¶}ªºÂAªá¡A¥~ªí¬üÄR¡A¥Í©Rµu¼È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD