Как заполнить вниз последовательные числа в Excel, пропуская скрытые строки?
Предположим, у вас есть фильтр Диапазон данных, значение из которого вы хотите заполнить вниз Последовательные числа в отфильтрованные пустые ячейки, как показано на следующем снимке экрана. В этом случае перетаскивание маркера заполнения, как правило, не заполняет ячейки корректно. В данной статье я расскажу о нескольких эффективных приёмах для решения этой задачи в Excel.
 |  |  |
Заполнение вниз Последовательные числа с пропуском скрытых строк с помощью формулы
Заполнение вниз Последовательные числа с пропуском скрытых строк с помощью кода VBA
Заполнение вниз Последовательные числа с пропуском скрытых строк с помощью Kutools для Excel
Заполнение вниз Последовательные числа с пропуском скрытых строк с помощью формулы
Чтобы заполнить видимые ячейки последовательными числами вниз, воспользуйтесь простой формулой. Выполните следующие действия:
1. Введите эту формулу: =SUBTOTAL(103,$B$3:$B3) (B3 — это видимая ячейка, с которой начинается заполнение последовательных номеров) в первую ячейку, куда нужно ввести последовательные числа (например, A3), и нажмите клавишу Enter. После этого вы получите число 1. См. снимок экрана:
2. Затем выделите ячейку A3 и перетащите маркер заполнения вниз до тех ячеек, которые нужно заполнить последовательными числами. См. снимок экрана:
Заполнение вниз Последовательные числа с пропуском скрытых строк с помощью кода VBA
Следующий код VBA поможет вам заполнить последовательные числа только в видимые ячейки. Выполните следующие действия:
1. Удерживая клавиши ALT + F11, откройте окно Microsoft Visual Basic for Applications.
2. Нажмите Вставка > Модуль и вставьте следующий код в окно Модуль.
Код VBA: заполнение вниз Последовательные числа с пропуском скрытых строк:
Sub FillValue()
'updateby Extendoffice
Dim xRg As Range
Dim xCell As Range
Dim xTxt As String
Dim xVal As Long
Dim I As Long
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xTxt, , , , , 8)
Set xRg = xRg.SpecialCells(xlVisible)
Debug.Print xRg.Address
If xRg Is Nothing Then Exit Sub
For Each xCell In xRg
xVal = xVal + 1
xCell = xVal
Next
End Sub
3. Затем нажмите клавишу F5, чтобы запустить этот код. Появится диалоговое окно с запросом на выбор диапазона данных, который вы хотите заполнить. См. снимок экрана:
4. После этого нажмите кнопку ОК, и последовательные числа заполнятся только в видимые ячейки.
Заполнение вниз Последовательные числа с пропуском скрытых строк с помощью Kutools для Excel
Оба описанных выше метода позволяют заполнить вниз только последовательные числа в видимые ячейки. Если же вы хотите создать последовательность вида AA-0001-BB, AA-0002-BB, AA-0003-BB…, эти методы не подойдут. Но не беспокойтесь: функция Вставить номер последовательности из утилиты Kutools для Excel поможет вам быстро и легко справиться с этой задачей.
После установки Kutools для Excelвыполните следующие действия:
1. Выделите ячейки, в которые нужно вставить последовательность строк.
2. Нажмите Kutools > Вставка > Вставить номер последовательности. В диалоговом окне Вставить номер последовательности нажмите кнопку Создать. См. снимки экрана:
 | |  |
3. В расширенном диалоговом окне задайте нужные параметры в левой нижней части. Одновременно вы сможете видеть предварительный результат последовательности в правой нижней области. См. снимок экрана:
4. После завершения настройки нажмите кнопку Добавить, чтобы сохранить новый элемент в списке выше. См. снимок экрана:
6. Затем выберите созданный элемент и нажмите кнопку Заполнить диапазон. Последовательность строк заполнится только в видимые ячейки. См. снимок экрана:
Скачайте и начните использовать бесплатную пробную версию Kutools для Excel прямо сейчас!
Демонстрация: заполнение вниз Последовательные числа с пропуском скрытых строк с помощью Kutools для Excel
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек