VBA _错误9下标超出范围

Question

为什么在行T(k) = Cells(k + 1, 4).Value - z上出现“下标超出范围”？

Public Sub find()
Dim i, j, k, h As Integer
Dim T() As Double
Dim z As Double
Range("E1").Activate
i = ActiveCell.Row
j = ActiveCell.Column
While Not IsEmpty(Cells(i, j - 2).Value)
  z = Cells(i, j - 2).Value
  k = 0
 While Not IsEmpty(Cells(k + 1, 4).Value)
  T(k) = Cells(k + 1, 4).Value - z
  k = k + 1
 Wend
  For h = 0 To k
   If T(h) = Application.WorksheetFunction.Min(Abs(T(k))) Then
    Cells(i, j).Value = Cells(h + 1, 4).Value
   End If
  Next
 i = i + 1
Wend
End Sub

Answer 1

在您说T(k) = ... ，您的数组T尚未分配。 还没有T(0)这样的东西。 因此出现“下标超出范围”错误。

在索引到T之前，必须使用ReDim赋予T大小。 例如：

Dim T() As Double
ReDim T(0 to 123)  ' or whatever size you need