Note: The other languages of the website are Google-translated. Back to English

Как автоматически вставить строку на основе значения ячейки в Excel?

doc-insert-row-based-on-value-1
Предположим, у вас есть диапазон данных, и вы хотите автоматически вставлять пустые строки выше или ниже определенного значения в Excel, например, автоматически вставлять строки ниже нулевого значения, как показано ниже. В Excel нет прямого способа решить эту задачу, но я могу ввести код макроса для автоматической вставки строк на основе определенного значения в Excel.
Вставить строку ниже на основе значения ячейки с помощью VBA

Вставить строку выше на основе значения ячейки с помощью Kutools for Excel хорошая идея3

Чтобы вставить строку на основе значения ячейки, запустив VBA, выполните следующие действия:

1. Нажмите Alt + F11 одновременно, а Microsoft Visual Basic для приложений окно выскакивает.

2. Нажмите Вставить > Модули, затем вставьте ниже код VBA во всплывающий Модули окно.

VBA: вставьте строку ниже на основе значения ячейки.

Sub BlankLine()
	'Updateby20150203
	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)
	xLastRow                   = WorkRng.Rows.Count
	Application.ScreenUpdating = False
	For xRowIndex = xLastRow To 1 Step - 1
		Set Rng                   = WorkRng.Range("A" & xRowIndex)
		If Rng.Value = "0" Then
			Rng.Offset(1, 0).EntireRow.Insert Shift: = xlDown
		End If
	Next
	Application.ScreenUpdating = True
End Sub

3. Нажмите F5 ключа или Run нажмите кнопку, появится диалоговое окно и выберите столбец, содержащий ноль. Смотрите скриншот:
doc-insert-row-based-on-value-2

4. Нажмите OK. Тогда пустые строки будут вставлены ниже нулевого значения.
doc-insert-row-based-on-value-3

Функции:

1. Если вы хотите вставить строки на основе другого значения, вы можете изменить 0 на любое значение, которое вы хотите в VBA: Если Rng.Value = "0", то.

2. Если вы хотите вставить строки выше нуля или другого значения, вы можете использовать приведенный ниже код vba.

VBA: вставить строку выше нулевого значения:

Sub BlankLine()
	'Updateby20150203
	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)
	xLastRow                   = WorkRng.Rows.Count
	Application.ScreenUpdating = False
	For xRowIndex = xLastRow To 1 Step - 1
		Set Rng                   = WorkRng.Range("A" & xRowIndex)
		If Rng.Value = "0" Then
			Rng.EntireRow.Insert Shift: = xlDown
		End If
	Next
	Application.ScreenUpdating = True
End Sub

doc-insert-row-based-on-value-4


Если вы не знакомы с VBA, вы можете попробовать Kutools for Excel's Выбрать определенные ячейки утилита, а затем вставьте строки выше.

Kutools for Excel, с более чем 300 удобные функции, облегчающие вашу работу. 

После установки Kutools for Excel, сделайте следующее:(Бесплатная загрузка Kutools for Excel прямо сейчас!)

1. Выберите список, из которого вы хотите найти определенные ячейки, и нажмите Кутулс > Выберите > Выбрать определенные ячейки. Смотрите скриншот:
doc вставить строку на основе значения 9

2. В появившемся диалоговом окне отметьте Весь ряд вариант, а затем перейдите, чтобы выбрать Равно от Конкретный тип список, а затем введите значение, которое вы хотите найти, в правом текстовом поле. Смотрите скриншот:
doc вставить строку на основе значения 6

3. Нажмите Ok, и появится диалоговое окно, напоминающее количество выбранных строк, просто закройте его.

4. Поместите курсор в одну выбранную строку и щелкните правой кнопкой мыши, чтобы выбрать Вставить из контекстного меню. Смотрите скриншот:
doc вставить строку на основе значения 7

Теперь строки вставляются выше на основе определенного значения.
doc вставить строку на основе значения 8


Относительные статьи:


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

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

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

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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (42)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Я хочу вставить определенный контент в ячейку ниже. Как это сделать? Вместо пустой строки я хочу вставить значение в несколько столбцов.
Этот комментарий был сведен к минимуму модератором на сайте
Привет, я хочу вставить несколько строк на основе значения Пример: я хочу вставить 1 пустую строку ниже ячейки со значением 2, 2 строки ниже ячейки со значением 3, 3 строки ниже ячейки со значением 4 и т. д. Можете ли вы Пожалуйста, помогите мне с этим?
Этот комментарий был сведен к минимуму модератором на сайте
Вы когда-нибудь получали ответ на этот вопрос? Я пытаюсь сделать то же самое.

