麻辣家族討論版版 » Excel程式區 » 詢問陣列程式哪裡錯誤

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

[發問] 詢問陣列程式哪裡錯誤

中學生 Rank: 2

帖子: 91
主題: 5
精華: 0
積分: 130
點名: 2
作業系統: Win10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2016-5-14
最後登錄: 2026-6-21

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2017-4-8 15:05 | 顯示全部帖子

[發問] 詢問陣列程式哪裡錯誤

出現陣列索引超出範圍
顯示錯誤範圍 ----> ReDim Preserve 文本A(1 To n, 1 To 2)
我看不出有甚麼問題
想問各位大大是哪裡出錯了以及如何改正

Public Sub 測試3()
Dim 文本(), 文本A()
With Worksheets("1111")
n = 0
文本 = .Range("P3").Resize(4, 2).Value
For i = 1 To 4
If 文本(i, 2) <> Empty Or 文本(i, 2) <> "無" Then
n = n + 1
ReDim Preserve 文本A(1 To n, 1 To 2)
For c = 1 To 2
文本A(n, c) = 文本(i, c)
Next
End If
Next
End With
End Sub

複製代碼

樓主熱帖

收藏

中學生 Rank: 2

帖子: 91
主題: 5
精華: 0
積分: 130
點名: 2
作業系統: Win10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2016-5-14
最後登錄: 2026-6-21

2^#

發表於 2017-4-9 09:14 | 顯示全部帖子

回復 2# c_c_lai

感謝大大幫助，修改後測試OK
想問一下大大為什麼我修改前會不行
而轉置後卻可以呢?

中學生 Rank: 2

帖子: 91
主題: 5
精華: 0
積分: 130
點名: 2
作業系統: Win10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2016-5-14
最後登錄: 2026-6-21

3^#

發表於 2017-4-11 08:18 | 顯示全部帖子

回復 5# c_c_lai

感謝c大的提供的網址
原來是這樣

當使用 Preserve 保留字時，您只能改變多維陣列中最後一維的上界；如果改變了其它維數或最後一維的下界，則會發生執行階段的錯誤。

中學生 Rank: 2

帖子: 91
主題: 5
精華: 0
積分: 130
點名: 2
作業系統: Win10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2016-5-14
最後登錄: 2026-6-21

4^#

發表於 2017-4-11 08:25 | 顯示全部帖子

回復 6# jackyq

感謝J大的解說
我已了解了

靜思自在 : 口說好話、心想好意、身行好事。

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