Как да вмъкна или изтрия частичен ред в Excel?
Лесно е да вмъкнете или изтриете цял ред от работен лист в Excel. Но как да вмъкна или изтрия само частичен ред от работен лист? Тази статия ще ви помогне.
Вмъкване или изтриване на частичен ред с функцията Вмъкване/Изтриване на клетки
Вмъкване или изтриване на частичен ред с VBA код
Вмъкване или изтриване на частичен ред с функцията Вмъкване/Изтриване на клетки
Например искате да вмъкнете или изтриете частичен ред в ред 5 с три клетки, моля, направете следното.
Вмъкване на частичен ред
1. Изберете три клетки в ред 5 (избраните клетки трябва да са равни на вмъкнатите клетки), след което щракнете Поставете > Вмъкване на клетки под Начало раздел. Вижте екранна снимка:
2. В Поставете изберете диалоговия прозорец Преместете клетките надясно or Преместете клетките надолу и след това кликнете върху OK бутон.
След това се вмъква частичен ред с три клетки, както е показано на екранната снимка по-долу.
Изтриване на частичен ред
1. След като изберете частичния ред, който искате да изтриете, щракнете върху Изтриване > Изтриване на клетки под Начало раздела.
2. В Изтрий изберете диалоговия прозорец Преместете клетките наляво or Преместете клетките нагоре както ви е необходимо, и след това щракнете върху OK бутон. Вижте екранна снимка:
След това избраният частичен ред се изтрива.
Вмъкване или изтриване на частичен ред с VBA код
Можете също да приложите следните VBA кодове, за да вмъкнете или изтриете частичен ред в Excel.
1. Изберете която и да е клетка в определен ред, в който искате да вмъкнете частични редове, след което натиснете Друг + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2. В Microsoft Visual Basic за приложения прозорец, кликнете Поставете > Модули. И след това копирайте и поставете долния VBA код в код прозорец.
VBA код: Вмъкване на частичен ред в Excel
Sub InsertRow()
Dim I As Long
On Error Resume Next
LInput:
I = Application.InputBox("Enter number of rows required.", "Kutools for Excel", 1, , , , , 1)
If I < 1 Then
MsgBox "Error, please retype", vbInformation, "Kutools for Excel"
GoTo LInput
End If
Cells(ActiveCell.Row, 1).Resize(Int(I), 3).Insert xlDown
End SubЗабележка: В кода на VBA номер 1 означава, че частичният ред ще бъде вмъкнат от първата колона, а номерът 3 означава, че ще вмъкне три клетки между колоните. Можете да ги промените според вашите нужди.
3. Натисни F5 клавиш за изпълнение на кода, след това a Kutools за Excel се появява диалогов прозорец, моля, въведете броя на необходимите редове, от които се нуждаете, и след това щракнете върху OK бутон.
Ако въведете 3 в полето, след като щракнете върху OK бутон, три частични реда с три колони ще бъдат вмъкнати в определена позиция на вашия работен лист.
За да изтриете частичен ред, можете да изпълните следния VBA код.
VBA код: Изтрийте частичен ред в Excel
Sub DelActiveCell_Row()
Dim I As Long
On Error Resume Next
LInput:
I = Application.InputBox("Enter number of rows required.", "Kutools for Excel", 1, , , , , 1)
If I < 1 Then
MsgBox " Error, please retype", vbInformation, "Kutools for Excel"
GoTo LInput
End If
Cells(ActiveCell.Row, 1).Resize(Int(I), 3).Delete xlShiftUp
End SubСлед стартиране на кода има и a Kutools за Excel се появява диалогов прозорец, за да ви напомни колко частични реда искате да изтриете, моля, въведете номера и щракнете върху OK бутон. След това посочените частични редове се изтриват незабавно.
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