Имейте список сотрудников с количеством недель отпуска, которые они получают. Я хочу вставить строку для каждой недели. Это будет 1, 2 или 3 ряд в зависимости от того, сколько времени они заработали. #s 1 2 3 уже есть в моей электронной таблице.
Этот комментарий был сведен к минимуму модератором на сайте
Я хочу вставлять строки на основе подсчета, используя значение ячейки в одной электронной таблице и вставляя строки в другую электронную таблицу.
Этот комментарий был сведен к минимуму модератором на сайте
Благодаря вашему сообщению. Но не могли бы вы описать свой вопрос более подробно? Какие строки вы хотите вставить? Пустой? И куда вы хотите вставить на листе? Если можно, дайте скриншот. Спасибо.
Этот комментарий был сведен к минимуму модератором на сайте
Я тебя люблю. Спасибо.
Этот комментарий был сведен к минимуму модератором на сайте
Это было восхитительно!! Спасибо чувак.
Этот комментарий был сведен к минимуму модератором на сайте
Как я могу вставить более одной строки?
Этот комментарий был сведен к минимуму модератором на сайте
Вы можете попробовать этот VBA

Вспомогательная пустая строка ()
'Обновление20150203
Dim Rng As Range
Dim WorkRng As Range
Dim xInsertNum As Long
' При ошибке Возобновить Далее
xTitleId = "Kutools для Excel"
Установите WorkRng = Application.Selection
Установите WorkRng = Application.InputBox ("Диапазон", xTitleId, WorkRng.Address, Type: = 8)
Если WorkRng ничего не значит, выйдите из Sub
xInsertNum = Application.InputBox("Количество пустых строк, которые вы хотите вставить", xTitleId, Type:=1)
Если xInsertNum = Ложь Тогда
MsgBox "Количество пустых строк, которые вы хотите вставить", vbInformation, xTitleId
Exit Sub
End If
Установите WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Приложение.ScreenUpdating = False
Для xRowIndex = xLastRow To 1 Step -1
Установите Rng = WorkRng.Range("A" & xRowIndex)
Если Rng.Value = "0", то
Rng.Resize(xInsertNum).EntireRow.Insert Shift:=xlDown
End If
Далее
Application.ScreenUpdating = True
End Sub
Этот комментарий был сведен к минимуму модератором на сайте
если вы хотите вставить пустые строки ниже, попробуйте это

Вспомогательная пустая строка ()
'Обновление20150203
Dim Rng As Range
Dim WorkRng As Range
Dim xInsertNum As Long
' При ошибке Возобновить Далее
xTitleId = "Kutools для Excel"
Установите WorkRng = Application.Selection
Установите WorkRng = Application.InputBox ("Диапазон", xTitleId, WorkRng.Address, Type: = 8)
Если WorkRng ничего не значит, выйдите из Sub
xInsertNum = Application.InputBox("Количество пустых строк, которые вы хотите вставить", xTitleId, Type:=1)
Если xInsertNum = Ложь Тогда
MsgBox "Количество пустых строк, которые вы хотите вставить", vbInformation, xTitleId
Exit Sub
End If
Установите WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Приложение.ScreenUpdating = False
Для xRowIndex = xLastRow To 1 Step -1
Установите Rng = WorkRng.Range("A" & xRowIndex)
Если Rng.Value = "0", то
Rng.Offset(1, 0).Resize(xInsertNum).EntireRow.Insert Shift:=xlDown
End If
Далее
Application.ScreenUpdating = True
End Sub

Нижний - вставить строки выше.
Этот комментарий был сведен к минимуму модератором на сайте
Привет Солнышко, этот макрос отлично работает для меня; мне просто нужно было изменить количество строк на 30 и изменить 0 на текст: «Заключительный баланс». Но теперь я хочу скопировать и вставить выделение ячеек высотой 30 строк в 30 пустых строк, которые были только что вставлены этим макросом. Можете ли вы предложить новый макрос (или поправку к этому), чтобы скопировать и вставить диапазон в каждые 30 пустых строк. Я назвал диапазон для копирования и вставки «шаблон».
Этот комментарий был сведен к минимуму модератором на сайте
Мне нужна огромная помощь по этому вопросу. У меня есть 2 столбца, в первом у меня есть время данных 1/01/01 2016:05:00, дни/месяцы/год, час/минута/секунды, а во втором столбце соответствующие данные, связанные со временем.

Моя проблема в том, что я хочу добавить время данных между строками, так как у меня есть промежутки в днях. 1-я строка — 01, а 01-я строка, например, 2016, поэтому у меня 2 дней. и этот код не работает для меня.

Ждем отзывов, пожалуйста! Спасибо
Этот комментарий был сведен к минимуму модератором на сайте
Вы можете попробовать этот VBA

Sub InsertValueBetween ()
'Обновление 20130825
Dim WorkRng As Range
Dim Rng As Range
Dim outArr As Variant
Dim dic как вариант
Установить dic = CreateObject("Scripting.Dictionary")
'При ошибке возобновить дальше
xTitleId = "KutoolsforExcel"
Установите WorkRng = Application.Selection
Установите WorkRng = Application.InputBox ("Диапазон", xTitleId, WorkRng.Address, Type: = 8)
num1 = WorkRng.Range("A1").Value
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).Value
интервал = число2 - число1
ReDim outArr (от 1 до интервала + 1, от 1 до 2)
Для каждого кольца в WorkRng
dic(Rng.Value) = Rng.Offset(0, 1).Value
Далее
Для i = 0 До интервала
outArr (я + 1, 1) = я + число1
Если dic.Exists(i + num1) Тогда
outArr(i + 1, 2) = dic(i + num1)
Еще
аутАрр (я + 1, 2) = ""
End If
Далее
С WorkRng.Range("A1").Resize(UBound(outArr, 1), UBound(outArr, 2))
.Value = исходныйАрр
.Выбирать
Конец с
End Sub


Или, если у вас есть Kutools for Excel, вы можете попробовать эту функцию:
Этот комментарий был сведен к минимуму модератором на сайте
Большое спасибо, я пробовал оба, первый, так как у меня около 1 строк данных, я делаю это для всех 500 строк и ничего не делаю, я думаю, что, возможно, у него есть ограничение на количество используемых строк, и например, когда я выбираю только первые 500 строк, он не создает отсутствующие строки, а заменяет строки отсутствующими данными.

Еще одна проблема, которая у меня есть, заключается в том, что в моих данных о времени также есть день/месяц/год ЧЧ: ММ: СС.
Этот комментарий был сведен к минимуму модератором на сайте
От 2 до 3 он создает недостающие данные, которые мне нужны, но значение 03 исключается, и есть некоторые временные данные, которые удаляются, что-то, чего я тоже не хочу
Этот комментарий был сведен к минимуму модератором на сайте
Извините, код VBA вам не помог, я не могу найти метод, который может работать с форматом даты и времени. Если вы наконец найдете решение, не могли бы вы сообщить мне? Спасибо.
Этот комментарий был сведен к минимуму модератором на сайте
Снова привет, Санни, мне удалось отредактировать этот код (я изменил строку num1 на A2 и With WorkRng.Range("A2:A100000")).Resize(UBound(outArr, 1), UBound(outArr, 2) ):


Sub InsertValueBetween ()
'Обновление 20130825
Dim WorkRng As Range
Dim Rng As Range
Dim outArr As Variant
Dim dic как вариант
Установить dic = CreateObject("Scripting.Dictionary")
'При ошибке возобновить дальше
xTitleId = "KutoolsforExcel"
Установите WorkRng = Application.Selection
Установите WorkRng = Application.InputBox ("Диапазон", xTitleId, WorkRng.Address, Type: = 8)
num1 = WorkRng.Range("A2").Value
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).Value
интервал = число2 - число1
ReDim outArr (от 1 до интервала + 1, от 1 до 2)
Для каждого кольца в WorkRng
dic(Rng.Value) = Rng.Offset(0, 1).Value
Далее
Для i = 0 До интервала
outArr (я + 1, 1) = я + число1
Если dic.Exists(i + num1) Тогда
outArr(i + 1, 2) = dic(i + num1)
Еще
аутАрр (я + 1, 2) = ""
End If
Далее
С WorkRng.Range("A2:A100000").Resize(UBound(outArr, 1), UBound(outArr, 2))
.Value = исходныйАрр
.Выбирать
Конец с
End Sub



