Hoe een formule automatisch in te vullen bij het invoegen van rijen in Excel?
Wanneer je lege rijen invoegt tussen bestaande datarijen, wordt de formule niet automatisch gekopieerd en geplakt in de nieuwe rij. Je moet deze handmatig slepen of invullen. Maar soms wil je de formule automatisch invullen wanneer je lege rijen tussen een databereik invoegt, zoals in de volgende schermafbeelding te zien is. In dit artikel bespreek ik enkele snelle trucs om deze taak op te lossen.
Formule automatisch invullen bij het invoegen van lege rijen door een tabel te maken
Formule automatisch invullen bij het invoegen van lege rijen met VBA-code
Formule automatisch invullen bij het invoegen van lege rijen door een tabel te maken
In Excel kan de tabelindeling je helpen om bovenstaande formule automatisch in de nieuw ingevoegde lege rijen in te vullen. Volg hiervoor de volgende stappen:
1. Selecteer het databereik waarvoor je de formule automatisch wilt invullen en klik vervolgens op Invoegen > Tabel, zie onderstaande schermafbeelding:
2. Schakel in het dialoogvenster Tabel maken de optie Mijn tabel heeft kopteksten in als er kopteksten in je gegevens staan, zie onderstaande schermafbeelding:
3. Klik vervolgens op de knop OK en de tabel is gemaakt. Nu zal, wanneer je een lege rij invoegt, de bovenstaande formule automatisch in de nieuwe rij worden ingevoegd, zie onderstaande schermafbeelding:
Formule automatisch invullen bij het invoegen van lege rijen met VBA-code
Als je de gegevens niet wilt omzetten naar een tabel, kan de onderstaande VBA-code je ook helpen om dit probleem op te lossen.
1. Selecteer het werkbladtabblad dat de formules bevat die je automatisch wilt invullen en klik met de rechtermuisknop om Weergave Code te kiezen uit het contextmenu om naar het venster Microsoft Visual Basic for Applications te gaan. Kopieer en plak vervolgens de volgende code in de Module:
VBA-code: Formule automatisch invullen bij het invoegen van lege rijen
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby Extendoffice 20160725
Cancel = True
Target.Offset(1).EntireRow.Insert
Target.EntireRow.Copy Target.Offset(1).EntireRow
On Error Resume Next
Target.Offset(1).EntireRow.SpecialCells(xlConstants).ClearContents
End Sub
2. Sla daarna de code op en sluit deze, ga terug naar het werkblad. Nu, wanneer je dubbelklikt op een cel tussen de gegevens, wordt er een nieuwe rij onder de actieve cel ingevoegd en wordt de formule ook automatisch ingevuld.
Demo: Formule automatisch invullen bij het invoegen van lege rijen
Beste Office-productiviteitstools
Versterk je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!