- 帖子
- 552
- 主題
- 3
- 精華
- 0
- 積分
- 578
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2015-2-8
- 最後登錄
- 2024-7-9
  
|
回復 1# user999
這是你要的嗎？- Public Sub test()
- Dim Brr()
- Arr = [A1:E70]
- ReDim Preserve Brr(1 To UBound(Arr, 1), 1 To 2)
- For I = 1 To UBound(Arr, 1)
- Brr(I, 1) = Arr(I, 2)
- Brr(I, 2) = Arr(I, 4)
- I = I + 1
- Next
- End Sub
|
|
發表於 2015-5-15 15:16
| 