Я показываю вам графики, это не работает на 100%, потому что не создает время от A1 до A2.
Этот комментарий был сведен к минимуму модератором на сайте
Вот мой вопрос, и я думаю, он очень сложный... есть ли код vba, который добавляет новую строку под отфильтрованным столбцом и копирует только первые три ячейки в добавленную новую строку и продолжает делать это до тех пор, пока пользователь не перестанет нажимать «ввести» и отменить фильтрацию отфильтрованных ячеек?
Этот комментарий был сведен к минимуму модератором на сайте
Ваш вопрос несколько сложный и сложный, вы можете разместить вопрос на нашем форуме, может кто-то вам ответит. https://www.extendoffice.com/forum.html
Этот комментарий был сведен к минимуму модератором на сайте
привет, я просто хочу спросить, как добавить строку, если условие заключается в том, что добавление строки должно выполняться, когда в ячейке уже есть данные (это для книги Excel с большим количеством листов :) Спасибо!
Этот комментарий был сведен к минимуму модератором на сайте
возможно, этот код vba может вам помочь. Он добавит строки, если строка выше не пуста

Субпомощь ()
Тусклый счет до тех пор, пока
For count = ActiveSheet.UsedRange.Rows.count To 1 Шаг -1
Если Information.IsEmpty(Cells(count, 1)) = False Then Rows(count + 1).Insert
Следующий счет
End Sub
Этот комментарий был сведен к минимуму модератором на сайте
Привет, я пытаюсь использовать этот код для ввода строки, когда изменяются первые 4 цифры в ячейке (если это вообще возможно)

Например,
2222A
2222B
2223K


строка будет вставлена ​​после 2222B, так как 3-е число - это 3, а не 2

Спасибо, ребята!
Этот комментарий был сведен к минимуму модератором на сайте
Привет, спасибо за это, однако у меня есть другой сценарий, когда мне нужно вставить ячейку cingle под значением, которое не равно нулю. Цените любое предложение.
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Джина, я только что нашел код для вставки пустой строки над непустой ячейкой, возможно, кто-то сможет настроить его в соответствии с вашими потребностями.

Подпрограмма Insert_Rows()
Dim LR As Long, r As Long

Приложение.ScreenUpdating = False
LR = Диапазон («A» и Rows.Count). Конец (xlUp). Строка
Для r = LR To 1 Шаг -1
Если Len(Range("A" & r).Value) > 0 Тогда
Строки(r).Вставить
End If
Следующая г
Application.ScreenUpdating = True
End Sub

родом из https://www.mrexcel.com/forum/excel-questions/548675-adding-blank-line-above-row-non-blank-cell.html
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуйте, это очень полезно. Что, если бы я хотел добавить две строки ниже и хотел бы получить больше значений. Например, я хочу добавить две строки после значения 26, а затем две строки после 04, и список можно продолжить. Как мне продолжать добавлять в vba? Извините, я еще новичок. Заранее спасибо.
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Сафа, может быть, ты попробуешь утилиту вставки пустых строк / столбцов Kutools.
Этот комментарий был сведен к минимуму модератором на сайте
Вспомогательная пустая строка ()
'Обновление20150203
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Установите WorkRng = Application.Selection
Установить WorkRng = Application.InputBox ("Диапазон", xTitleId, WorkRng.Address, Тип: = 8)
Установите WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Приложение.ScreenUpdating = False
Для xRowIndex = xLastRow To 1 Step - 1
Установите Rng = WorkRng.Range("A" & xRowIndex)
Если Rng.Value = "0", то
Rng.EntireRow.Insert Shift: = xlDown
End If
Далее
Application.ScreenUpdating = True
End Sub


