Как объединить информацию в ячейках excel. Объединение ячеек в программе Excel

Довольно часто при работе с таблицами в программе Microsoft Excel случается ситуация, когда требуется объединить несколько ячеек. Задача не слишком сложная, если эти ячейки не содержат информации. Но, что делать, если в них уже внесены данные? Неужели они будут уничтожены? Давайте разберемся, как объединить ячейки, в том числе и без потери данных, в программе Microsoft Excel.

Хотя, мы будем показывать объединение ячеек на примере программы Excel 2010, но данный метод подойдет и для других версий данного приложения.

Для того, чтобы объединить несколько ячеек, из которых только одна заполнена данными, или вообще абсолютно пустых, выделяем курсором нужные ячейки. Затем, во вкладке Excel «Главная», кликаем по значку на ленте «Объединить и поместить в центре».

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

Если вы хотите, чтобы данные размещались, согласно форматированию ячейки, то нужно из выпадающего списка выбрать пункт «Объединить ячейки».

В этом случае, запись по умолчанию будет начинаться от правого края объединенной ячейки.

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

Как видим, после этого ячейки объединились не в одну общую ячейку, а приняли построчное объединение.

Объединение через контекстное меню

Существует возможность объединить ячейки через контекстное меню. Для этого, выделяем курсором ячейки, которые следует объединить, кликаем по ним правой кнопкой мыши, и в появившемся контекстном меню выбираем пункт «Формат ячеек».

В открывшемся окне формата ячеек, переходим во вкладку «Выравнивание». Отмечаем флажком пункт «Объединение ячеек». Тут же можно установить и другие параметры: направление и ориентация текста, выравнивание по горизонтали и вертикали, автоподбор ширины, перенос по словам. Когда все настройки выполнены, жмем на кнопку «OK».

Как видим, произошло объединение ячеек.

Объединение без потерь

Но, что делать, если в нескольких из объединяемых ячеек присутствуют данные, ведь при объединении все значения, кроме левого верхнего будут утрачены?

Существует выход и в этой ситуации. Мы будем использовать функцию «СЦЕПИТЬ». Прежде всего, нужно добавить между ячейками, которые собираемся соединить, ещё одну ячейку. Для этого, кликаем правой кнопкой мыши на крайнюю правую из объединяемых ячеек. В появившемся контекстном меню выбираем пункт «Вставить…».

Открывается окошко, в котором нужно переставить переключатель в положение «Добавить столбец». Делаем это, и кликаем по кнопке «OK».

В ячейке, образовавшейся между теми ячейками, которые мы собираемся объединить, ставим значение без кавычек «=СЦЕПИТЬ(X;Y)», где X и Y – это координаты соединяемых ячеек, после добавление столбца. Например, чтобы объединить таким способом ячейки A2 и C2, в ячейку B2 вставляем выражение «=СЦЕПИТЬ(A2;C2)».

Как видим, после этого, символы в общей ячейке «склеились».

Но, теперь вместо одной объединённой ячейки мы имеем три: две ячейки с первоначальными данными, и одну объединенную. Чтобы сделать одну ячейку, кликаем по объединенной ячейке правой кнопкой мыши, и в контекстном меню выбираем пункт «Копировать».

Затем, перемещаемся в правую ячейку с первоначальными данными, и, кликнув по ней, выбираем в параметрах вставки пункт «Значения».

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

Теперь, удаляем крайний левый столбец, содержащий ячейку с первичными данными, и столбец, содержащий ячейку с формулой сцепления.

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

Как видим, если обычное объединение ячеек в программе Microsoft Excel довольно простое, то с объединением ячеек без потерь придется повозиться. Тем не менее, это тоже выполнимая задача для данной программы.

Иногда, работая в Microsoft Excel, возникает надобность в объединении ячеек. Как же это сделать? Рассмотрим этот процесс на примере Excel 2007.

Объединить можно неограниченное количество ячеек всего лишь одной кнопкой. Это позволяет из нескольких маленьких создать одну большую ячейку. Итак, как же это сделать?

