Подскажите, возможно макросом видоизменить таблицу (пример во вложении)? Кратко: Текст ячейки в столбце "В" делится по строкам. Текст внутри ячейки разделяется пробелами. При делении ячейки, строки снизу вставляются автоматически.
Спасибо.
Добрый день
Подскажите, возможно макросом видоизменить таблицу (пример во вложении)? Кратко: Текст ячейки в столбце "В" делится по строкам. Текст внутри ячейки разделяется пробелами. При делении ячейки, строки снизу вставляются автоматически.
For Each c In [b2:b4] a = Split(c) For Each el In a i = i + 1 Cells(i, 7).Resize(, 4) = Array(c.Offset(, -1), el, c.Offset(, 1), c.Offset(, 2)) Next Next End Sub
[/vba]
[vba]
Код
Sub tt() Dim c As Range, a Dim el, i&: i = 1
For Each c In [b2:b4] a = Split(c) For Each el In a i = i + 1 Cells(i, 7).Resize(, 4) = Array(c.Offset(, -1), el, c.Offset(, 1), c.Offset(, 2)) Next Next End Sub