Як автоматично вставити рядок на основі значення комірки в Excel?
Вставте рядок нижче на основі значення комірки з VBA
Вставте рядок вище на основі значення комірки за допомогою Kutools для Excel
Вставте рядок нижче на основі значення комірки з VBA
Щоб вставити рядок на основі значення комірки, запустивши VBA, виконайте кроки нижче:
1. прес Alt + F11 одночасно клавіші та a Microsoft Visual Basic для додатків вискакує вікно.
2. клацання Insert > Модулі, потім вставте нижче код 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 клавішу або прогін , вискакує діалогове вікно і виберіть стовпець, що містить нуль. Дивіться знімок екрана:
4. клацання OK. Тоді порожні рядки будуть вставлені нижче нульового значення.
Чайові:
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
Вставте рядок вище на основі значення комірки за допомогою Kutools для Excel
Якщо ви не знайомі з VBA, можете спробувати Kutools для Excel's Виберіть певні клітини , а потім вставте рядки вгорі.
| Kutools для Excel, з більш ніж 300 зручні функції, полегшує вам роботу. | ||
після установки Kutools для Excel, будь-ласка, виконайте наведені нижче дії:（Безкоштовно завантажте Kutools для Excel зараз!)
1. Виберіть список, з якого ви хочете дізнатись конкретні комірки, та натисніть Кутулс > вибрати > Виберіть певні клітини. Дивіться знімок екрана:
2. У діалоговому вікні, що з’являється, поставте галочку Весь ряд , а потім перейдіть до виберіть Так само від Конкретний тип , а потім введіть значення, яке потрібно знайти, у правому текстовому полі. Дивіться знімок екрана:
3. клацання Ok, і з’явиться діалогове вікно, щоб нагадати вам кількість вибраних рядків, просто закрийте його.
4. Наведіть курсор на один вибраний рядок і клацніть правою кнопкою миші, щоб вибрати Insert з контекстного меню. Дивіться знімок екрана:
Тепер рядки вставляються вище на основі певного значення.
Вставте рядки вгорі на основі значення клітинки
Відносні статті:
Найкращі інструменти для підвищення продуктивності офісу
Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%
- Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
- Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
- Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
- Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
- Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
- Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
- Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
- Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
- Понад 300 потужних функцій. Підтримує Office / Excel 2007-2021 і 365. Підтримує всі мови. Легке розгортання на вашому підприємстві чи в організації. 30-денна безкоштовна пробна версія повних функцій. 60-денна гарантія повернення грошей.
Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