Допустим, нужно создать сложную таблицу с объемной шапкой.

Ячейки строки «Направление специальностей », что является самой первой на изображении, нужно объединить в одну. Для этого выделяем ячейки, которые необходимо объединить (в данном случае это с В2 по D2) и находим на панели инструментов вот эту кнопку:

Стрелочка рядом с кнопкой означает, что у нее есть несколько функций.

Из них нам необходимо выбрать пункт «Объединить ячейки ». Вот результат:

После объединения выделенная область будет выделяться как одна длинная ячейка.

С помощью этой же кнопки можно и удалить объединенные ранее ячейки с помощью соответствующего пункта «Удалить объединение ячеек ». Аналогичная опция простого объединения - «Объединить и поместить по центру ». В этом случае текст, который располагается в объединенной ячейки будет располагаться по центру, а не слева (то же самое, что к ячейке было вручную применено Выравнивание текста по центру ). Еще одна возможность, «Объединение по строкам », предупреждает пользователя о том что при объединении удалятся все данные, кроме того, что находится слева.

Выглядит это примерно так:

Поэтому, если нужно объединить таким образом строку, то делать это лучше перед вводом текста.

Объединить ячейки можно и другим способом. Сначала нужно выделить область, затем нажать по ней правой клавишей мыши и выбрать пункт меню Формат ячеек .

Затем нужно перейти во вкладку Выравнивание , поставить галочку рядом с пунктом «объединение ячеек » и нажать Ок .

Такой вариант подойдет тем пользователям, кто работает с текстом через Формат ячеек и ему нужно произвести объединение, так сказать, заодно. Результат будет абсолютно тем же, что и в первом способе.

Инструкция

Чтобы объединить ячейки в Excel без потери содержащихся в них данных, используйте оператор амперсанд – символ &, обозначающий языке союз «и». Установите курсор в ту ячейку, в которой будут объединены данные, в строке формул поставьте знак равенства и открывающую скобку.

Выделите первую ячейку с помощью левой кнопки мыши и заключите между амперсандами знак пробела в кавычках - &" "&, выделите следующую ячейку и вновь введите &" "&. Продолжайте до тех пор, пока не отметите таким способом все ячейки , которые необходимо объединить. Чтобы закончить ввод формулы, поставьте знак закрывающей скобки и нажмите клавишу Enter. Формула будет выглядеть примерно следующим образом: =(A1&" "&B1&" "&C1).

Если вам необходимо разделить объединенные данные знаками препинания, ставьте их после первого амперсанда и знака кавычек, после ввода знака препинания не забудьте добавить пробел. Пример формулы для объединенных данных с использованием знаков препинания: =(A1&"; "&B1&"; "&C1).

Также вы можете воспользоваться функцией «Сцепить». Для этого установите курсор в ячейку, нажмите в строке формул значок fx. Откроется новое диалоговое окно «Мастер функций». Выберите из списка функцию СЦЕПИТЬ или найдите ее с помощью поля для поиска. В окне «Аргументы функции» установите курсор в поле «Текст1» и выделите левой кнопкой мыши первую ячейку объединяемого диапазона. Переместите курсор в поле «Текст2» и выделите в документе следующую ячейку. Нажмите на кнопку ОК.

При использовании данного способа не выделяйте сразу весь диапазон объединяемых ячеек, это приведет к тому, что данные будут утеряны. Формула не должна выглядеть как =СЦЕПИТЬ(A1:B1). Разделяйте адреса ячеек знаком «;» - точка с запятой, тогда все значения сохранятся. Пример формулы: =СЦЕПИТЬ(A1; B1; C1).

Связанная статья

Источники:

• Как объединить ячейки в Excel 2007/2010/2013/2016?

Объединение ячеек – одна из применяемых функций при создании таблицы. Она означает создание одной ячейки из двух и более выделенных ячеек . Эта функция применяется как в приложении Word, так и в Exсel.

Инструкция

Вы создали в документе Microsoft Word, и при вводе данных вам понадобилось объединить две или более в одну. При создании таблицы в верхнем меню появляются вкладки «Конструктор» и «Макет». Зажав левую кнопку мыши, выделите нужные ячейки. Перейдите на вкладку «Макет», далее на третью группу слева «Объединить».