Мне нужно, чтобы это работало каждый раз, когда я помещаю что-то в ячейку, а также с большим количеством переменных. Я имею в виду, что если я помещу 2 в ячейку, мне нужно, чтобы она вставила 2 строки, а не только 1.
Этот комментарий был сведен к минимуму модератором на сайте
Мне нужен макрос для добавления строк на основе столбца количества, где, если количество больше 1, он вставляет количество строк -1. Если количество равно 5, оно вставляет 4 строки под ним, заполняет данные и изменяет вызываемое количество с 5 на 1 в каждой строке. Пропустить все количество 1.
Этот комментарий был сведен к минимуму модератором на сайте
Скажите мне код, где я хочу добавить определенное количество строк на основе значения ячейки. например, если ячейка содержит цифру 18, автоматически 18 строк должны быть добавлены туда, где я хочу, а остальная часть таблицы/ячейки должна сместиться вниз.
Этот комментарий был сведен к минимуму модератором на сайте
Большое спасибо за это, действительно огромная экономия времени. Можно ли добавить какой-нибудь код, который позволит мне вставить текст в новую строку. Например, я вставляю новые строки на основе целевого значения «x», затем я хочу добавить текстовое значение «y» в ячейку ниже целевого значения «x». Это возможно?
Этот комментарий был сведен к минимуму модератором на сайте
Привет. Макрос работает для меня, но есть ли способ, чтобы диапазон/параметры всегда устанавливались в столбец J без появления поля ввода? Я хотел бы, чтобы он пропустил шаг появления поля ввода. Кроме того, я убедился, что непосредственно перед этим макросом последней строкой моего предыдущего макроса является Range("J:J"). Выберите, чтобы убедиться, что весь столбец J уже выбран.
Это то, что я использовал до сих пор.

Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "Нажмите OK, чтобы продолжить"
Установите WorkRng = Application.Selection
Установите WorkRng = Application.InputBox ("Диапазон", xTitleId, WorkRng.Address, Type: = 8)
Установите WorkRng = WorkRng.Columns(1)
ОтправитьКлючи "~"
xLastRow = WorkRng.Rows.Count
Приложение.ScreenUpdating = False
Для xRowIndex = xLastRow To 1 Step -1
Установите Rng = WorkRng.Range("A" & xRowIndex)
Если Rng.Value = "Новая линия GMS" Тогда
Rng.EntireRow.Insert Shift:=xlDown
End If
Далее


Я пробовал экспериментировать с использованием команды SendKeys «~» между некоторыми шагами, чтобы попытаться заставить ее автоматически нажимать ввод, когда появляется поле ввода, но это тоже не сработало. Я не был уверен, где именно использовать команду SendKeys в макросе и будет ли она вообще работать с полем ввода!
Этот комментарий был сведен к минимуму модератором на сайте
пожалуйста, помогите мне получить данные. У меня есть данные за один месяц, в которые я должен вставить пустые строки в соответствии со временем выхода
Этот комментарий был сведен к минимуму модератором на сайте
Привет, hr.babu08, извините, что ответ запоздал. Я предполагаю, что вы хотите вставить пустые строки или сделать отметку для отсутствующих данных последовательности, если это так, вы можете попробовать Kutools for Excel Функция «Найти отсутствующий порядковый номер». Вот руководство по этой функции: https://www.extendoffice.com/product/kutools-for-excel/excel-find-missing-numbers-in-sequence.htmlIf вам нужны другие методы вставки пустых строк для отсутствующей последовательности, посетите:https://www.extendoffice.com/documents/excel/3522-excel-find-missing-dates.html</div>;
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуйте,
Можно ли использовать/изменить этот маркер для цветных ячеек?
Мне нужно вставить как минимум 10 строк выше конца каждой цветной серии.
Спасибо!
Этот комментарий был сведен к минимуму модератором на сайте
Мне нужно добавить определенные строки со значениями в них для определенного содержимого ячейки, но я не знаю, как это сделать, не выполняя вручную более 3800+ строк.

Пример: A1 = Node1
Мне нужно вставить строку и ввести значение Scanner
Введите другую строку и введите значение Printer
другая строка со значением CD.
И т.д
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Крис, вот VBA может помочь вам автоматически вставить три строки (сканер, принтер, компакт-диск), когда значение равно Node1.
Sub BlankLine()
'ByExtendoffice
Dim Rng As Range

Dim WorkRng As Range

Dim xRngI As Range

On Error Resume Next

xTitleId = "KutoolsforExcel"

Set WorkRng = Application.Selection

Set WorkRng = Application.InputBox("Select a range", xTitleId, WorkRng.Address, Type:=8)

Set WorkRng = WorkRng.Columns(1)

xLastRow = WorkRng.Rows.Count

Application.ScreenUpdating = False

For xRowIndex = xLastRow To 1 Step -1

  Set Rng = WorkRng.Range("A" & xRowIndex)

  If Rng.Value = "Node1" Then

    Rng.Offset(1, 0).EntireRow.Insert Shift:=xlDown

    Rng.Offset(1, 0).EntireRow.Insert Shift:=xlDown

    Rng.Offset(1, 0).EntireRow.Insert Shift:=xlDown

    Rng.Offset(1, 0).Value = "Scanner"

    Rng.Offset(2, 0).Value = "Printer"

    Rng.Offset(3, 0).Value = "CD"

  End If

Next

Application.ScreenUpdating = True

End Sub

Пожалуйста, дайте мне знать, если работает для вас.
Здесь еще нет комментариев
Загрузить ещё
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL