Разбивка ячеек на строки

[EvgeniyaR]

Добрый день.
Задача - разбить значения ячейки, разделённые Alt+Enter, на соответствующее количество строк.
Знач1;
Знач2;
Знач3;


Код следующий:
Sub Splitcell()
Dim arrS() As String
Dim intI As Integer
arrS = Split(ActiveCell.Value, Chr(10))
For intI = LBound(arrS) To UBound(arrS)
ActiveCell.Offset(intI, 0).Value = arrS(intI)
Next intI
End Sub

Работает, но в случае, если под ячейкой есть строка с данными, соответственно, данные в ней заменяются. Таким образом, необходимо, чтобы в случае наличия под разбиваемой ячейкой строки с данными добавлялось нужное количество строк.
Подскажите, как код дополнить.
Спасибо.

[EducatedFool]

Вы бы прикрепили пример файла - мы бы сделали макрос
(а то тестировать макрос не на чем)

Сколько примерно строк в обрабатываемом файле?

[EvgeniyaR]

Сообщение от EducatedFool

Вы бы прикрепили пример файла - мы бы сделали макрос
(а то тестировать макрос не на чем)

Сколько примерно строк в обрабатываемом файле?

Прикрепила файл.
Интересует столбец D, с остальными, думаю, разберусь при наличии примера.

[Казанский]

Пробуйте. Но это только для D

Sub SplitcellD()
Dim arrS() As String
Dim i&
For i = Cells(Rows.Count, "D").End(xlUp).Row To 1 Step -1
    arrS = Split(Cells(i, "D").Value, ";" & vbLf)
    If UBound(arrS) > 0 Then
        Range(Rows(i + 1), Rows(i + UBound(arrS))).Insert
        Cells(i, "D").Resize(UBound(arrS) + 1).Value = Application.Transpose(arrS)
    End If
Next i
End Sub

[EducatedFool]

Что-то мне подсказывает, что не только столбец D надо разделять...

Например, для этой строки, сколько строк должно получится?