Если нужно отменить объединение ячеек , нажмите на кнопку «Отменить ввод» в верхнем левом углу, либо сочетание клавиш Ctrl + Z.

В листе Microsoft Exсel объединение ячеек происходит иначе. Если данные содержатся в нескольких объединяемых ячейках, сохранятся только данные в левой верхней или правой верхней (в зависимости от направления просмотра в данный момент), при этом остальные данные удалятся.

Выделите ячейки, которые необходимо объединить. Нажмите правой клавишей мыши на выделенном секторе. Выберите пункт «Формат ячеек ». Перейдите на вкладку «Выравнивание». В поле «Отображение» поставьте галочку на пункт «Объединение ячеек ».

При этом Exсel выдаст предупреждение: «Выделенная область содержит несколько значений данных. Объединение ячеек приведет к потере всех значений, кроме левого верхнего».

Вы можете редактировать объединение. На вкладке «Выравнивание» нажмите на стрелку рядом с кнопкой в виде буквы «а». Кроме объединения, ячейки здесь предлагается «Объединить и поместить в центре», «Объединить по строкам». Нижняя кнопка «Отменить объединение ячеек » отменит объединение, но не вернет данные, которые были в отдельных ячейках.

Чтобы отменить объединение с возвратом данных, нажмите кнопку «Отменить ввод», или сочетание клавиш Ctrl + Z.

Рано или поздно, пользователю персонального компьютера приходится сталкиваться с таким программным обеспечением, как Excel. Это разработанные электронные таблицы, которые позволяют создавать различные базы данных.

Инструкция

Чтобы научиться работе с данной программой, нужно, прежде всего, определиться с задачами, которые должны выполняться для вас. Как правило, подобное программное обеспечение имеет гибкие встроенные функции, которые позволяют форматировать и классифицировать всю информацию по разным направлениям. В интернете существует множество различных курсов, которые позволяют в режиме реального времени видеть, как строятся таблицы, интегрируется информация, сортируются данные и многое другое.

Как правило, первое учение начинается с ознакомлением. Вы должны четко знать, где находится каждая графа. На данный момент времени существует несколько версий данного программного обеспечения, а именно: Excel 2003, 2007 и 2010. Наверное, многие привыкли к версии 2003. Несмотря на то, что сейчас уже обновления создаются только для 2007 и 2010, программное обеспечение Excel 2003 не перестает пользоваться популярностью.

Откройте программу на своем компьютере. Зайдите во вкладку «Справка», и почитайте те пункты, которые вас интересуют. По сути, программное обеспечение по функциям похоже на Word. Имеются такие же команды форматирования, пункты меню во многом схожи, интерфейс также понятен. Чтобы добавить новую таблицу, нажмите «Файл» - «Создать». Далее введите название документа, в котором будете работать.

Далее заносите информацию в клетки таблицы. Вы можете растягивать каждый блок, как по ширине, так и в длину. Чтобы добавить еще ячейки, нажмите правой клавишей мыши по таблице, и выберите пункт «Добавить ячейки». Во вкладке «Сервис» вы можете найти дополнительные операции, которые предоставляет данное программное обеспечение. Начните с простого копирования информации в таблицу, а далее пытайтесь по-разному ее отображать в таблице, сортировать, пытаться представить в более удобном виде.

Видео по теме

Табличный редактор Microsoft Office Excel предназначен для работы с относительно небольшими массивами данных, которые не обязательно должны содержать только численные значения. В ячейки электронных таблиц могут быть помещены слова, фразы и даже фрагменты текстов. Для обработки данных этого рода, как и для числовых ячеек, тоже используются формулы. В частности в табличном редакторе есть функции для объединения (суммирования) нескольких текстовых ячеек.

Вам понадобится

• Табличный редактор Microsoft Office Excel.

Инструкция

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

Перейдите на вкладку «Вставка» в меню программы и раскройте выпадающий список с надписью «Текстовые» - он помещен в группу команд «Библиотека функций». Список содержит больше десятков операций для работы с текстов ыми переменными, отсортированный в алфавитном порядке - прокрутите его до строк, начинающихся с буквы «С» и выберите функцию «СЦЕПИТЬ». В результате запустится диалоговое окно мастера созданию функций, в котором вам надо будет заполнить несколько полей формы.

Укажите адрес ячейки, содержащей текст, которым должна начинаться строка в создаваемой клетке таблицы. Его надо либо ввести вручную в поле «Текст1», либо щелкнуть курсором мыши нужную ячейку таблицы. Затем повторите это же действие для поля «Текст2» - сюда надо поместить адрес ячейки с текстом, который следует добавить к предыдущему. Когда вы перейдете к заполнению второго поля, Excel на всякий случай добавит третье - вы можете им воспользоваться, если требуется сконструировать значение из трех и более исходных ячеек . Новая строка будет добавляться постоянно по мере заполнения предыдущих.

Обратите внимание на то, что функция будет сцеплять текстов ые значения в их исходном виде, ничего не добавляя в качестве разделителя. Если требуется вставлять между ними пробел, запятую или какое-либо слово, то используйте для этого строку в форме мастера создания формулы - введите в него нужные знаки, взяв их в кавычки. Например, если в поле «Текст1» вы укажете ссылку на первую ячейку, в поле «Текст2» введете «, », а в «Текст3» - ссылку на вторую ячейку, то между надписями будет помещена и пробел.

Нажмите кнопку OK и в ячейке появится значение, содержащее объединенный текст указанных вами ячеек .

Мастер конструирования функций можно вызвать и не переходя на вкладку «Формулы». Для этого достаточно кликнуть пиктограмму вставки формулы, помещенную над таблицей левее строки формул. Затем выберите строку «Текстовые» в выпадающем списке «Категория» и в поле «Выберите функцию» отыщите « ». Нажатием кнопки OK вы откроете окно с формой, описанной выше.

Видео по теме

Защита ячеек в табличном редакторе Microsoft Office Excel не используется для соблюдения конспирации - для этих целей здесь предназначена защита файла с данными. Блокировка доступа к ячейкам нужна, скорее, для предотвращения случайных изменений формул или данных в электронных таблицах. Сама процедура включения защиты несложна, но требует понимания принципа работы.

Вам понадобится

• Табличный редактор Microsoft Office Excel 2007 или 2010.

Инструкция

Защита организована таким образом, что устанавливается на лист документа в целом и распространяется на все его содержимое. Поэтому перед тем, как приступить непосредственно к настройке блокировки доступа, вам следует задать исключения из общего запрета. Конечно, это следует делать только в том случае, если необходимо оставить свободным доступ к каким-то ячейкам таблицы. Начните процедуру с выделения всего листа - нажмите сочетание клавиш Ctrl + A.

Кликните выделение правой кнопкой мыши и выберите во всплывшем контекстном меню строку «Формат ячеек». На экране появится окно, в котором вам нужна вкладка «Защита» - поставьте отметку в размещенном на ней чекбоксе «Защищаемая ячейка». Если вы хотите, чтобы блокированные не только нельзя было редактировать, но и просматривать содержащиеся в них формулы, выставьте отметку и в поле «Скрыть формулы». Нажмите кнопку OK, и лист будет готов к включению защиты.

Объединение двух или более ячеек в Экселе поможет сделать документ более привлекательным и понятным. Это несложное форматирование, и научиться ему может каждый.

Соединить ячейки можно двумя способами: склеивание ячеек в одну или соединение информации, вписанной в эти ячейки, но при этом возникнет эффект потери данных. Давайте попробуем разобраться, как объединить ячейки в Экселе.

Как объединить две ячейки

Выполните следующие шаги:

• Выделите ячейки, щелкните по ним правой клавишей мыши;
• Выберите пункт «Формат ячеек…», появится новое окно;
• Перейдите в меню «Выравнивание», далее – «Отображение»;
• Установите птичку возле строчки «Объединение ячеек» и нажмите «Enter».

