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

¦³ÃöÂà¶K¤å³¹"For...Next »P For Each...Next °j°éªº°ò¥»·§©À"ªº°ÝÃD

¥»©«³Ì«á¥Ñ Min ©ó 2010-9-5 19:36 ½s¿è

Set a = Workbooks("ÀÉ®×A.xls").Sheets(1)
Set b = Workbooks("ÀÉ®×B.xls").Sheets(1)
³o¥ó¬Oª«¥óÅܼƪü ¬O¤u§@ªíª«¥óªºÅܼÆ!

lastrow = a.[A1].End(xlDown).Row
lastcol = a.[A1].End(xlToRight).Column
¬O¼Æ­ÈÅÜ¼Æ ¦pinteger long...

¦Ü©ó¤°»ò®É­Ô­n¥Îset... ¥u­n¬O"ª«¥ó"´N»Ý­n¥Îset~
­Y¬O§Ú¦^µª¡A¨Ï±zº¡·N¡A½Ð±zÅý§Úª¾¹D¡I                  
­Y¬O§Úªº¦^ÂСA±z¤´¦³¨ä¥L¨£¸Ñ¡A¤]½Ð±z¤£¶Þ«ü±Ð¡I

TOP

        ÀR«ä¦Û¦b : ¹D¼w¬O´£ª@¦Û§Úªº©ú¿O¡A¤£¸Ó¬O¨þ¥¸§O¤HªºÃ@¤l¡C
ªð¦^¦Cªí ¤W¤@¥DÃD