Hoe een gedeeltelijke rij in Excel invoegen of verwijderen?
Het is gemakkelijk om een hele rij in het werkblad in Excel in te voegen of te verwijderen. Maar hoe kan ik alleen een gedeeltelijke rij uit het werkblad invoegen of verwijderen? Dit artikel zal je helpen.
Voeg een gedeeltelijke rij in of verwijder deze met de functie Cellen invoegen / verwijderen
Voeg een gedeeltelijke rij in of verwijder deze met VBA-code
Voeg een gedeeltelijke rij in of verwijder deze met de functie Cellen invoegen / verwijderen
Als u bijvoorbeeld een gedeeltelijke rij in rij 5 met drie cellen wilt invoegen of verwijderen, gaat u als volgt te werk.
Deelrij invoegen
1. Selecteer drie cellen in rij 5 (de geselecteerde cellen moeten gelijk zijn aan de ingevoegde cellen) en klik op Invoegen > Cellen invoegen voor Home tabblad. Zie screenshot:
2. In de Invoegen dialoogvenster, selecteer Schuif cellen naar rechts or Verplaats cellen naar beneden optie en klik vervolgens op de OK knop.
Vervolgens wordt een gedeeltelijke rij met drie cellen ingevoegd zoals onderstaand screenshot.
Verwijder een gedeeltelijke rij
1. Nadat u de gedeeltelijke rij heeft geselecteerd die u wilt verwijderen, klikt u op Verwijderen> Cellen verwijderen voor Home Tab.
2. In de Verwijder dialoogvenster, selecteer Verplaats cellen naar links or Schuif cellen omhoog zoals u nodig heeft en klik vervolgens op de OK knop. Zie screenshot:
Vervolgens wordt de geselecteerde deelrij verwijderd.
Voeg een gedeeltelijke rij in of verwijder deze met VBA-code
U kunt ook de volgende VBA-codes toepassen om een gedeeltelijke rij in Excel in te voegen of te verwijderen.
1. Selecteer een cel in een bepaalde rij waarin u gedeeltelijke rijen wilt invoegen, en druk vervolgens op anders + F11 om de te openen Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module. En kopieer en plak vervolgens de onderstaande VBA-code in het Code venster.
VBA-code: voeg een gedeeltelijke rij in Excel in
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
Note: In de VBA-code betekent nummer 1 dat de gedeeltelijke rij wordt ingevoegd vanaf de eerste kolom, en nummer 3 betekent dat er drie cellen tussen de kolommen worden ingevoegd. U kunt ze wijzigen op basis van uw behoeften.
3. druk de F5 sleutel om de code uit te voeren, en dan een Kutools for Excel dialoogvenster verschijnt, voer het aantal vereiste rijen in dat u nodig heeft en klik vervolgens op de OK knop.
Als u 3 in het vak invoert, klikt u op de OK knop, worden drie gedeeltelijke rijen met drie kolommen ingevoegd op de opgegeven positie van uw werkblad.
Voor het verwijderen van een gedeeltelijke rij, kunt u de onderstaande VBA-code uitvoeren.
VBA-code: verwijder een gedeeltelijke rij in 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
Na het uitvoeren van de code is er ook een Kutools for Excel dialoogvenster verschijnt om u eraan te herinneren hoeveel gedeeltelijke rijen u wilt verwijderen, voer het nummer in en klik op de OK knop. Vervolgens worden de opgegeven deelrijen onmiddellijk verwijderd.
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!