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

(°}¦C°ÝÃD)±N¬Y¤@ª½Äæ¦s¦Ü°}¦C¤¤¨Ã¨ú¥X¬Y°}¦C­È©Ò¦bªº¦C¼Æ

¦^´_ 1# greetingsfromtw

°ò¥»¤W°}¦C¬O¤£¯à³Q¿ï¨úªº
¥u¦³ª«¥ó¤~¯à³Q¿ï¨ú(¬¡­¶Ã¯¡B¤À­¶¡BÀx¦s®æµ¥µ¥)
¤U­±¬O²³æ½d¨Ò¡A¥i¦Û¦æ¹B¥Î
  1. Sub arrayTest()

  2. Dim ar

  3. ar = Range("a1").Resize(Cells(Rows.Count, 1).End(xlUp).Row, 2)
  4. For i = 2 To UBound(ar)
  5.     If ar(i, 1) <> "" Then
  6.         ar(i, 2) = i
  7.     End If
  8. Next

  9. [a1].Resize(UBound(ar), 2).Value = ar
  10. '­Y­n¿ï¨ú,½Ð¦Û¦æÀ³¥Î
  11. MsgBox ar(2, 2)
  12. Cells(ar(2, 2), 1).Select
  13. End Sub
½Æ»s¥N½X
PKKO

TOP

        ÀR«ä¦Û¦b : ¬°¤H³B¥@­n¤p¤ß²Ó¤ß¡A¦ý¤£­n¡u¤p¤ß²´¡v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD