標題: 請問能否將for each next由後往前執行？ [打印本頁]

---

作者: mygod0403    時間: 2012-2-13 23:06     標題: 請問能否將for each next由後往前執行？

狀況是這樣子的：
有一個range，如：$a$1:$a$10
想利用for each next方法
由a10讀回a1
不知道這樣可不可行？？
謝謝！！

---

作者: register313    時間: 2012-2-13 23:24

回復 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

複製代碼

---

作者: GBKEE    時間: 2012-2-14 08:13

回復 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

複製代碼

---

作者: mygod0403    時間: 2012-2-20 14:45

非常感謝~~~有想法了

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)