Разделение данных

[Ubicum]

Уважаемые гуру подскажите реализацию данной схемы.
В ячейке "G1" данные разделённые знаком, возможно ли продублировать на лист 2 так чтобы на каждое значения в ячейке "G" копировалась строка

[Ubicum]

Может я как то непонятно изъяснился?)) Подкорректировал фаил

[IgorGO]

с первого раза все было понятно, а вот во втором файле вторая часть вопроса (синхронизировать данные в новом представлении еще с каким-то листом) - абсолютно не очевидно, как данные лежат на втором листе, что сравнивать, что взять - не понятно

по первому вопросу возможно:
пока нет людей, которые могут ответить
у тех кто есть - нет настроения или времени

понимаю Ваше нетерпение, но вопрос всего несколько часов лежит на форуме и на вторую часть вопроса ответ можно получить только когда на форум заглянет опытный экстрасенс. хотя... в соседней теме я догадался почему листы не удяляются))

[Ubicum]

СПАСИБО ЗА ПОНИМАНИЕ))))) Ладно уж посижу ночь подумаю)) а во второй части сравнить фамилии из 2 (файлов или слить в один тогда из 2 листов) и при совпадении подставить данные которые соответствуют фамилии из второго листа(или файла).

[IgorGO]

Sub SplitG()
  Dim r As Long, n As Long: r = 1
  Do
    n = Len(Cells(r, 7).Value) - Len(Replace(Cells(r, 7), ";", ""))
    If n > 0 Then
      Rows(r).Copy:  Rows(r + 1).Resize(n).Insert
      Cells(r, 7).Resize(n + 1, 1).Value = WorksheetFunction.Transpose(Split(Cells(r, 7), ";"))
    End If
    r = r + n + 1
  Loop Until IsEmpty(Cells(r, 1))
End Sub

[Ubicum]

Спасибо Игорь помогло, первый вопрос закрыл))