- 帖子
- 835
- 主題
- 6
- 精華
- 0
- 積分
- 915
- 點名
- 0
- 作業系統
- Win 10,7
- 軟體版本
- 2019,2013,2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2010-5-3
- 最後登錄
- 2024-11-14
|
1.由於EXCEL的表單有格子限制(104萬行)
所以如果在處理BIG DATA是否要把DATA傳入陣列呢??
2.如果要傳入 ...
alanfengjkl 發表於 2014-11-4 11:15 
Sub d()
Dim a, i, s
a = Array(1, 2, 3, 4, 5)
s = UBound(a) - 1
For i = 2 To s
a(i) = a(i + 1)
Next
ReDim Preserve a(s)
End Sub
多維陣列 的 列舉式賦值 我有看過這樣的:
Sub a()
Dim a, i, j, s1, s2
a = [{"a", 1, 2, 9; "b", 1, 3, 2; "c", 1, 4, 0; "d", 6, 7, 7; "e", 6, 7, 4}]
s1 = UBound(a, 2)
s2 = UBound(a, 1)
For j = 1 To s2
For i = 3 To s1 - 1
a(j, i) = a(j, i + 1)
Next
Next
ReDim Preserve a(s2, s1 - 1) ' 這行會發生錯誤
End Sub
但是增減維數會發生錯誤,
我還沒試出來該怎麼做. |
|
發表於 2014-11-4 23:19
| 