ªð¦^¦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 : «Ý¤H°h¤@¨B¡A·R¤H¼e¤@¤o¡A´N·|¬¡±o«Ü§Ö¼Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD