Hogyan lehet automatikusan kitölteni a képletet, amikor sorokat illeszt be az Excelbe?
Ha üres sorokat illeszt be a meglévő adatsorok közé, a képlet nem másolódik és nem illeszkedik be az új sorba, kézzel kell húznia vagy kitöltenie. De néha ki szeretné tölteni a képletet, amikor üres sorokat szúr be az adattartomány közé, ahogy ezt a képernyőképet bemutatja, ez a cikk, néhány gyors trükköt fogok beszélni a feladat megoldására.
Automatikus kitöltési képlet üres sorok beszúrásakor egy táblázat létrehozásával
Automatikus kitöltési képlet üres sorok VBA kóddal történő beszúrásakor
Automatikus kitöltési képlet üres sorok beszúrásakor egy táblázat létrehozásával
Az Excelben a Táblázat formátum segíthet abban, hogy a fenti képletet automatikusan kitöltse az új beillesztett üres sorokba, kérjük, tegye a következőket:
1. Jelölje ki azt az adattartományt, amelyet automatikusan szeretne kitölteni a képlettel, majd kattintson a gombra betétlap > Táblázat, lásd a képernyőképet:
2. Az Táblázat létrehozása párbeszédpanelen ellenőrizze a Az asztalom fejlécekkel rendelkezik ha vannak fejlécek az adatokban, lásd a képernyőképet:
3. Ezután kattintson OK gombra, és a táblázat létrejött, és most, amikor beilleszt egy üres sort, a fenti képlet automatikusan beilleszkedik az új sorba, lásd a képernyőképet:
Automatikus kitöltési képlet üres sorok VBA kóddal történő beszúrásakor
Ha nem szeretné az adatokat táblázatra módosítani, akkor az alábbi VBA-kód is segíthet a probléma elérésében.
1. Válassza ki a munkalap fület, amely tartalmazza az automatikus kitöltési képleteket, és kattintson a jobb gombbal a kiválasztáshoz Kód megtekintése a helyi menüből a Microsoft Visual Basic for Applications ablakot, majd másolja és illessze be a következő kódot a modulba:
VBA kód: Automatikus kitöltési képlet üres sorok beszúrásakor
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. Ezután mentse el és zárja be ezt a kódot, menjen vissza a munkalapra. Most, amikor duplán kattint egy cellára az adatok között, új sor kerül be az aktív cella alá, és a képlet is automatikusan kitöltésre kerül.
Bemutató: Képlet automatikus kitöltése üres sorok beszúrásakor
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!