将内容分成不同的string（VBA）

我有一个集合，有像这样的string：

130each 09/01/2017 09/01/2017 12each 09/01/2017 09/01/2017 1each 09/01/2017 09/01/2017 

我用下面的代码通过我的Excel表获得这些值：

 Dim col as New Collection For i = 1 To lastRow If InStr(ws1.Cells(i, 1), "each") col.Add ws1.Cells(i, 1) End If Next i 

现在我想分开第一个空格后的string，并将每个部分存储在两个单独的集合中。 示例第二个收集和第三个收集应包含以下内容：

 130each [at index 0 of col2] 09/01/2017 09/01/2017 [at index 0 of col3] 12each [at index 1 of col2] 10/11/2017 10/11/2017 [at index 1 of col3] ...so on 

任何关于如何处理这个问题的想法我知道我将循环收集，但是在第一个空间之后，我将如何分成两个独立的collections？

Answer 1

像这样的东西：

 Dim col2 As New Collection Dim col3 As New Collection Dim x As Variant For Each x In col Dim parts As Variant parts = Split(x, " ", 2) col2.Add parts(0) col3.Add parts(1) Next