Как пронумеровать объединенные ячейки разного размера в excel

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

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

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

В ячейку A1 ставим 1, затем выделяем диапазон, который нужно пронумеровать. В моём примере это A3:A13. В строке формул пишем: =МАКС(A$1:A2)+1. Затем нажимаем Ctrl+Enter. Обратите внимание — Ctrl+Enter.

Функция МАКС() возвращает наибольшее значение из набора значений, а в нашем случае, мы увеличиваем наибольшее значение на единицу.

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

Метки

excel

Источник

В ячейку A1 ставим 1, затем выделяем диапазон, который нужно пронумеровать. В моём примере это A3:A13. В строке формул пишем: =МАКС(A$1:A2)+1 . Затем нажимаем Ctrl+Enter. Обратите внимание — Ctrl+Enter.

Регистрация на форуме тут, о проблемах пишите сюда — alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите восстановить пароль

Поиск по форуму

Расширенный поиск

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

Следующая >

__ Полезные надстройки для Excel. Парсинг сайтов и файлов.
Макросы любой сложности на заказ. Мониторинг цен конкурентов

EducatedFool

Посмотреть профиль

Найти ещё сообщения от EducatedFool

Так и надо было сразу сказать, что нужен макрос.

Что должно получиться в результате?
Как именно нумеровать ячейки?

PS: А здесь есть макрос для окрашивания всех объединённых ячеек.

EducatedFool

Посмотреть профиль

Найти ещё сообщения от EducatedFool

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

Вот теперь задание точно некорректное.

На каждом листе Excel 2003 имеется 16777216 ячеек (в Excel 2007 — намного больше)
Вы уверены, что макрос должен пронумеровать ВСЕ ячейки?

Если Вам лень подробно описать задачу — то и макроса Вы не дождётесь.

EducatedFool

Посмотреть профиль

Найти ещё сообщения от EducatedFool

Вложения

План закупівель БАЗОВЫЙ №2.rar (60.1 Кб, 55 просмотров)

Вот с этого и надо было начинать.

PS: Скрытые строки тоже нумеруются.

Как пронумеровать объединенные ячейки разного размера в excel

Как пронумеровать строки в объединенные ячейки в Excel?

Как пронумеровать объединенные ячейки в Excel?

В ячейку A1 ставим 1, затем выделяем диапазон, который нужно пронумеровать. В моём примере это A3:A13. В строке формул пишем: =МАКС(A$1:A2)+1 . Затем нажимаем Ctrl+Enter.

Как перенести объединенные ячейки в Excel?

Это можно сделать путем нажатия сочетания клавиш Ctrl + A или кликнуть на черный треугольник между заголовками строк и столбцов на листе. Нажать на команду Главная -> Выравнивание -> Объединить и поместить в центре если она выделена. Если же она не выделена, значит выбранный лист не содержит объединенных ячеек.

Как писать в объединенных ячейках?

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

Как посчитать объединенные ячейки в Excel?

Поиск объединенных ячеек

На вкладке Главная выберите Найти и выделить > Найти.
Нажмите кнопку «Параметры>формат».
Щелкните «Выравнивание>объединить ячейки>ОК.
нажмите кнопку Найти все, чтобы просмотреть список всех объединенных ячеек на данном листе. При выборе элемента в списке Excel выделит объединенную ячейку на листе.

Как разбить ячейку в Excel?

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

Как скопировать текст из объединенной ячейки?

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

Выделите ячейку или диапазон ячеек.
Нажмите кнопку Копировать или клавиши CTRL+C.
Нажмите кнопку Вставить или клавиши CTRL+V.

Как поставить фильтр на объединенные ячейки?

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

Как вставить данные в Эксель?

Если вы хотите просто вставить значения с ячеек, последовательно нажимайте клавиши Я, М и З, удерживая при этом клавишу Alt, и в конце нажмите клавишу ввода. Это бывает необходимо, когда вам нужно избавиться от форматирования и работать только с данными.

Как в Excel перенести текст на новую строку в одной ячейке?

Щелкни правой кнопкой мыши ячейку, в которой нужно использовать перенос текста, и выбери пункт Формат ячеек. На вкладке Выравнивание установи флажок Переносить по словам и нажми кнопку ОК.

Что такое автозаполнение и как осуществляется данная операция?

Функция Автозаполнение позволяет заполнять данными область ячеек по определенным правилам. … Если вводится одно начальное значение образца заполнения, то выделяется одна ячейка, если список с интервалом изменения данных, то необходимо выделить две ячейки, заполненные соответствующими данными.

