- 帖子
- 91
- 主題
- 5
- 精華
- 0
- 積分
- 130
- 點名
- 0
- 作業系統
- Win10
- 軟體版本
- Office 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2016-5-14
- 最後登錄
- 2020-5-17
|
出現 陣列索引超出範圍
顯示錯誤範圍 ----> 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
|
|
發表於 2017-4-8 15:05
| 
