Note: The other languages of the website are Google-translated. Back to English

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

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

Ավտոմեքենա կամ համարը զտիչից հետո VBA կոդով

Excel- ի համար Kutools- ով զտիչից հետո համարի ավտոմատ կամ համարը համարը

doc-renumber-filter-1 -2 doc-renumber-filter-2

Ավտոմեքենա կամ համարը զտիչից հետո VBA կոդով

Theտված կարգավիճակում համարների հաջորդականությունը լրացնելու համար դուք չեք կարող կիրառել «Ավտոմատ լրացման» բռնիչ, պարզապես կարող եք լրացնել դրանք `մեկ առ մեկ մուտքագրելով թվերը: Բայց դա հոգնեցուցիչ և ժամանակատար կլինի, եթե կան բազմաթիվ բջիջներ, որոնք անհրաժեշտ են վերաթվարկել: Այստեղ ես կներկայացնեմ VBA կոդ `այս խնդիրը լուծելու համար:

1, Պահեք պահեք ALT + F11 ստեղները, և այն բացում է Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ մակրոը ՝ Մոդուլի պատուհանը.

VBA կոդ. Autoտիչից հետո ավտոմեքենայի համարը կամ համարը համարը

Sub Renumbering()
	'Updateby Extendoffice
	Dim Rng As Range
	Dim WorkRng As Range
	On Error Resume Next
	xTitleId = "KutoolsforExcel"
	Set WorkRng = Application.Selection
	Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
	Set WorkRng = WorkRng.Columns(1).SpecialCells(xlCellTypeVisible)
	xIndex = 1
	For Each Rng In WorkRng
		Rng.Value = xIndex
		xIndex = xIndex + 1
	Next
End Sub

3, Կոդի տեղադրումից հետո սեղմեք F5 այս կոդն աշխատեցնելու բանալին, և կհայտնվի հուշման տուփ ՝ հիշեցնելու համար, որ ընտրեք մի շարք բջիջներ, որոնք ցանկանում եք ավտոմատ համարակալել կամ շարքերը վերաշարադրել, տե՛ս նկարը.

doc-renumber-filter-3

4. Այնուհետեւ կտտացրեք OK, և ձեր ընտրած ընդգրկույթի բջիջները վերահամարակալվել են հաջորդաբար, ինչպես ցույց է տրված ստորև նշված էկրանի նկարը.

doc-renumber-filter-3

Նշում՝ Այս կոդը կկործանի շարքի տողի բնօրինակ համարները, երբ չեղարկեք զտիչի գործառույթը: Այսպիսով, նախ անհրաժեշտ է կրկնօրինակել ձեր տվյալները:


Excel- ի համար Kutools- ով զտիչից հետո համարի ավտոմատ կամ համարը համարը

Եթե ​​տեղադրեք Excel- ի համար նախատեսված գործիքներ, իր հզորով Տեղադրեք հաջորդականության համարը առանձնահատկությունը, դուք կարող եք զտված տվյալների մեջ հաջորդականության համարներ տեղադրել միայն արագ և հեշտությամբ:

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

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներխնդրում եմ արեք հետևյալը.

1, Selectտված տվյալների համար ընտրեք այն բջիջները, որոնք ցանկանում եք վերաթվարկել:

2. Այնուհետեւ կտտացրեք Կուտոլս > Տեղադրել > Տեղադրեք հաջորդականության համարը, տես նկարի նկարը.

3. Հետո դուրս եկավ Տեղադրեք հաջորդականության համարը երկխոսության վանդակում, սեղմեք նոր կոճակը, տես նկարի նկարը.

doc-renumber-filter-3

4, Եվ ապա ստեղծեք հաջորդականության ցուցակի համարները, ինչպես ձեզ հարկավոր է ձախ ներքևի բաժնում, տես նկարի նկարը.

doc-renumber-filter-3

5, Հաջորդականությունը սահմանելուց հետո կտտացրեք Ավելացնել կոճակը, և հաջորդականության տարրը ավելացվել է երկխոսության դաշտում, տես նկարի նկարը.

doc-renumber-filter-3

6. Եվ այնուհետեւ կտտացրեք Լրացնել միջակայքը,  և զտված տվյալները միանգամից համարակալվել են: Տեսեք,

doc-renumber-filter-3

Ներբեռնեք և անվճար փորձեք Kutools- ը Excel- ի համար:


Դեմո. Excel- ի համար Kutools- ով զտիչից հետո ինքնաբերաբար համարը կամ վերաթվարկեք համարը

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

Առնչվող հոդված:

Ինչպե՞ս ավտոմատ կերպով միացնել միավորված բջիջները Excel- ում:


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

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (2)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն, շատ շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Deseo felicitarlo(s) por tan EXCELente trabajo. Enhorabuena!
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից