詢問陣列程式哪裡錯誤 - Excel程式區

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

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

1^# 跳轉到 »

發表於 2017-4-8 20:03 | 顯示全部帖子

回復 1# naruto018
試試看！
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)
            ReDim Preserve 文本A(1 To 2, 1 To n)
            For c = 1 To 2
                  '  文本A(n, c) = 文本(i, c)
                  文本A(c, n) = 文本(i, c)
            Next
         End If
      Next
End With
End Sub

TOP

c_c_lai