Макросы. Создание таблицы из данных одной ячейки по двум критериям.

Таблица из данных одной ячейки по двум критериям.

Данные у нас представлены в столбце "А" начиная с второй строки, реализуем макрос посредством которого преобразуем эти данные в более удобный для работы вид.

Sub Preobr()
dip = Cells(Rows.Count, 1).End(xlUp).Row: Str% = 2
For Each x In Range(Cells(2, 1), Cells(dip, 1))
  If Not IsEmpty(x) Then
    mas = Split(x.Value, ";")
    j = 4
    For i = 0 To UBound(mas)
    Cells(Str, j) = Split(mas(i), ":")(0) 
    Cells(Str, j + 1) = LTrim(Split(mas(i), ":")(1)) 
    j = j + 2
    Next i
  Str = Str + 1
  End If
Next x
End Sub

Получаем те же данные, но уже в виде таблицы. Разделение мы проводили по двум критериям ":" и ";".