標題: 不相鄰單元格,如何變為矩陣使用 [打印本頁]

---

作者: b31978    時間: 2011-9-7 10:20     標題: 不相鄰單元格,如何變為矩陣使用

請各位高手,高高手,小弟想破了頭,也無法想出如何使用,
例如把A1,B3,B2等不相鄰單元格,想要變為矩陣,以利後面程式的取用,
可是我要如何才能取用到呢?
例如:ar(0)=a1的資料,ar(1)=b3資料..等等
謝謝各位的協助,Orz
   
Dim ar As Variant
        ar = Array(Range("a1, b3, b2").Select)

---

作者: GBKEE    時間: 2011-9-7 10:58

回復 1# b31978

1. Sub Ex()
   
2.     Dim AR
   
3.     AR = Array(Range("A1").Value, Range("B3").Value, Range("B2").Value)
   
4.     MsgBox AR(0)
   
5. End Sub
   
6. Sub Ex1()
   
7.     Dim AR
   
8.     AR = Array("A1", "B3", "B2")
   
9.     MsgBox Range(AR(0))
   
10. End Sub

複製代碼

---

作者: b31978    時間: 2011-9-7 11:35

回復 2# GBKEE


謝謝您,幫了大忙了,VBA真是博大精深...繼續研讀!!!
再次感謝...:D

---

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