Ինչպե՞ս ինքնալրացնել բանաձևը Excel- ում տողեր տեղադրելու ժամանակ:

Երբ առկա տողերի միջև դատարկ տողեր եք տեղադրում, բանաձևը չի կրկնօրինակվի և չի տեղադրվի նոր շարքում, այն պետք է ձեռքով քաշել կամ լրացնել: Բայց երբեմն, դուք կցանկանայիք լրացնել բանաձևը, երբ տվյալների տիրույթի միջև դատարկ տողեր եք տեղադրում, ինչպես ցույց է տրված սքրինշոթով, այս հոդվածում, ես կխոսեմ այս խնդիրը լուծելու որոշ արագ հնարքների մասին:

Ավտոմատ լրացրեք բանաձևը, երբ դատարկ տողերը տեղադրում են սեղան ստեղծելով

Ավտոմատ լրացնելու բանաձեւը VBA կոդով դատարկ տողեր տեղադրելու ժամանակ

Ավտոմատ լրացրեք բանաձևը, երբ դատարկ տողերը տեղադրում են սեղան ստեղծելով

Excel- ում Աղյուսակի ձևաչափը կարող է օգնել վերոհիշյալ բանաձևը ավտոմատ կերպով լրացնել նոր տեղադրված դատարկ շարքերում, խնդրում ենք կատարել հետևյալը.

1. Ընտրեք տվյալների տիրույթը, որը ցանկանում եք ավտոմատ կերպով լրացնել բանաձևը, ապա կտտացնել Տեղադրել > Սեղան, տես նկարի նկարը.

2, Մեջ Ստեղծեք աղյուսակը երկխոսություն, ստուգեք Իմ սեղանը վերնագրեր ունի եթե ձեր տվյալների մեջ վերնագրեր կան, տես նկարի նկարը.

3. Այնուհետեւ կտտացրեք OK կոճակը, և աղյուսակը ստեղծվել է, և այժմ, երբ դուք տեղադրեք դատարկ տող, վերը նշված բանաձևը ավտոմատ կերպով կտեղադրվի նոր շարքում, տես նկարի նկարը.

Ավտոմատ լրացնելու բանաձեւը VBA կոդով դատարկ տողեր տեղադրելու ժամանակ

Եթե ​​չեք սիրում տվյալները փոխել աղյուսակի, ապա այս խնդրին հասնելու համար կօգնեն նաև ստորև նշված VBA կոդը:

1, Ընտրեք աշխատաթերթը, որը պարունակում է բանաձևեր, որոնք ցանկանում եք ավտոմատ կերպով լրացնել, և աջ կտտացրեք ընտրելու համար Դիտել կոդը համատեքստային ընտրացանկից անցնել Microsoft Visual Basic հավելվածների համար պատուհանը, ապա պատճենեք և տեղադրեք հետևյալ կոդը Մոդուլի մեջ.

VBA կոդ. Դատարկ տողեր տեղադրելու ժամանակ ավտոմատ լրացրեք բանաձևը

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, Դրանից հետո պահեք և փակեք այս կոդը, վերադառնաք աշխատանքային թերթիկ, հիմա, երբ տվյալների միջեւ բջիջը կրկնակի կտտացրեք, ակտիվ բջիջի տակ նոր տող կտեղադրվի և բանաձևն ինքնաբերաբար լրացվում է:

Դեմո. Դատարկ տողեր տեղադրելու ժամանակ ավտոմատ լրացրեք բանաձևը