Ինչպե՞ս դինամիկ կերպով Excel- ում սյունակի տիրույթից հանել եզակի արժեքների ցուցակը:
Սյունակի տիրույթի համար, որի արժեքները պարբերաբար փոխվում են, և միշտ անհրաժեշտ է տիրույթից ստանալ բոլոր եզակի արժեքները, անկախ նրանից, թե ինչպես է այն փոխվել: Ինչպե՞ս կազմել եզակի արժեքների դինամիկ ցուցակ: Այս հոդվածը ձեզ ցույց կտա, թե ինչպես վարվել դրա հետ:
Բանաձևով սյունակի տիրույթից դինամիկ կերպով հանեք եզակի արժեքների ցուցակը
VBA կոդով սյունակի տիրույթից դինամիկ կերպով հանեք եզակի արժեքների ցուցակը
Բանաձևով սյունակի տիրույթից դինամիկ կերպով հանեք եզակի արժեքների ցուցակը
Ինչպես ցույց է տրված նկարից ներքևում, դուք պետք է դինամիկ կերպով հանեք եզակի արժեքների ցուցակ B2: B9 տիրույթից: Խնդրում ենք փորձել զանգվածի հետևյալ բանաձևը:
1. Ընտրեք դատարկ բջիջ, ինչպիսին է D2- ը, մուտքագրեք ներքևի բանաձևը և սեղմեք կոճակը Ctrl + Հերթափոխություն + Մտնել ստեղները միաժամանակ: (B2: B9 սյունակի տվյալներն են, որոնք ցանկանում եք արդյունահանել եզակի արժեքները, D1- ը վերը նշված բջիջն է, որտեղ գտնվում է ձեր բանաձևը)
=IFERROR(INDEX($B$2:$B$9, MATCH(0,COUNTIF($D$1:D1, $B$2:$B$9), 0)),"")
2. Շարունակեք ընտրել D2 բջիջը, այնուհետև քաշեք Լրացնելու բռնակը ներքև ՝ նշված տիրույթից բոլոր եզակի արժեքները ստանալու համար:
Այժմ արդյունահանվում են բոլոր եզակի արժեքները սյունակի տիրույթում B2: B9: Երբ այս միջակայքում արժեքները փոխվում են, եզակի արժեքների ցուցակը անմիջապես դինամիկորեն կփոխվի:
Excel- ի սահմաններում հեշտությամբ ընտրեք և ընդգծեք բոլոր եզակի արժեքները.
The Ընտրեք Կրկնօրինակ և եզակի բջիջներ օգտակարությունը Excel- ի համար նախատեսված գործիքներ կարող է օգնել ձեզ հեշտությամբ ընտրել և կարևորել բոլոր եզակի արժեքները (ներառել առաջին կրկնօրինակները) կամ եզակի արժեքները, որոնք հայտնվում են միայն մեկ անգամ, ինչպես նաև կրկնօրինակ արժեքները, ինչպես ձեզ հարկավոր է, ինչպես ցույց է տրված նկարում:
Ներբեռնեք Kutools-ը Excel-ի համար հիմա: (30 օր անվճար երթուղի)
VBA կոդով սյունակի տիրույթից դինամիկ կերպով հանեք եզակի արժեքների ցուցակը
Կարող եք նաև դինամիկ կերպով հանել եզակի արժեքների ցուցակը սյունակի տիրույթից հետևյալ VBA կոդով:
1. Մամուլ ալտ + F11 ստեղները միաժամանակ բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան.
2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, Դրանից հետո պատճենեք և տեղադրեք ներքևում նշված VBA կոդը ՝ Մոդուլներ պատուհան.
VBA կոդ. Մի շարքից հանիր եզակի արժեքների ցուցակը
Sub CreateUniqueList()
Dim xRng As Range
Dim xLastRow As Long
Dim xLastRow2 As Long
Dim I As Integer
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
xRng.Copy Range("D2")
xLastRow = xRng.Rows.Count + 1
ActiveSheet.Range("D2:D" & xLastRow).RemoveDuplicates Columns:=1, Header:=xlNo
xLastRow2 = Cells(Rows.Count, "B").End(xlUp).Row
For I = 1 To xLastRow2
If ActiveSheet.Range("D2:D" & xLastRow2).Cells(I).Value = "" Then
ActiveSheet.Range("D2:D" & xLastRow2).Cells(I).Delete
End If
Next
End Sub
ՆշումԿոդում `D2- ն այն բջիջն է, որը դուք կգտնեք եզակի արժեքների ցուցակում: Կարող եք փոխել ըստ անհրաժեշտության:
3. Վերադարձեք աշխատաթերթ, կտտացրեք Տեղադրել > Ձեւավորում > Ուղղանկյունի, Տեսեք,
4. Ձեր աշխատաթերթում նկարեք ուղղանկյուն, ապա մուտքագրեք դրա վրա անհրաժեշտ բառերը: Դրանից հետո սեղմեք այն աջով և ընտրեք Նշանակեք մակրո աջ կտտացնելու ցանկից: Մեջ Նշանակեք մակրո երկխոսության տուփ, ընտրեք ՍտեղծելUniqueList է Մակրո անուն տուփը, ապա կտտացրեք OK կոճակ Տեսեք,
5. Այժմ կտտացրեք ուղղանկյան կոճակին, ա Excel- ի համար նախատեսված գործիքներ երկխոսության պատուհանը հայտնվում է, խնդրում ենք ընտրել ընդգրկույթը պարունակում է եզակի արժեքներ, որոնք անհրաժեշտ է արդյունահանել, և այնուհետև կտտացրեք OK կոճակը:
Այսուհետ, կարող եք կրկնել վերոնշյալ 5-րդ քայլը ՝ եզակի արժեքների ցուցակն ավտոմատ կերպով թարմացնելու համար:
Առնչվող հոդվածներ:
- Ինչպե՞ս ստեղծել դինամիկ ամսական օրացույց Excel- ում:
- Ինչպե՞ս Excel- ում բջիջի մեջ դինամիկ կերպով տեղադրել նկարը կամ նկարը:
- Ինչպե՞ս ստեղծել դինամիկ գերհղում Excel- ում մեկ այլ թերթի:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: