Как объединить ячейки в Excel 2007 без потери данных

Очень часто при создании отчетов, прайсов или любых других документов в Excel, нам требуется объединить ячейки в одну или несколько больших из кучи маленьких (обычных). Потребоваться это может в самых разных случаях, но наиболее распространенный – это чтобы текст полностью помещался в ячейках и можно было задавать его положение – верх, низ, и т.д.

И так, чтобы приступить к объединению, выделим все нужные нам ячейки в файле Excel. Затем, кликнем правой кнопкой мыши по выделению и в появившемся меню выберем пункт “Формат ячеек”.

В открывшемся меню ставим галочку в квадратик напротив “Объединить ячейки” (как показано на рисунке ниже) и нажимаем Ок.

Excel объединил нам ячейки, но данные были утеряны.

Вот как в итоге получилось на нашем примере:

При таком стандартном объединении всегда остается только то значение, которое находилось в самой верхней и левой ячейки. Так что, не удивляйтесь, что все пропало и откатите в исходное положение, нажав ctrl+z.

Можно ли избежать потери данных или значений при объединении?

На этот вопрос можно ответить положительно. Во-первых, можно изначально объединить ячейки в Excel, а уже потом заносить в файл данные и значения, располагая их так, как будет душе угодно. Но, не всегда можно сразу просчитать будущую структуру документа, поэтому люди и сталкиваются с подобными трудностями.

Для предотвращения потери данных и правильного объединения ячеек в Excel 2007 вам нужно будет выполнить макрос со следующим кодом:

Sub Макрос()
   Dim c As Range
   Dim s As String

   For Each c In Selection
      If s = "" Then
         s = c
      Else
         s = s & " " & c
         c.ClearContents
      End If
   Next c
   With Selection
      .Range("A1") = s
      .HorizontalAlignment = xlCenter
      .Merge
   End With
End Sub

Он поможет вам сохранить все данные и значения, которые были в ячейках и перенесет их в одну новую. Таким образом, вы сэкономите кучу времени.

12 комментариев

  1. Алла пишет:

    уххх, вы меня реально спасли:)

  2. alex пишет:

    не работает. invalide outside procedure

  3. Arsella пишет:

    Реально помогло! :)

  4. Андрей пишет:

    Отлично работает. спасибо

  5. Awert пишет:

    Огромное спасибо. Пересобрал 10 000 строк в нужное количество ячеек!

  6. Vitaliy пишет:

    Спасибо огромное!!!

  7. Serg пишет:

    Ребят – а подскажите, пожалуйста, более подробно, как создать этот макрос в Екселе и как его запустить – как им пользоваться… Очень нужно…

  8. Полина пишет:

    Добрый день. Показанный вами способ хороший, но можно обойтись и без макросов. По себе знаю, что для многих людей макросы – это сложно. Можно воспользоваться готовой надстройкой XLTools Объединение данных ячеек. вы просто выделяете нужные ячейки и нажимаете на кнопку “Объединение данных ячеек” на вкладке “XLTools”. И вкладка, и кнопка появятся в Excel, если скачать надстройку.

    Данные объединятся в одну ячейку, ничего не потеряется. Больше ничего писать или делать не нужно. К слову, надстройка бесплатная, можно просто скачать и установить. Ссылка на надстройку xltools.net/ru/combine-cells-data-in-excel-2/. Буду рада, если кому-то пригодится

  9. yao пишет:

    Спасибо большое)))

  10. Ольга пишет:

    мне этот макрос например ни о чем не говорит(((( а пошагово можно?

  11. User пишет:

    A1&”тут может быть что нужно”&B1
    и весь огород, а то макросы. надстройки

  12. Виктор Немчунов пишет:

    Простой вариант объединения ячеек

    Копируем например 2 колонки которые нужно объединить в текстовый файл.
    Потом выделяем разделитель между значениями, копируем.
    Открываем заменить вставляем этот разделитель и заменить на пробел.

    Все.
    Выделяем наново весь текст.
    Потом копируем в нужную ячейку, а ненужную удаляем.

Leave a Reply