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

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

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

ª¬ªp¬O³o¼Ë¤lªº¡G
¦³¤@­Órange¡A¦p¡G$a$1:$a$10
·Q§Q¥Îfor each next¤èªk
¥Ña10Ū¦^a1
¤£ª¾¹D³o¼Ë¥i¤£¥i¦æ¡H¡H
ÁÂÁ¡I¡I

¦^´_ 1# mygod0403
  1. Sub AA()
  2. For Each RNG In [A1:A10]
  3.    Cells(11 - RNG.Row, "B") = RNG.Value
  4. Next
  5. End Sub
  6. Sub BB()
  7. For R = 1 To 10 Step 1
  8.    Cells(R, "B") = Cells(11 - R, "A")
  9. Next R
  10. End Sub
½Æ»s¥N½X

TOP

¦^´_ 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

«D±`·PÁÂ~~~¦³·Qªk¤F

TOP

        ÀR«ä¦Û¦b : ¥ÌÄ@°µ¡BÅw³ß¨ü¡C
ªð¦^¦Cªí ¤W¤@¥DÃD