Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս համարել շարքերը Excel- ում տողերը ավտոմատ կերպով մտցնելուց կամ ջնջելուց հետո:

Ենթադրելով, որ ես սյունակում համարակալել եմ տողերը 1-ից 20-ը, այժմ, երբ տվյալների տիրույթից տող եմ տեղադրում կամ ջնջում, ուզում եմ, որ թվերի ցանկը կարող է ավտոմատ կերպով համարակալվել: Արդյո՞ք այս խնդիրը կարող է կատարվել Excel- ում:

Թվերի տողերը բանաձեւերով տողերը ավտոմատ կերպով մտցնելուց կամ ջնջելուց հետո

VBA կոդով տողերը ավտոմատ կերպով տեղադրելուց կամ ջնջելուց հետո համարների տողեր


Թվերի տողերը բանաձեւերով տողերը ավտոմատ կերպով մտցնելուց կամ ջնջելուց հետո

Իրականում, Excel- ում Row գործառույթը կարող է օգնել շարքերը տեղադրելուց կամ ջնջելուց հետո տողերն ավտոմատ կերպով համարակալել, խնդրում ենք անել հետևյալը.

1, Մուտքագրեք այս բանաձևը. = ROW () - 1 մեջ A2 բջիջ, և այնուհետև լրացնելու բռնիչը ներքև քաշեք դեպի այն բջիջները, որոնք ցանկանում եք համարակալել շարքերը, տեսեք,

փաստաթուղթ ավտոմատ համարի տողեր 1

ՆշումԵթե ​​ձեր համարների ցուցակը սկսվում է առաջին բջիջից, ապա բանաձևը կարող եք փոխել ինչպես = ROW (), դուք կարող եք ավելացնել կամ հանել բանաձևից, եթե ձեր համարները չեն համընկնում իրական շարքի հետ, օրինակ, = ROW () - 3, = ROW () + 10...

2, Դրանից հետո սեղան ստեղծեք այս տվյալների տիրույթի համար, ընտրեք տվյալների տիրույթը և կտտացրեք Տեղադրել > Սեղանեւ հետո ` Ստեղծեք աղյուսակը երկխոսության տուփ, ստուգեք Իմ սեղանը վերնագրեր ունի եթե ձեր տիրույթում կան վերնագրեր, տես նկարի նկարը.

փաստաթուղթ ավտոմատ համարի տողեր 2

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

փաստաթուղթ ավտոմատ համարի տողեր 3


VBA կոդով տողերը ավտոմատ կերպով տեղադրելուց կամ ջնջելուց հետո համարների տողեր

Բացառությամբ վերը նշված բանաձևի մեթոդից, այն կարող եք նաև ավարտել VBA կոդով:

1, Գնացեք այն աշխատաթերթը, որը ցանկանում եք ավտոմատ կերպով տեղադրել հաջորդականության համարները:

2. Աջ կտտացրեք թերթիկի ներդիրին և ընտրեք Դիտել կոդը համատեքստի ընտրացանկից ՝ դուրս եկած պատուհանում Microsoft Visual Basic հավելվածների համար պատուհանը, խնդրում ենք պատճենեք և տեղադրեք հետևյալ ծածկագիրը Մոդուլի դատարկ պատուհանում:

VBA կոդ. Տողերի տեղադրումը կամ ջնջումը ավտոմատ համարի տողեր.

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160612
    Dim I As Integer
    I = 1
    Application.EnableEvents = False
    For I = 1 To 20
        Range("A" & I).Value = I
    Next
    Range("A21").Value = ""
    Application.EnableEvents = True
End Sub

3, Դրանից հետո պահեք և փակեք այս կոդը, երբ առաջին համարը 1 մուտքագրեք A1 բջիջ, 1-ից մինչև 20 հաջորդականության համարները ինքնաբերաբար կլրացվեն: Եթե ​​ընդգրկույթից շարքեր եք տեղադրում կամ ջնջում, սերիայի համարը միանգամից ինքնաբերաբար կհամարվի:

ՆշումՎերոհիշյալ ծածկագրում `նամակը A նշում է սյունակի տառը, որը ցանկանում եք լրացնել հաջորդականության համարը, 1 20- ին այն տողերն են, որոնք ցանկանում եք համարակալել, և A21 ձեր վերջին համարակալված բջիջի կողքին գտնվող բջիջն է: Դուք կարող եք փոխել դրանք, ինչպես ձեզ հարկավոր է:


Տեղադրեք փամփուշտներ կամ համարակալման ցուցակ բջիջների սյունակում

Excel- ի համար նախատեսված գործիքներ's Տեղադրեք փամփուշտ եւ եսներդիր համարակալում առանձնահատկությունները կարող են օգնել արագորեն ներմուծել գնդիկավոր և համարակալման ցանկ բջիջների սյունակում: Կտտացրեք Excel- ի համար Kutools ներբեռնելու համար:

Excel- ի համար նախատեսված գործիքներ. Excel- ի ավելի քան 300 հարմարավետ հավելումներով, 30 օրվա ընթացքում անվճար փորձեք առանց սահմանափակումների: Ներբեռնեք և անվճար փորձեք հիմա:


Դեմո. Excel- ի թերթում տողերն ավտոմատ կերպով տեղադրելուց կամ ջնջելուց հետո համարների տողեր

Գրասենյակի արտադրողականության լավագույն գործիքները

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն


Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
is there any formula?
This comment was minimized by the moderator on the site
if i delete the row, is there any possibility to set below numbers are in serial
This comment was minimized by the moderator on the site
Thanks....
This comment was minimized by the moderator on the site
Just what I was looking for thank you!!
This comment was minimized by the moderator on the site
very very thanks! http://www.extendoffice.com<br /> :D
This comment was minimized by the moderator on the site
It doesn't work for me. It won't allow me to insert a table for more than one row. If I proceed without it, it does not change the numbers after deleting or adding a row. Please advise. Thanks!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations