¦p¦ó§ì¨úcell¤¤¤wª¾¬Y­Èªº¦ì§}? ¤wª¾¼Æ­È, ¦p¦ó

m09903020

¤pªº¥Ø«esheet¤¤¦³A¦æ300¦C·í§@¤@­Ó¤@ºûarray
½Ð°Ý¤j¤j¡A¦p¹Ï

¤U¸ü (24.48 KB)

2012-6-14 12:46

­Y¦³¤@¼Æ­È¬°1®É¡A«h¦p¦ó§ì¨ú¨äcell¦ì§}
ÁÂÁ¤j¤j¡C

m09903020

¦^´_ 13# register313

·PÁ  §Ú¥¿¦b¥Î³o­ÓÅÞ¿ètry¤@¤U

register313

¦^´_ 12# m09903020

Set C = R.Find(1, , , xlWhole)     '³]©w¤º®e¬°1ªºÀx¦s®æª«¥ó¬°C
If Not C Is Nothing Then s = s + 1: Arr(s, 1) = C.Address(0, 0)    '¨C§ä¨ìC«h±NCªº¬Û¹ï¦ì§}©ñ¶i°}¦C
  
s = s + 1   's¨Ì§Ç¥[1
(1) s=1, Arr(1, 1) = ²Ä1­Ó¤º®e¬°1ªºÀx¦s®æ¬Û¹ï¦ì§}
(2) s=2, Arr(2, 1) = ²Ä2­Ó¤º®e¬°1ªºÀx¦s®æ¬Û¹ï¦ì§}
(2) s=3, Arr(3, 1) = ²Ä3­Ó¤º®e¬°1ªºÀx¦s®æ¬Û¹ï¦ì§}

m09903020

¦^´_ 8# register313

    r¤j¥i¥H¦A½Ð±Ð³o¥y  
    s = s + 1: Arr(s, 1) = c.Address(0, 0)
   »y·N©MÅÞ¿è¶Ü? ÁÂÁÂ

m09903020

¦^´_ 8# register313


    ·PÁÂregister313¤j¤j¡A¨â¦¸¨ó§UÀ°¦£¡A§Ú¤ñ¸û¶wÁÙ¬O¤£·|¥Îfor each ¤ºªºÅÜ¼Æ ¦ý¾ã­ÓªF¦è¥i¥H°µ³sµ²¹B¥Î¤F(¸÷«ô!)

m09903020

¦^´_ 7# oobird


    ÁÂÁÂoo¤j¤j ¡A  ­è­è¦A¸Õ¤F¤@¦¸ xx() ½T¹ê¥i¥Î¡A§Apo¤å¤§«e¤£¦æ§Ú¤]¤£¬O«Ü¬°¤°»ò"¨S«Å§i"©ÎªÌ¨S¥Îwith

m09903020

¦^´_ 3# GBKEE


    ÁÂÁÂG¤j¡A G¤jªºµ{¦¡¨ç¼Æ«Üºë²¡A§Ú¬d¤F«Ü¤[¤~¬ÝÀ´¡C¤£¹L§Ú©ñ±ó¨Ï¥Î¤F:)

register313

¦^´_ 6# m09903020

¦ì§}©ñ¦b °}¦CArr ¤ÎMÄæ

1. Sub yy()
   
2.   Dim Arr(1 To 300, 1 To 1)
   
3.   For Each R In Sheets("asile_table").[A1:A300]
   
4.       Set C = R.Find(1, , , xlWhole)
   
5.       If Not C Is Nothing Then s = s + 1: Arr(s, 1) = C.Address(0, 0)
   
6.   Next
   
7.   Sheets("asile_table").[M1].Resize(s, 1) = Arr
   
8. End Sub

½Æ»s¥N½X

oobird

§Ú´ú¸Õ¥¿±`ªº¡A¤]³\§A§â¥N½X©ñ¿ù¦ì¸m¤F¡C

¤U¸ü (11.9 KB)

2012-6-14 16:47

m09903020

¦^´_ 5# register313

¤£¦n·N«ä ÀÉ®×¥u¯d °ÝÃD³¡¤À ­YÁÙ¬O¤£¨¬¥ý»¡Án©êºp¡A¦A¸É¤W

°ÝÃD.rar (34.69 KB)

°ÝÃD
¤U¸ü¦¸¼Æ: 7

2012-6-14 15:40