Как в Excel сделать автоматическое заполнение?

Использование маркера автозаполнения в Excel

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

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

Бесплатная пробная версия сейчас!

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

Как избавиться от объединенных ячеек?

Отмена объединения ячеек

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

Компьютер плюс

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

Нумерация вручную

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

Нумерация при помощи маркера заполнения

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

Нужно установить номер в ячейку первой строки, затем ухватить маркер заполнения и при нажатой кнопке Ctrl, оттянуть маркер вниз на все строки которые нужно пронумеровать.
Ставим в первую и вторую ячейку последовательно нумерацию, например 1 и 2, и, зацепив мышкой маркер заполнения, тянем его вниз.
Нумерация строк при помощи функции СТРОКА. В ячейке с номером 1 вписываем =СТРОКА(A1), далее как в предыдущих способах: захватываем маркер заполнения и перетягиваем его вниз.
При помощи формулы СУММА или сложения. В первой ячейке вписываем 1, во второй пишем =, после знака указываем предыдущую ячейку и прибавляем единицу (+1). Должно получиться примерно следующее: =А3+1, далее жмем Enter и маркером заполнения перетаскиваем формулу в конец списка.

Интересно, что при втором способе можно задать шаг нумерации, например проставим номера 1 и сразу 3, то все строки будут пронумерованы 1,3,5… и т.д., т.е. нечетными числами. Или пронумеруем строки через одну, то и нумерация строк продолжится через одну строку.

Отображение или скрытие маркера заполнения

Разрешить или запретить отображать маркеры заполнения и перетаскивание ячеек можно в параметрах Excel во вкладке дополнительно. Как правило, в Эксель этот параметр бывает в состоянии разрешить и пользоваться им можно сразу.

Разрешить маркеры…

Как автоматически пронумеровать строки при помощи инструмента Прогрессия

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

Нумерация при помощи прогрессии

Нумерация строк с объединенными ячейками

Часто приходится делать таблицы в которых нескольким строкам нужно придать один номер, так как в таблице выполнено объединение нескольких ячеек. Для такого случая все приведенные выше примеры не подходят: на все наши попытки программа отвечает отказом (требуется, чтобы ячейки имели одинаковый размер).

Ячейки объединил, нужно нумеровать как одну строку

Для такого случая есть еще одна функция, но ее написание зависит от количества строк из которых состоит шапка таблицы, например, шапка занимает две строки, тогда в третьей строке (ячейке) пишем =МАКС(А$1:А2)+1. Если нумерация начинается с пятой строки, тогда формула может быть следующей: =МАКС(А$1:А4)+1. Для нумерации строк нужно выделить все ячейки, в которых нужна нумерация, в том числе и объединенные, в строку формул вписываем эту формулу (знак $ можно поставить простым нажатием кнопки F4), затем одновременно нажимаем кнопки Ctrl и Enter.

Формула, чтобы вставить знак $, нажимаем на кнопку F4
Одновременно нажимаем кнопки Ctrl и Enter

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

2 мысли о “Нумерация строк в Эксель”

Михаил :

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

Александр :

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

Источник

Автоматическая нумерация объеденных ячеек разных размеров

kenn

Дата: Четверг, 25.04.2019, 20:22 |
Сообщение № 1

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

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

Сообщений: 143

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

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

Excel 2016

Добрый день! Возможно ли сделать автоматическую нумерацию объединенных ячеек разных размеров? Столбец А.
На форуме не нашел примера похожего.

К сообщению приложен файл:

8421924.xlsx
(33.2 Kb)

Ответить

bmv98rus

Дата: Четверг, 25.04.2019, 20:42 |
Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4009

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

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

Excel 2013/2016

плохо искали

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Ответить

kenn

Дата: Четверг, 25.04.2019, 20:54 |
Сообщение № 3

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

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

Сообщений: 143

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

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

Excel 2016

bmv98rus, Когда протягиваю формулу вниз пишет ячейки должны быть одинакового размера.

Ответить

bmv98rus

Дата: Четверг, 25.04.2019, 21:01 |
Сообщение № 4

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4009

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

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

Excel 2013/2016

а если не протягивать, а просто скопировать ну и вставить во все остальные как функцию?

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Ответить

kenn

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

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

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

Сообщений: 143

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

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

Excel 2016

bmv98rus, У меня лично не получается))

Ответить

Pelena

Дата: Четверг, 25.04.2019, 21:57 |
Сообщение № 6

Группа: Админы

Ранг: Местный житель

Сообщений: 18797

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

Замечаний:
±

Excel 2016 & Mac Excel

kenn, выделите диапазон, начиная с А5 и до конца объединенных ячеек, в строку формул введите формулу (например первую от bmv98rus), нажмите сочетание клавиш Ctrl+Enter

«Черт возьми, Холмс! Но как??!!»
Ю-money 41001765434816

Ответить

kenn

Дата: Пятница, 26.04.2019, 10:03 |
Сообщение № 7

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

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

Сообщений: 143

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

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

Excel 2016

Pelena, bmv98rus, Спасибо по вашей методике всё работает)))

Ответить

Источник

Здравствуйте! Help!
Очень часто приходится пользоваться таблицами, отражающими какую либо структуру и нужно пронумеровать их. Вручную это долго и очень часто сбиваюсь, начинаю заново и так по кругу. Прошу Вас — научите, пожалуйста, как можно автоматизировать такой процесс. Пробовала =МАКС(A$1:A2)+1 что-то ничего не получилось…Очень рассчитываю на ответ! Заранее благодарна!

Прикрепленные файлы

Пример.xlsx (47.57 КБ)

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	Если рядом не за что зацепиться (нет значений), то только макросом.

artemkau88

Пользователь

Сообщений: 553
Регистрация: 09.10.2019

20.12.2020 14:24:47

Посмотрите этот макрос

Код

Sub Нумерация()
Dim i, n
Dim rngStart As Range
Set rngStart = Application.InputBox("Выберите первую ячейку для нумерации", , , , , , , 8)
For i = 1 To ActiveSheet.UsedRange.Rows.Count
n = n + 1
rngStart = n
Set rngStart = rngStart.Offset(1, 0)
Next i
End Sub

Изменено: artemkau88 — 20.12.2020 14:32:53

New Пользователь Сообщений: 4582 Регистрация: 06.01.2013	Как ещё вариант, тоже макросом

БМВ Модератор Сообщений: 21383 Регистрация: 28.12.2016 Excel 2013, 2016	или не понимаю или в A2 =МАКС(A$1:A1)+1 По вопросам из тем форума, личку не читаю.

	Уважаемые друзья! Большое спасибо, у меня получилось!

vikttur

Пользователь

Сообщений: 47199
Регистрация: 15.09.2012

20.12.2020 18:18:28

Цитата
БМВ написал: или не понимаю или…

или я смотрел столбец D

БМВ

Модератор

Сообщений: 21383
Регистрация: 28.12.2016

Excel 2013, 2016

20.12.2020 18:48:53

Цитата
vikttur написал: столбец D

для D совершенно иная
=MAX(D$1:D1)+1

По вопросам из тем форума, личку не читаю.

Kuzmich

Пользователь

Сообщений: 7998
Регистрация: 21.12.2012

20.12.2020 19:23:25

Код

Sub iNomer()
Dim iLastRow As Long
Dim i As Long
Dim n As Long
  n = 1
  iLastRow = Columns(2).Find("Общий итог", , xlValues, xlWhole).Row
  For i = 2 To iLastRow - 1
    If Cells(i, "D").MergeCells Then
       Cells(i, "D") = n
       n = n + 1
       i = i + Cells(i, "D").MergeArea.Count - 1
    Else
       Cells(i, "D") = n
       n = n + 1
    End If
  Next
End Sub

Изменено: Kuzmich — 20.12.2020 19:24:04

vikttur

Пользователь

Сообщений: 47199
Регистрация: 15.09.2012

#10

20.12.2020 20:04:35

Цитата
БМВ написал: для D совершенно иная

Хи-хи… Посмеялся? А теперь глянь в пример )

Прикрепленные файлы

нумеруем.xlsx (12.52 КБ)

БМВ Модератор Сообщений: 21383 Регистрация: 28.12.2016 Excel 2013, 2016	#11 20.12.2020 20:42:09 уппс, а вот размножение это не заметил По вопросам из тем форума, личку не читаю.

Источник

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

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

Автоматическое нумерация / заполнение объединенных ячеек кодом VBA

Автоматическое нумерация / заполнение объединенных ячеек кодом VBA

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

1. Удерживайте ALT + F11 ключи, и он открывает Окно Microsoft Visual Basic для приложений.

2. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.

Код VBA: автоматическое нумерация объединенных ячеек

Sub NumberCellsAndMergedCells()
	'Update 20141028
	Dim Rng As Range
	Dim WorkRng As Range
	On Error Resume Next
	xTitleId = "KutoolsforExcel"
	Set WorkRng = Application.Selection
	Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
	Set WorkRng = WorkRng.Columns(1)
	xIndex = 1
	Set Rng = WorkRng.Range("A1")
	Do While Not Intersect(Rng, WorkRng) Is Nothing
		Rng.Value = xIndex
		xIndex = xIndex + 1
		Set Rng = Rng.MergeArea.Offset(1)
	Loop
