Question

我有一个可以有6或7个值的数组，下面的代码显示了我可以有6个或7个值：

Dim AB(1 To 7)

AB(1) = "1-P"
AB(2) = "1-L"
AB(3) = "1-E"
AB(4) = "1-I"
AB(5) = "1-O"
AB(6) = "1-T"
If TeachingTool.teacherInPlYes = True Then
    AB(7) = "1-R"
End If

一旦填充了数组，我在当前工作表中搜索数组中的calues并填充一个列表框，其中包含单元格位置，但是因为数组中有一个空格，它会因为某些原因将我带回很多不需要的数据我无法弄清楚原因。我尝试过使用Dim AB(1 To 6 or 7)但是没有用。所以关于这个问题的一些信息会有所帮助，谢谢

Answer 1

使用ReDim。这样您就可以相应地对数组进行维度。例如：

If TeachingTool.teacherInPlYes = True Then
    ReDim AB(1 To 7)
    AB(7) = "1-R"
Else
    ReDim AB(1 to 6)
End If
AB(1) = "1-P"
AB(2) = "1-L"
AB(3) = "1-E"
AB(4) = "1-I"
AB(5) = "1-O"
AB(6) = "1-T"

数组中的空白条目问题

1 个答案: