Question

为什么我得到＆＃34;下标超出范围＆＃34;在我的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索引之前，您必须使用T为ReDim提供一个大小。例如：

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

VBA _Error 9下标超出范围

1 个答案: