麻辣家族討論版版 » Excel程式區 » 隨機改變陣列大小

返回列表下一主題上一主題發帖

[發問] 隨機改變陣列大小

中學生 Rank: 2

帖子: 15
主題: 4
精華: 0
積分: 50
點名: 0
作業系統: WIN7
軟體版本: OFFICE2010
閱讀權限: 20
性別: 男
註冊時間: 2012-8-3
最後登錄: 2013-7-15

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2013-6-11 11:34 | 只看該作者

[發問] 隨機改變陣列大小

因為不知道資料來源的大小,但改成myarray(a, 1)會出錯

'Dim a As Integer
'a = Cells(Range("A65536").End(xlUp).Row, 1).Row - 1

Dim myarray(1783, 1) 可以改成 Dim myarray(a, 1)

For i = 0 To 1783

For j = 0 To 1

myarray(i, j) = Cells(i + 1, j + 1)

Next j

Next i

樓主熱帖

收藏

中學生 Rank: 2

帖子: 15
主題: 4
精華: 0
積分: 50
點名: 0
作業系統: WIN7
軟體版本: OFFICE2010
閱讀權限: 20
性別: 男
註冊時間: 2012-8-3
最後登錄: 2013-7-15

3^#

發表於 2013-6-12 19:41 | 只看該作者

謝謝版主的解說!

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 472
主題: 5
精華: 0
積分: 485
點名: 0
作業系統: Windows
軟體版本: MS Office
閱讀權限: 100
性別: 男
來自: 香港
註冊時間: 2010-7-4
最後登錄: 2014-12-28

論壇貢獻勳章

2^#

發表於 2013-6-11 13:45 | 只看該作者

本帖最後由 kimbal 於 2013-6-11 13:47 編輯

回復 1# xandertco

動態陣列

Sub test()
Dim a As long
a = Cells(Range("A65536").End(xlUp).Row, 1).Row - 1
Dim myarray()
ReDim myarray(a, 1)
For i = 0 To a
For j = 0 To 1
myarray(i, j) = Cells(i + 1, j + 1)
Next j
Next i
End Sub

複製代碼

另外跟主問題無關的提示:上面integer 應轉成long, 如果行數多於3萬多的話,integer會出問題的.

懂得發問,答案就會在其中

今日の一秒は明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

靜思自在 : 盡多少本份，就得多少本事。

返回列表下一主題上一主題