Как пронумеровать ячейки разного размера в excel автоматически - Word и Excel

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

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, Спасибо по вашей методике всё работает)))

Ответить

Источник

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

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

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

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

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

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

Метки

excel

Источник

Как мы могли заполнить номера серий в списке объединенных ячеек разного размера в 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)

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

Источник

Содержание

Способ 1: заполнение первых двух строк
Способ 2: использование функции
Способ 3: использование прогрессии
Вопросы и ответы

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

Способ 1: заполнение первых двух строк

Первый способ предполагает ручное заполнение первых двух строк числами.

В выделенной под нумерацию колонке первой строки ставим цифру – «1», во второй (той же колонки) – «2».

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

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

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

Способ 2: использование функции

Второй способ автоматического заполнения предусматривает использование функции «СТРОКА».

Выделяем ячейку, в которой будет находиться цифра «1» нумерации. Вводим в строку для формул выражение «=СТРОКА(A1)».Кликаем по клавише ENTER на клавиатуре.

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

Как видим, нумерация строк и в этом случае расположилась по порядку.

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

Способ 3: использование прогрессии

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

Первую ячейку нумеруем самым обычным способом, вписав туда цифру «1» с клавиатуры.

На ленте в блоке инструментов «Редактирование», который расположен во вкладке «Главная», жмем на кнопку «Заполнить». В появившемся меню кликаем по пункту «Прогрессия».

Открывается окно «Прогрессия». В параметре «Расположение» нужно установить переключатель в позицию «По столбцам». Переключатель параметра «Тип» должен находиться в позиции «Арифметическая». В поле «Шаг» нужно установить число «1», если там установлено другое. Обязательно заполните поле «Предельное значение». Тут следует указать количество строк, которые нужно пронумеровать. Если данный параметр не заполнен, автоматическая нумерация произведена не будет. В конце следует нажать на кнопку «OK».

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

Как альтернативный вариант можно использовать следующую схему этого же способа:

В первой ячейке поставить цифру «1», а затем выделить весь диапазон ячеек, которые вы хотите пронумеровать.

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

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

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

Еще статьи по данной теме:

Помогла ли Вам статья?

Источник

Здравствуйте! 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 уппс, а вот размножение это не заметил По вопросам из тем форума, личку не читаю.

Источник