Теперь две ячейки объединятся в одну. Правда, здесь есть один момент. Если вы объединяли ячейки по горизонтали, то останется только та информация, которая была в левой; если объединяли по вертикали – то останется информация, которая была в верхней ячейке. Все, что было написано во второй ячейке, просто удалится.

Соединение данных из разных ячеек

Но в экселе 2010 и других версиях программы можно объединять ячейки таким образом, чтобы все написанное сохранялось. Допустим, у вас три столбика: в первом указано имя, во втором – фамилия, в третьем – отчество. Требуется объединить их в одной ячейке (например, сделать Иван Петров Иванович). Если ФИО не одно, а много, то переписывать все заново – слишком долго. Есть два варианта объединения ячеек, с помощью которых сделать это намного быстрее.

Вариант первый:

• Сделайте четвертый столбик, назвав его ФИО;
• На следующей строчке введите «=A2&B2&C2» (то есть те ячейки, в которых стоят первые фамилия, имя и отчество) и нажмите «Enter»;
• Получится следующее – «ИванПетровИванович». То есть, ФИО будет написано без пробелов;
• Если нужно установить пробелы, вставьте знак «&” “&», то есть, формула будет такой – «A2&” “&B2&” “&C2». В результате получится «Иван Петров Иванович»;
• Чтобы поставить разделитель, можно использовать любой знак, например запятую. Получится такая формула«A2&” “&С2&”, “&В2», в итоге ФИО будут выглядеть так: «Иван Иванович, Петров»;
• Чтобы использовать формулу для других ячеек, скопируйте первую формулу, выделите строчки под ней (напротив которых стоят разделенные фамилия, имя и отчество) и нажмите «Enter».

Вариант второй:

• Аналогично применяется формула «=СЦЕПИТЬ(A2;B2;С2)»;
• Если нужно установить пробел, то «=СЦЕПИТЬ(A2,» «,B2)»;
• Если нужна запятая – «=СЦЕПИТЬ(A2,», «,B2)».

Как разделить объединенные ячейки

1. Щелкните по ячейке левой клавишей мыши. На вкладке «Главная» в разделе «Выравнивание» загорится кнопка «Объединить и поместить в центре»;
2. Чтобы убрать соединение, просто нажмите эту кнопку.

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

Как найти объединенные ячейки

1. Перейдите на вкладку «Главная», в раздел «Редактирование»;
2. Выберите «Найти и выделить», затем «Найти»;
3. Выберите «Параметры», нажмите строчку «Формат»;
4. Откройте меню «Выравнивание», в разделе «Отображение» пометьте галочкой строчку «Объединение ячеек»;
5. Кликните «ОК»;
6. Затем используйте один из двух вариантов:

• Для того чтобы найти очередную объединенную ячейку, щелкните «Найти далее». В экселе будет выделена нужная ячейка;
• Для того чтобы найти сразу все такие ячейки, щелкните «Найти все». Появятся все объединенные ячейки. Можно нажать на любую ячейку в списке – тогда она будет выделена в экселе, и вы увидите, где она расположена.

Важные выводы

1. Все данные, которые имеются в ячейках, теряются (за исключением верхней левой в выделенных ячейках, в которых потери нет), это касается любых направлений выделения;
2. Объединение ячеек вполне можно вернуть обратно, что не приведет к потери данных. Информация, которая содержалась в них, будет расположена в левой верхней ячейке (она будет расположена сплошным текстом).

Объединение ячеек в Эксель 2010 и других версиях программы помогает ускорить работу с документом и создать более наглядную картину. Используя эту функцию, вы легко научитесь правильно структурировать таблицы.

