- ©«¤l
- 82
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 112
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- WIN7
- ¾\ŪÅv
- 20
- ©Ê§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ÁÂÁÂ~^^ |
|