請問調整一維陣列大小的方式

帖子: 32
主題: 13
精華: 0
積分: 70
點名: 0
作業系統: Window 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-4-28
最後登錄: 2021-7-6

8^#

發表於 2020-1-17 08:04 | 只看該作者

非常感謝您的分享~

MLB

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-21

7^#

發表於 2020-1-16 09:38 | 只看該作者

回復 6# mlbolerud

資料行數太多, 2003版, 單欄放不下, 可用多欄~~

帖子: 32
主題: 13
精華: 0
積分: 70
點名: 0
作業系統: Window 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-4-28
最後登錄: 2021-7-6

6^#

發表於 2020-1-15 12:26 | 只看該作者

有關陣列太長(>65536) , 無法寫入儲存格的問題
有哪位大大或前輩可以幫忙解惑嗎? 還是這題真的無解了?
謝謝~

MLB

帖子: 32
主題: 13
精華: 0
積分: 70
點名: 0
作業系統: Window 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-4-28
最後登錄: 2021-7-6

5^#

發表於 2020-1-9 21:34 | 只看該作者

本帖最後由 mlbolerud 於 2020-1-9 21:38 編輯

stillfish00大大
非常感謝你建議的方式 , 這是很好的建議
用這個方式 , 確實就可以在迴圈跑完就得到 , 陣列寫入的長度

我另外再請教個小問題, 如果我的一維陣列長度比較長, 例如10^5
我發現寫入儲存格時會出現 "型態不符合" 的錯誤
如果陣列短一點(<=65536) , 就可以寫入 , 我用什麼方式可以解決這問題呢?
我試過把陣列宣告成長整數( Dim arr() As long ) 沒有用, 如下範例
還望大大能不吝賜教
感謝了

Sub test1()
Dim arr() As Variant
ReDim arr(1 To 10 ^ 5)
n = 1
Do
   arr(n) = n
   n = n + 1
Loop While n < 10 ^ 5 + 1
Sheets(2).Cells(1, 1).Resize(10 ^ 5, 1) = Application.Transpose(arr)  ''''''''''' 無法寫入
End Sub

MLB

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

4^#

發表於 2020-1-9 13:19 | 只看該作者

本帖最後由 stillfish00 於 2020-1-9 13:24 編輯

回復 3# mlbolerud
沒有要你再用一個迴圈，你判斷是質數放到arr的時候就要塞到前面

Sub Test1()
Dim arr(1 To 100)
Dim cnt As Long
cnt = 0
For i = 1 To 100
If 是質數(i) Then
cnt = cnt + 1
arr(cnt) = i
End If
Next
ReDim Preserve arr(1 To cnt)
End Sub

複製代碼

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

帖子: 32
主題: 13
精華: 0
積分: 70
點名: 0
作業系統: Window 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-4-28
最後登錄: 2021-7-6

3^#

發表於 2020-1-9 12:30 | 只看該作者

stillfish00大大
非感謝你的建議, 但是我的例子(10^6以下的質數) , 個數有多少, 我一開始不會知道
所以我一開始只能建一個很大的一維陣列(避免寫不下) , 然後把質數找到後逐一寫入
最後寫完 , 沒有填滿的陣列位置 , 我想要把它刪除
我知道可以用寫迴圈的方式 , 判斷陣列裡的值len是否=0 , 計算質數個數
但是不知道有沒有不寫迴圈的指令可以用?
感謝了~

MLB

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2020-1-9 10:53 | 只看該作者

回復 1# mlbolerud
後面加一行
ReDim Preserve arr(1 To 5)

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。