Как вставить пустую строку на основе указанного выше значения ячейки в Excel?
В Excel вставка пустых строк - одна из наиболее часто используемых функций в нашей повседневной работе. Однако есть ли способ быстро вставить пустые строки на основе указанного выше значения ячейки, как показано ниже? Теперь в этой статье рассказывается о методе быстрой вставки пустой строки на основе приведенных выше значений ячеек в Excel.
 |
 |
 |
Вставить строку на основе значения выше
Вставить строку на основе значения выше
Если вы хотите вставить пустую строку на основе числа, указанного выше, вы можете использовать код макроса.
1. Включите используемый лист и нажмите Alt + F11 ключи для открытия Microsoft Visual Basic для приложений окно.
2. Нажмите Вставить > Модулии вставьте в скрипт приведенный ниже код.
VBA: вставьте пустой код на основе ячейки выше
Sub Insert () 'ОбновитьExtendoffice20170926 Dim xRg As Range Dim xAddress As String Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long On Error Resume Next xAddress = ActiveWindow.RangeSelection.Address Set xRg = Application.InputBox («Выберите диапазон для использования (один столбец ): "," KuTools For Excel ", xAddress,,,,, 8) Если xRg - ничего, то выйдите из вспомогательного приложения. ScreenUpdating = False xLastRow = xRg (1) .End (xlDown) .Row xFstRow = xRg.Row xCol = xRg.Column xCount = xRg.Count Установить xRg = xRg (1) Для I = xLastRow To xFstRow Step -1 xNum = Cells (I, xCol) Если IsNumeric (xNum) And xNum> 0, то строки (I + 1) .Resize (xNum) .Insert xCount = xCount + xNum End If Next xRg.Resize (xCount, 1) .Select Application.ScreenUpdating = True End Sub
3. Нажмите F5 нажмите клавишу, чтобы запустить код, и появится диалоговое окно, напоминающее вам о выборе списка для работы. Смотрите скриншот:
4. Нажмите OK, вставлены пустые строки.
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
