Excel & VBA - Разбиение текста в ячейке на несколько ячеек с частями этого текста.

Формулировка задачи:

Есть столбец, в котором в одной ячейке находится текст:
А
B
C
Текст в ячейке разделен "Ентером".
Как можно разделить одну ячейку, содержащую этот текст на три с текстом в каждой "А", "В", "С" ?

Решение задачи: «Excel & VBA - Разбиение текста в ячейке на несколько ячеек с частями этого текста.»

textual
                            Листинг программы 
                        

                            <font color="blue">Dim</font> strABC() <font color="blue">As</font> <font color="blue">String</font>
    strABC = Split(Range(<font color="teal">"A2"</font>), vbLf)
    Range(<font color="teal">"B2"</font>) = strABC(<font color="darkblue"><b>0</b></font>)
    Range(<font color="teal">"B3"</font>) = strABC(<font color="darkblue"><b>1</b></font>)
    Range(<font color="teal">"B4"</font>) = strABC(<font color="darkblue"><b>2</b></font>)
                        