標題: [發問] 只定陣列 A()某幾欄到另一陣列 B() [打印本頁]

---

作者: user999    時間: 2015-5-15 14:10     標題: 只定陣列 A()某幾欄到另一陣列 B()

請教諸位先進
        有二維陣列 A()    欄位 5 欄   列為1....到n
可有指定另二維陣列 B() =A()中欄位為  第 2欄及 第4欄 ,列為同1...到n  
的方法 ,請教導一下,   
謝謝!

---

作者: lpk187    時間: 2015-5-15 15:16

回復 1# user999
這是你要的嗎？

1. Public Sub test()
   
2. Dim Brr()
   
3. Arr = [A1:E70]
   
4. ReDim Preserve Brr(1 To UBound(Arr, 1), 1 To 2)
   
5. For I = 1 To UBound(Arr, 1)
   
6.     Brr(I, 1) = Arr(I, 2)
   
7.     Brr(I, 2) = Arr(I, 4)
   
8.     I = I + 1
   
9. Next
   
10. End Sub

複製代碼

---

作者: user999    時間: 2015-5-18 14:47

回復 2# lpk187
感謝您的幫忙
不過brr() 跳1列抓資料  如圖
請在幫忙一下,謝謝!

---

作者: lpk187    時間: 2015-5-18 15:07

回復 3# user999


    不好意思！
I=I+1這行刪掉吧！原本用其他方式做的，忘了刪除掉！

---

作者: user999    時間: 2015-5-18 15:23

謝謝您,
我也好高興自己
發現重複地方
,不過您還是比較快!
感激了!

---

作者: GBKEE    時間: 2015-5-19 08:25

回復 5# user999
也可以不跑迴圈.

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Arr(), Brr(1 To 2)
   
4.     Arr = [A1:E70].Value
   
5.     Brr(1) = Application.Index(Application.WorksheetFunction.Transpose(Arr), 2)
   
6.     Brr(2) = Application.Index(Application.WorksheetFunction.Transpose(Arr), 4)
   
7. End Sub

複製代碼

---

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