register313

¦^´_ 1# m09903020

1. Sub xx()
   
2.   Set Rng = Range("A1:A" & [A1].End(xlDown).Row)
   
3.   Set ADDX = Rng.Find(1, , , xlWhole)
   
4.   MsgBox ADDX.Address
   
5. End Sub

½Æ»s¥N½X

register313

¦^´_ 4# m09903020

½Ð¤W¶ÇexcelÀ£ÁYÀÉ
vba¤§¼¶¼g»Ý¦Ò¼{¤u§@ªí¤ÎÀx¦s®æ¤§¨Ï¥Î±¡§Î

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

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®æ¬Û¹ï¦ì§}