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

Ինչպե՞ս ջնջել եզակի արժեքները 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 երկխոսությունը դուրս է գալիս `աշխատելու համար միջակայք ընտրելու համար: Տեսեք,

 

doc- ջնջել-եզակի -1

4: սեղմեք OK, և բոլոր եզակի արժեքները ջնջվում են:


նետ կապույտ աջ պղպջակ Excel- ի համար Kutools- ի միջոցով ջնջեք անբավարար արժեքները

Եթե ​​դուք ծանոթ չեք VBA- ին, կարող եք մտածել, որ Excel- ում եզակի արժեքները հանելու համար Excel- ում ընտրեք Kutools- ի Ընտրեք կրկնօրինակ և եզակի բջիջներ:

Excel- ի համար նախատեսված գործիքներ ներառում է ավելի քան 300 հարմար Excel գործիքներ: Փորձեք առանց սահմանափակումների 30 օրվա ընթացքում: Get it Now

1. Ընտրեք այն սյունակը, որից ցանկանում եք ջնջել եզակի արժեքները, և կտտացրեք Կուտոլս > Ընտրեք գործիքներ > Ընտրեք Կրկնօրինակ և եզակի բջիջներ, Տեսեք,

doc- ջնջել-եզակի -2

2. Բացվող պատուհանում ստուգեք Միայն եզակի արժեքներ եւ սեղմեք Ok, ապա դուրս գալ այս երկխոսությունից: Տեսեք,

doc- ջնջել-եզակի -3

3. Ապա բոլոր արժեքները հայտնվում են միայն մեկ անգամ ընտրված: Եվ սեղմեք աջ կտտոցով կտտացնելու համար ջնջել համատեքստային ընտրացանկում: Տեսեք,

doc- ջնջել-եզակի -4

4. Մեջ ջնջել երկխոսություն, ստուգեք Ամբողջ շարքը և կտտացրեք OK, Տեսեք,

doc- ջնջել-եզակի -5

Այժմ դուք կարող եք տեսնել, որ եզակի արժեքները հանվում են:

doc- ջնջել-եզակի -6 դոկ-նետ doc- ջնջել-եզակի -7

ԱկնարկԵթե ​​պարզապես ցանկանում եք հեռացնել բջջի պարունակությունը, կարող եք կտտացնել Մաքրել բովանդակությունը 3-րդ քայլի համատեքստային ընտրացանկից:

Կարող եք սեղմել այստեղ ՝ Ընտրելու համար կրկնօրինակ և եզակի բջիջների մասին լրացուցիչ տեղեկություններ իմանալու համար:


Հարաբերական հոդվածներ:

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

🤖 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 (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
It works great! Thanks!Only issue is it doesn't extend the selection to delete the whole row. But it works. Thanks.
This comment was minimized by the moderator on the site
VBA code does not work....I use option explicit and while I Dim xValue as Variant, keeps saying variable not defined. I'd say a good 80% of copied code from net does not work at first shot.
This comment was minimized by the moderator on the site
You are a life saver. God bless you
This comment was minimized by the moderator on the site
How would one tweak the VBA code to delete the entire row based on unique value of one field only? The Kutools for Excel allow deletion of the entire row, but the code deletes only the unique values from one field. Thank you,
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations