Sub Макрос1() ' Макрос записан 09.11.2011 (Сергей) 99% макрорекордера! With [E:E] .MergeCells = False .SpecialCells(4).Delete Shift:=xlToLeft .Offset(, 1).SpecialCells(4).Delete Shift:=xlToLeft End With End Sub
Code
Sub Макрос1() ' Макрос записан 09.11.2011 (Сергей) 99% макрорекордера! With [E:E] .MergeCells = False .SpecialCells(4).Delete Shift:=xlToLeft .Offset(, 1).SpecialCells(4).Delete Shift:=xlToLeft End With End Sub
Можно, конечно, вставить столбец (сейчас это Е) и потом объединять ячейки столбцов E и F всех строк кроме второй.
Если без макросов и быстро, то почти правильно. Вставляй столбец рядом, выделяй ВСЕ ячейки, которые нужно объединить (на примере E1:F1; E3:F23), далее лезь сюда: Главная, Выравнивание, рядом с "Объединить и поместить в центре" есть стрелочка, жми на нее и выбирай "Объединить по строкам". Можно кнопку вывести на панель быстрого доступа.
Quote
Можно, конечно, вставить столбец (сейчас это Е) и потом объединять ячейки столбцов E и F всех строк кроме второй.
Если без макросов и быстро, то почти правильно. Вставляй столбец рядом, выделяй ВСЕ ячейки, которые нужно объединить (на примере E1:F1; E3:F23), далее лезь сюда: Главная, Выравнивание, рядом с "Объединить и поместить в центре" есть стрелочка, жми на нее и выбирай "Объединить по строкам". Можно кнопку вывести на панель быстрого доступа._Boroda_