Не удаётся объединить ячейки по строкам

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Не удаётся объединить ячейки по строкам (Формулы/Formulas)

Andy_NTG

Дата: Четверг, 30.07.2015, 11:55 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Есть файл. В нём есть табличное форматирование, которое я убираю (через "Преобразовать в диапазон"). Но даже после того, как это сделано, не получается объединить ячейки по строкам так, чтобы у встали в один ряд с заменой пустых (всегда пустых) левых ячеек.

Во вложениее исходный файл и файл, который нужно получить (все записи в одну строку)

К сообщению приложен файл: text.xlsx (3.5 Kb) · text-result.xlsx (8.1 Kb)

Ответить

SLAVICK

Дата: Четверг, 30.07.2015, 12:59 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

Два варианта:,
Вариант 1
Выделить столбец В
На вкладке Данные "Текст по столбцам" - - отметка с разделителями -- готово
Ctrl + c
Выделить столбец a
Ctrl + Alt + v
Поставить отметку пропускать пустые
Готово

Вариант 2
Выделить столбец А
На вкладке Данные "Текст по столбцам" - - отметка с разделителями -- готово
Ctrl + g
Alt + вй
Enter
Ctrl -
галка со сдвигом влево
Готово

Иногда все проще чем кажется с первого взгляда.

Сообщение отредактировал SLAVICK - Четверг, 30.07.2015, 12:59

Ответить

miver

Дата: Четверг, 30.07.2015, 13:00 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 190

Репутация: 37 ±

Замечаний: 0% ±

Excel 2010

Andy_NTG, Странно.
Я скачал Ваш text.xlsx.
После открытия клацнул в первое из заполненых ячеек и выбрал "Преобразовать в диапазон"
Таблица удалилась
А дальше простая формула

Код

=СЦЕПИТЬ(A1;B1)

И все получилось ^_^

К сообщению приложен файл: 7653717.xlsx (8.4 Kb)

Ответить

Andy_NTG

Дата: Четверг, 30.07.2015, 15:06 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Это всё очень хорошо, но у меня есть готовый макрос, в котором сделано объединение по строкам. Конечно, можно попробовать переделать под формулу, но вопрос открыт: почему не срабатывает объединение по строкам? Хотя если то же самое набрать вручную, всё работает

Ответить

miver

Дата: Четверг, 30.07.2015, 21:34 | Сообщение № 5

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 190

Репутация: 37 ±

Замечаний: 0% ±

Excel 2010

Andy_NTG, Ну и как нам посоветовать что-то дельное, не видя перед собой ни строчки, что Вы написали в макросе ?

Ответить

Andy_NTG

Дата: Пятница, 31.07.2015, 09:03 | Сообщение № 6

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Суть не в макросе, потому что он делает те операции, которые не работают в самом файле. А вот файл я выложил, и посмотреть, что там не работает объединение по строкам, можно. Вот макрос, но он не нужен в данном случае

[vba]

Код

Sub Macros1()

       sheetRows = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
       sheetCols = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Column

       boldCols = 1

       If sheetCols > 1 Then
           boldCols = sheetCols - 1
       End If

       ActiveSheet.Range(Cells(1, 1), Cells(sheetRows, boldCols)).Select

       Selection.Font.Bold = True

       ActiveSheet.Range(Cells(1, 1), Cells(sheetRows, sheetCols)).Select
       Selection.Merge True
       Selection.UnMerge

End Sub

[/vba]

Сообщение отредактировал Andy_NTG - Пятница, 31.07.2015, 09:04

Ответить

Не удаётся объединить ячейки по строкам (Формулы/Formulas)

Страница 1 из 1
1