Question

我有以下一组代码：

select description from mytable where description LIKE "%youth%club%"

为了保持这个问题的简洁和重点，我有一堆包含数百行数据的excel工作表。总而言之，上面的代码将工作表中的项添加到集合中，但是它添加了每一行（减去我设置的条件 - if语句）。但是，我只想在集合中添加一定数量的项目，15。我似乎无法弄明白并且没有在网上找到任何帮助。

我的帮助问题是，有没有人知道我怎么能做到这一点，一旦15个项目被添加到集合中它将退出循环并完成子程序的其余部分？

我故意没有添加整个代码，因为它非常冗长而且没有必要。

谢谢。

Answer 1

当然，只需检查collection.Count＆gt; 14然后退出

For loopCounter = 2 To endRow
Dim item As Variant
Dim lineArray()
Dim myString As String

myString = Cells(loopCounter, 3).Value

ReDim lineArray(1 To endColumn)

If Not (Left(myString, 1) = "P" Or Left(myString, 1) = "I" Or myString = "RESW" Or myString = "REPC") Then
     For x = 1 To endColumn
          lineArray(x) = dataArray(loopCounter, x)
     Next x

     itemCollection.Add lineArray
     if itemCollection.Count = 15 then exit for
End If
Next loopCounter

如果它是一个数组，那么如果UBOUND（array）= 14则使用，然后退出

excel vba将一组项目添加到集合中

1 个答案: