Ինչպե՞ս ջնջել եզակի արժեքները Excel- ի սյունակից:
Սովորաբար, մեզանից շատերը ցանկանում են սյունակից վերացնել կրկնօրինակ արժեքները, բայց երբեմն գուցե ցանկանաք հեռացնել այն եզակի արժեքները, որոնք սյունակում հայտնվում են միայն մեկ անգամ: Այս ձեռնարկը խոսում է այն հնարքների մասին, որոնք դուք պետք է հանեք եզակի արժեքները միայն Excel- ի սյունակից:
Excel- ում ջնջեք անբավարար արժեքները VBA- ով
Excel- ի համար Kutools- ի միջոցով ջնջեք անբավարար արժեքները
Excel- ում ջնջեք անբավարար արժեքները VBA- ով
VBA- ի օգտագործումը կարող է արագորեն ջնջել բոլոր եզակի արժեքները մեկ սյունակից:
1. Մամուլ Alt + F11 ցուցադրելու համար Microsoft Visual Basic հավելվածների համար պատուհան.
2. Պատուհանում կտտացրեք Տեղադրել > Մոդուլներ ցույց տալ նոր մոդուլի պատուհան, ապա պատճենել հետևյալ VBA կոդը մոդուլի պատուհանում:
VBA. Սյունակից ջնջիր եզակի արժեքները:
Sub DeleteUnique()
'Updateby20140617
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
Dim Dic As Variant
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)
Set Dic = CreateObject("Scripting.Dictionary")
Arr = WorkRng.Value
For i = 1 To UBound(Arr, 1)
xValue = Arr(i, 1)
Dic(xValue) = Dic(xValue) + 1
Next
WorkRng.ClearContents
Arr = WorkRng.Value
xIndex = 1
For Each xKey In Dic.keys
xValue = Dic(xKey)
If xValue > 1 Then
For i = 1 To xValue
Arr(xIndex, 1) = xKey
xIndex = xIndex + 1
Next
End If
Next
WorkRng.Value = Arr
End Sub
3: սեղմեք Վազում VBA կոդն աշխատեցնելու կոճակ, և ա KutoolsforExcel երկխոսությունը դուրս է գալիս `աշխատելու համար միջակայք ընտրելու համար: Տեսեք,
4: սեղմեք OK, և բոլոր եզակի արժեքները ջնջվում են:
Excel- ի համար Kutools- ի միջոցով ջնջեք անբավարար արժեքները
Եթե դուք ծանոթ չեք VBA- ին, կարող եք մտածել, որ Excel- ում եզակի արժեքները հանելու համար Excel- ում ընտրեք Kutools- ի Ընտրեք կրկնօրինակ և եզակի բջիջներ:
Excel- ի համար նախատեսված գործիքներ ներառում է ավելի քան 300 հարմար Excel գործիքներ: Փորձեք առանց սահմանափակումների 30 օրվա ընթացքում: Get it Now
1. Ընտրեք այն սյունակը, որից ցանկանում եք ջնջել եզակի արժեքները, և կտտացրեք Կուտոլս > Ընտրեք գործիքներ > Ընտրեք Կրկնօրինակ և եզակի բջիջներ, Տեսեք,
2. Բացվող պատուհանում ստուգեք Միայն եզակի արժեքներ եւ սեղմեք Ok, ապա դուրս գալ այս երկխոսությունից: Տեսեք,
3. Ապա բոլոր արժեքները հայտնվում են միայն մեկ անգամ ընտրված: Եվ սեղմեք աջ կտտոցով կտտացնելու համար ջնջել համատեքստային ընտրացանկում: Տեսեք,
4. Մեջ ջնջել երկխոսություն, ստուգեք Ամբողջ շարքը և կտտացրեք OK, Տեսեք,
Այժմ դուք կարող եք տեսնել, որ եզակի արժեքները հանվում են:
ԱկնարկԵթե պարզապես ցանկանում եք հեռացնել բջջի պարունակությունը, կարող եք կտտացնել Մաքրել բովանդակությունը 3-րդ քայլի համատեքստային ընտրացանկից:
Հարաբերական հոդվածներ:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: