| ©«¤l82 ¥DÃD7 ºëµØ0 ¿n¤À112 ÂI¦W0  §@·~¨t²ÎWIN7 ³nÅ骩¥»WIN7 ¾\ŪÅv20 ©Ê§O¨k µù¥U®É¶¡2013-1-3 ³Ì«áµn¿ý2020-9-21 
 | 
                
| ¦^´_ 7# GBKEE 
 
 G¤j¡A·Q½Ð°Ý±zÃö©ó³oÃä°}¦CÅÞ¿è°ÝÃD
 
 Option Explicit
 Sub Ex()
 Dim AR(),  ³o¸Ì«Å§i¤@²Õ°}¦CÅܼƧڤF¸Ñ   Rng As Range, i As Integer, A(1 To 6), T As Integer
 ReDim AR(0)  ¬°¤°»ò³o¸Ì°¨¤W´Nn«·s©w¸q°}¦CÅܼƩO?
 ¦Ó¥B§Ú¦³¤@Ӻðݠ AR(0) ¬O³oÓ°}¦C¤¸¯À¤¤ªº²Ä¤@ÓÅܼÆ?  ÁÙ¬O «·s«Å§i¾ãÓ°}¦CÅܼÆ
 With Sheets("Sheet1")
 .[B:B].Replace "000", "00", xlPart         'קאּ®É¶¡®æ¦¡ **********
 AR(0) = .[A1:F1]
 
 ³o¬O§Ú²Ä¤GӺôbªºÂI¢I@"  «·s§â¤¸¯À½á¤©µ¹ AR(0)  ³o¬O¤°»ò·N«ä
 ·N«ä¬O
 AR(0) = A1
 AR(1)=B1
 AR(2)=C1
 AR(3)=D1
 AR(4)=E1
 AR(5)=F1
 
 OR
 
 AR(0) ¸Ì±´N§t¦³  ¤»Ó¤¸¯À??    §Úı±o©Ç©Çªº ©Ò¥H¯S¦¹½Ð±Ð@@
 
 ¥H¤WÁÂÁÂ~^^
 | 
 |