Sub SplitCells ()
Тусклое LastR как длиной
Тусклое DestR как длиной
Тусклое arr как вариант
Тусклый счетчик как длиной
Тусклое Counter2 как длиной
LastR = клетки (Rows.Count, 1).End (xlUp). Рядок
Для счетчика = 1 к LastR
Если клетки, то (встречные, 1) <> "" после этого
arr = разделило (клетки (встречные, 1), Chr (10))
Для Counter2 = 0 к UBound (arr)
DestR = DestR + 1
Клетки (DestR, 2) = arr (Counter2)
Затем
Закончитесь если
Затем
«Сделанное» MsgBox
Подводная лодка конца
|