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

½Ð°Ý¯à§_±Nfor each next¥Ñ«á©¹«e°õ¦æ¡H

¦^´_ 1# mygod0403
  1. Option Explicit
  2. Sub Ex()
  3.     Dim xR As Integer
  4.     For xR = [A10].Row To [A1].Row Step -1
  5.         MsgBox Cells(xR, "A").Address
  6.     Next
  7. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¡i¦æµ½­n¤Î®É¡j¦æµ½­n¤Î®É¡A¥\¼w­n«ùÄò¡C¦p¿N¶}¤ô¤@¯ë¡A¥¼¿N¶}¤§«e¤d¸U¤£­n°±º¶¤õ­Ô¡A§_«h­«¨Ó´N¤Ó¶O¨Æ¤F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD