Як автоматично вставити рядок на основі значення комірки в 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. Виберіть список, з якого ви хочете дізнатись конкретні комірки, та натисніть Кутулс > Select > Виберіть певні клітини. Дивіться знімок екрана:
2. У діалоговому вікні, що з’являється, поставте галочку Весь ряд , а потім перейдіть до виберіть Так само від Конкретний тип , а потім введіть значення, яке потрібно знайти, у правому текстовому полі. Дивіться знімок екрана:
3. клацання Ok, і з’явиться діалогове вікно, щоб нагадати вам кількість вибраних рядків, просто закрийте його.
4. Наведіть курсор на один вибраний рядок і клацніть правою кнопкою миші, щоб вибрати Insert з контекстного меню. Дивіться знімок екрана:
Тепер рядки вставляються вище на основі певного значення.
Вставте рядки вгорі на основі значення клітинки
Відносні статті:
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!