Считать быстро не будет =TRIM(LEFT(SUBSTITUTE(MID(A1;FIND("name""";A1)+7;99);"""";REPT(" ";"99");1);99))&";"& TRIM(LEFT(SUBSTITUTE(MID(A1;FIND("number""";A1)+9;99);"""";REPT(" ";"99");1);99))&";"& TRIM(LEFT(SUBSTITUTE(MID(A1;FIND("ref""";A1)+6;99);"""";REPT(" ";"99");1);99))&";"& TRIM(LEFT(SUBSTITUTE(MID(A1;FIND("original_item_id""";A1)+19;99);"""";REPT(" ";"99");1);99))
Только вот вас интересует наверно не сколько их, а как из ячейки извлечь определенные данные, Название теме предложите новое.
чтобы не гадать на кофейной гуще, кто вам отвечает и после этого не совершать кучу ошибок - обратитесь к собеседнику на ВЫ - ответ на ваш вопрос получите - а остальное вас не касается (п.п.п. на форумах)
Sub JSON800()
Dim arr(), arrJson(), I&, J&, N&
arr = Worksheets("Лист1").ListObjects("Таблица1").DataBodyRange.Value
ReDim arrJson(1 To UBound(arr), 1 To 4)
For I = 1 To UBound(arr)
iJson = Split(arr(I, 1), ",")
For J = 0 To UBound(iJson)
Select Case True
Case iJson(J) Like "*ref*"
N = 1
Case iJson(J) Like "*original_item_id*"
N = 2
Case iJson(J) Like "*number*"
N = 3
Case iJson(J) Like "*name*"
N = 4
Case Else
N = Empty
End Select
If N <> 0 Then arrJson(I, N) = Replace(Split(iJson(J), ":")(1), """", "")
Next
Next
Worksheets("Лист2").Range("F2").Resize(UBound(arrJson), 4) = arrJson
End Sub