End Sub

3, Затем нажмите F5 нажмите клавишу для запуска этого кода, и появится диалоговое окно, позволяющее выбрать объединенные ячейки, которые вы хотите заполнить, см. снимок экрана:

4. Выбрав объединенные ячейки, нажмите OK, теперь выбранные вами объединенные ячейки были заполнены последовательными номерами, см. снимок экрана:

Статьи по теме:

Как автоматически пронумеровать или перенумеровать после фильтра в Excel?

Как быстро объединить соседние строки с одинаковыми данными в Excel?

Как разделить ячейки и заполнить повторяющиеся значения в Excel?

Лучшие инструменты для работы в офисе

Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%

Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон…
Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны…
Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии…
Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF…
Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

Комментарии (10)

Оценок пока нет. Оцените первым!

Источник

Работаю над таблицей, очень большой.
Необходимо пронумеровать эту таблицу. Но в таблице в строках есть объединенные ячейки.
Ячейки объединены не равномерно по 2 3 и даже болще строк.
Помогите пожалуйста очень нужно!

Вы щас про Excel говорите?
Там вроде и так строки пронумерованы, независимо от объединения ячеек.
Параметры->Вид->Отображать заголовки строк и столбцов

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…
www.excel-vba.ru
Просто СПАСИБО [+оказать+]
Считаешь СПАСИБО мало? Яндекс.Деньги: 41001332272872; WM: R298726502453

И если не трудно примерчик выложите…Или поподробнее про проблему.Может Вам нужна нумерация только объединенных ячеек?

Цитата: Prist от 13.11.2008, 09:57
И если не трудно примерчик выложите…Или поподробнее про проблему.Может Вам нужна нумерация только объединенных ячеек?

Вот пример во вложении. Реч идет об Excel. Мне нужна нумерация только объединенных ячеек.

Я думаю посчитать можно, но через VBA. По крайней мере я не знаю как это можно сделать стандартными средствами Excel. Устроит через VBA — пишите. Сразу пример приложить не могу — нет доступа к VBA.

Цитата: tkk78 от 13.11.2008, 10:28
Мне нужна нумерация только объединенных ячеек.

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

Sub Auto123() Dim i As Range, LMC As String, n As Single For Each i In Selection If i.MergeCells Then If LMC <> i.MergeArea.Address Then n = n + 1: i = n End If LMC = i.MergeArea.Address Else n = n + 1: i = n End If: Next: End Sub

Знания недостаточно, необходимо применение. Желания недостаточно, необходимо действие. (с) Брюс Ли

Источник

When we try to insert a sequence number into an item in Excel, we always use the autofill handle, but when we try to apply the same process to cells of different sizes, the error appears. This process can’t be completed using the default functions in Excel; instead, we will be using the VBA application to complete our process.

Read this tutorial to learn how you can autonumber merged cells in Excel.

AutoNumber Merged Cells in Excel

Here, we will first insert a VBA module and then run the module to complete our task. Let us see a simple process to understand how we can auto-number merged cells in Excel.

Step 1

Let us consider an Excel sheet that contains a list of different heights, and then try to apply the sequence number using the autofill handle.

We can see that the result is not accurate, but we can use VBA code to get the perfect result. Now right-click on the sheet name and select view code to open the vba application, and click on inset and select module, then type the programme into the text box as shown in the below image.

Example

Sub NumberCellsAndMergedCells()
   'Updated Bu Nirmal
   Dim Rng As Range
   Dim WorkRng As Range
   On Error Resume Next
   xTitleId = "select the range"
   Set WorkRng = Application.Selection
   Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
   Set WorkRng = WorkRng.Columns(1)
   xIndex = 1
   Set Rng = WorkRng.Range("A2")
   Do While Not Intersect(Rng, WorkRng) Is Nothing
      Rng.Value = xIndex
      xIndex = xIndex + 1
      Set Rng = Rng.MergeArea.Offset(1)
   Loop
End Sub

Step 2

Now save the workbook as a macro-enabled template and press F5 to run the code. A pop-up window titled «Select the Range» will appear; select the range of cells to number as shown in the image below.

Step 3

Now click on OK to get our final output, as shown in the below image.

Conclusion

In this tutorial, we used a simple example to demonstrate how we can auto-number merged cells in Excel to highlight a particular set of data.

Источник