Иногда эксель удивляет своими требованиями делать что-то через э… макросы. Вот недавно, встала задача разбить несколько объединенных ячеек по одной, чтобы можно было нормально отсортировать весь диапазон. Думаю, никому не надо объяснять, как просто убрать объединение ячеек, разбив их по одной (я имею ввиду формат-выравнивание-убрать галку с «объединение ячеек»). Но, к сожалению, эксель обладает очень интересным свойством при отмене объединения ячеек не спрашивать, как именно мы хотели бы их вернуть в нормальное, разъединенное состояние, а тупо пишет в верхнюю левую ячейку значение, которое было в объединенной, а все остальные ячейки оставляет незаполненными. Ну, естественно, ни о какой нормальной сортировке по прежде объединенным ячейкам говорить не приходится. И хорошо бы их было всего штук 200-300. А если их шестьдесят тысяч, разбитых на группы по 10 ячеек? Вручную шесть тысяч значений потом копировать в оставшиеся пустыми ячейки?

Типичная картина — хотим отсортировать список пофамильно, чтобы Кузнецов шел все-таки после Иванова. Пример, разумеется, очень упрощенный.

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

А нам то надо, чтобы в каждой ячейке было соответствующее значение, иначе при сортировке получится черти что!

К сожалению, выполнить это стандартными средствами экселя, как например, мы или — невозможно. Необходимо использовать макросы. Но, слава богу, есть добрые люди на свете, которые уже сделали это до нас. Причем — написали даже не один макрос, а целых несколько. При этом макросы позволяют не только разделять ячейки с сохранением содержащейся в них информации, но и многое другое:

• разгруппировать ячейки выделенного диапазона с заполнением

Проверил все, работают отлично. Код самого простого, как показавшего отличнейшие результаты, хочу разместить и здесь. На всякий случай, если вдруг пропадет с исходной страницы, ссылку на которую я привел выше.

Итак, создаем макрос с кодом:

ABAP

Sub UnMerge_And_Fill_By_Value() " разгруппировать все ячейки в Selection и ячейки каждой бывшей группы заполнить значениями из их первых ячеек Dim Address As String Dim Cell As Range If TypeName(Selection) <> "Range" Then Exit Sub End If If Selection.Cells.Count = 1 Then Exit Sub End If Application.ScreenUpdating = False For Each Cell In Intersect(Selection, ActiveSheet.UsedRange).Cells If Cell.MergeCells Then Address = Cell.MergeArea.Address Cell.UnMerge Range(Address).Value = Cell.Value End If Next End Sub

SubUnMerge_And_Fill_By_Value () "разгруппироватьвсеячейкивSelectionиячейкикаждойбывшейгруппызаполнитьзначениямиизихпервыхячеек DimAddressAs String DimCellAs Range If TypeName (Selection) & lt ; & gt ; "Range" Then Exit Sub EndIf If Selection. Cells. Count = 1 Then Exit Sub EndIf Application. ScreenUpdating= False For EachCellIn Intersect (Selection, ActiveSheet. UsedRange) . Cells If Cell. MergeCellsThen Address= Cell. MergeArea. Address Cell. UnMerge Range (Address) . Value = Cell. Value EndIf Next

В результате выполнения макроса все выделенные объединенные ячейки разбиваются по одной, и заполняются именно тем значением, которое было в объединенной. Сортируй-не хочу.

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

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

Тоже на всякий случай приведу код:

ABAP

Sub MergeCls() Dim ri As Integer, r2 As Integer, Col As Integer r1 = ActiveCell.Row r2 = ActiveCell.Row Col = ActiveCell.Column Do If Cells(r1, Col) <> Cells(r2 + 1, Col) Then If r1 <> r2 Then Range(Cells(r1 + 1, Col), Cells(r2, Col)).ClearContents With Range(Cells(r1, Col), Cells(r2, Col)) .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = True .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = True End With End If r1 = r2 + 1 End If r2 = r2 + 1 Loop Until Cells(r2, Col) = "" End Sub

SubMergeCls () DimriAs Integer, r2As Integer, ColAs Integer r1= ActiveCell. Row r2= ActiveCell. Row Col= ActiveCell. Column If Cells (r1, Col) & lt ; & gt ; Cells (r2+ 1 , Col) Then If r1& lt ; & gt ; r2Then Range (Cells (r1+ 1 , Col) , Cells (r2, Col) ) . ClearContents With Range (Cells (r1, Col) , Cells (r2, Col) )