Excel VBA - 分配了范围值的变体变量的下标超出范围

Question

使用此数组时，我在尝试打印时下标超出范围。 我看到 LBound 是 1，并且在第一次迭代中 For 循环中的 nTemp = 1。 关于这里出了什么问题的任何指导？

copyArr = .Range(.Cells(1, moveRng.Column), .Cells(rowsUsed, moveRng.Column)).Value
Debug.Print vbTab & "copyArr range is " & LBound(copyArr) & " : " & UBound(copyArr)
For nTemp = LBound(copyArr) To UBound(copyArr)
Debug.Print vbTab & "copyArr(" & nTemp & ") = " & copyArr(nTemp)
Next nTemp

以下是出现错误之前的调试输出示例。

Found header 'Device Type' for moveRng at column # 6
Found header 'IP Address' for insertRng at column # 3
copyArr range is 1 : 3

这是变量声明

Dim searchRng As Range, moveRng As Range, insertRng As Range, targetRng As Range, copyArr As Variant
Dim sTemp As String, deleteAddr As String
Dim nTemp As Long, copyOffset As Long, insertOffset As Long, deleteOffset As Long, rowsUsed As Long

任何指导将不胜感激。

Answer 1

@BigBen 应该为此获得赞誉。 一维数组与二维数组的简单错误。

Debug.Print vbTab & "copyArr(" & nTemp & ") = " & copyArr(nTemp, 1)

那解决了它。