用一个字符串中的数据填充行

Question

嗨，我想用我的字符串数据填充“事件”行数。它是一个定界字符串，值介于：和@之间。下一行数据通过查找与变量“ firstkey”匹配的下一个子字符串开始，我无法确定在代码中放置firstkey的最佳位置。目前，我的代码只是重复在firstkey之后第一个“事件”之后的第一组数据。

y = 2
k = 1
openPos = openPosValue
closePos = InStr(openPos, keys, "@")
jsonValues.Add Mid(keys, openPos + 1, closePos - openPos - 1)
k = k + 1

For fillrows = 1 To Livefixtures

Do Until k = jsonFields.Count - 1
openPos = InStr(closePos + 2, keys, ":") + 1
closePos = InStr(openPos, keys, "@")
If Mid(keys, openPos, closePos - openPos) = "" Then Exit Do
jsonValues.Add Mid(keys, openPos, closePos - openPos)
k = k + 1
Loop
currentcolumn = 1
For Each Item In jsonValues
       ActiveWorkbook.Worksheets("jsonoutput").Cells(y, currentcolumn).Value = Item
       currentcolumn = currentcolumn + 1
       If k = jsonFields.Count Then Set jsonValues = New Collection
Next Item
y = y + 1
fillrows = fillrows + 1
openPos = InStr(closePos, keys, firstkey)
Next fillrows