Cum se completează automat formula atunci când se inserează rânduri în Excel?

Când inserați rânduri goale între rândurile de date existente, formula nu va copia și lipi în noul rând, ar trebui să o trageți sau să o completați manual. Dar, uneori, ați dori să completați formula atunci când inserați automat rânduri goale între intervalul de date, după cum se arată în următoarea captură de ecran, în acest articol, voi vorbi despre câteva trucuri rapide pentru a rezolva această sarcină.

Completați automat formula atunci când inserați rânduri goale cu crearea unui tabel

Formula de completare automată atunci când introduceți rânduri goale cu cod VBA

Completați automat formula atunci când inserați rânduri goale cu crearea unui tabel

În Excel, formatul Tabel vă poate ajuta să completați formula de mai sus în noile rânduri goale inserate automat, vă rugăm să faceți următoarele:

1. Selectați intervalul de date pe care doriți să îl completați automat, apoi faceți clic pe Insera > Tabel, vezi captura de ecran:

2. În Creați tabel dialog, verificați Masa mea are antete dacă există anteturi în datele dvs., consultați captura de ecran:

3. Apoi apasa OK , iar tabelul a fost creat și acum, când introduceți un rând gol, formula de mai sus va fi inserată automat în noul rând, vedeți captura de ecran:

Formula de completare automată atunci când introduceți rânduri goale cu cod VBA

Dacă nu vă place să schimbați datele în tabel, codul VBA de mai jos vă poate ajuta, de asemenea, să realizați această problemă.

1. Selectați fila Foaie de lucru care conține formulele pe care doriți să le completați automat și faceți clic dreapta pentru a alege Afișați codul din meniul contextual pentru a accesa Microsoft Visual Basic pentru aplicații , apoi copiați și lipiți următorul cod în modul:

Cod VBA: formula de completare automată atunci când introduceți rânduri goale

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. Apoi salvați și închideți acest cod, reveniți la foaia de lucru, acum, când faceți dublu clic pe o celulă între date, un rând nou va fi inserat sub celula activă și formula este completată automat.

Demo: Formula de completare automată la introducerea rândurilor goale