Ինչպե՞ս հեռացնել կրկնօրինակները, բայց շարքի մնացած արժեքները պահել Excel- ում:
Excel- ում այն կհեռացնի բոլոր կրկնօրինակ արժեքները և կբարձրանա վեր, երբ կիրառեք «Հեռացնել կրկնօրինակները» գործառույթը, ինչպես ցույց է տրված նկար 1-ում: Այնուամենայնիվ, որոշ դեպքերում կարող է ցանկանաք հեռացնել կրկնօրինակները, բայց շարքի մնացած արժեքները պահել այնպես, ինչպես ցույց է տրված նկար 2-ում: Այժմ, այս դեպքում, ես կներկայացնեմ մի քանի հնարքներ կրկնօրինակները ջնջելու, բայց մնացածը Excel- ում պահելու վերաբերյալ:
Հեռացրեք կրկնօրինակները, բայց շարքի մնացած արժեքները պահեք terտիչով (3 քայլ)
Հեռացրեք կրկնօրինակները, բայց շարքի մնացած արժեքները պահեք VBA- ով (4 քայլ)
Հեռացրեք կրկնօրինակները, բայց շարքի մնացած արժեքները պահեք Kutools- ի համար Excel- ի համար (2 քայլ)
Հեռացրեք կրկնօրինակները, բայց շարքի մնացած արժեքները պահեք Filter- ով
Բանաձևով և Filter գործառույթով դուք կարող եք արագ հեռացնել կրկնօրինակները, բայց հանգստանալ:
1. Տվյալների տիրույթի կողքին ընտրեք դատարկ բջիջ, օրինակ ՝ D2, մուտքագրեք բանաձևը = A3 = A2, քաշեք ավտոմատ լրացման բռնակը ներքև ՝ անհրաժեշտ բջիջները: Տեսեք,
2. Ընտրեք տվյալների ամբողջ տիրույթը, ներառյալ բանաձևի բջիջը և կտտացրեք Ամսաթիվ > ֆիլտր հնարավորություն ընձեռել ֆիլտր գործառույթ Տեսեք,
3. Կտտացրեք կոճակին Filտիչ պատկերակ սյունակում D (բանաձևի սյուն) և ստուգել TURԵ բացվող ցուցակից, տես նկարի նկարը.
4: սեղմեք OK, ապա բոլոր կրկնօրինակները ցուցակագրվել են և ընտրել բոլոր կրկնօրինակ արժեքները, սեղմել ջնջել դրանք հանելու բանալին: Տեսեք,
5: սեղմեք Ամսաթիվ > ֆիլտր անջատել ֆիլտր, և բանաձևերը հանեք, ինչպես ձեզ հարկավոր է: Տեսնում եք, որ բոլոր կրկնօրինակները հանվել են, իսկ մնացած արժեքները շարքում են:
Հեռացրեք կրկնօրինակները, բայց շարքերի մնացած արժեքները պահեք VBA- ով
Excel- ում կա VBA կոդ, որը կարող է նաև հեռացնել կրկնօրինակները, բայց պահպանել տողի մնացած արժեքները:
1. Մամուլ Alt + F11 ցուցադրման ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2: սեղմեք Տեղադրել > մոդուլe, և ներքևում տեղադրեք կոդը ՝ Մոդուլներ.
VBA. Հեռացրեք կրկնօրինակները, բայց շարքի մնացած արժեքները պահեք
Sub RemoveDuplicates()
'UpdatebyExtendoffice20160918
Dim xRow As Long
Dim xCol As Long
Dim xrg As Range
Dim xl As Long
On Error Resume Next
Set xrg = Application.InputBox("Select a range:", "Kutools for Excel", _
ActiveWindow.RangeSelection.AddressLocal, , , , , 8)
xRow = xrg.Rows.Count + xrg.Row - 1
xCol = xrg.Column
'MsgBox xRow & ":" & xCol
Application.ScreenUpdating = False
For xl = xRow To 2 Step -1
If Cells(xl, xCol) = Cells(xl - 1, xCol) Then
Cells(xl, xCol) = ""
End If
Next xl
Application.ScreenUpdating = True
End Sub
3. Մամուլ F5 Կոդը գործարկելու համար ստեղնաշար է դուրս գալիս երկխոսություն ՝ հիշեցնելու ձեզ ընտրել մի տիրույթ ՝ կրկնօրինակ արժեքները հեռացնելու համար: Տեսեք,
4: սեղմեք OK, այժմ կրկնօրինակ արժեքները հանվել են ընտրությունից և դատարկ բջիջներ են թողնում:
Հեռացրեք կրկնօրինակները, բայց շարքի մնացած արժեքները պահեք Kutools- ի համար Excel- ի համար
Եթե դուք ունեք Kutools համար Excel - տեղադրված հարմար և հզոր գործիք, դուք կարող եք արագ հեռացնել կրկնօրինակները, բայց պահպանել հանգստի կամ տողի արժեքները երկու եղանակով:
Excel- ի համար նախատեսված գործիքներ, ավելի քան 300 հարմար գործառույթներ, ավելի հեշտացնում է ձեր գործերը: |
Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներ, խնդրում ենք վարվել ինչպես ստորև :(Անվճար ներբեռնեք Kutools- ի համար Excel- ը հիմա!)
Մեթոդ 1 Միաձուլել նույն բջիջները (2 քայլ)
1. Ընտրեք կրկնօրինակ արժեքները, կտտացրեք Կուտոլս > Միաձուլում և պառակտում > Միաձուլել նույն բջիջները, Տեսեք,
2. Ապա կրկնօրինակ արժեքները միավորվել են մեկ բջիջի մեջ: Եվ կտտացրեք Գլխավոր > Միաձուլում և կենտրոն > Անջատեք բջիջները ՝ դրանք բաժանելու համար, Տեսեք,
Այժմ արդյունքը ցույց է տրվել այսպես.
Մեթոդ 2 Ընտրեք կրկնօրինակ և եզակի բջիջներ (4 քայլ)
1. Ընտրեք տվյալների ցանկը, որից ցանկանում եք հեռացնել կրկնօրինակները, և կտտացրեք Կուտոլս > ընտրել > Ընտրեք Կրկնօրինակ և եզակի բջիջներ, Տեսեք,
2. Մեջ Ընտրեք Կրկնօրինակ և եզակի բջիջներ երկխոսություն, ստուգում Կրկնօրինակներ (բացառությամբ 1-ին) տարբերակը Կանոն Բաժին. Տեսեք,
3: սեղմեք Ok, բացվում է երկխոսություն ՝ հիշեցնելու համար, թե քանի կրկնօրինակ է ընտրված, կտտացրեք OK փակել այն: Տեսեք,
4. Դրանից հետո սեղմեք ջնջել ընտրված կրկնօրինակ արժեքները հեռացնելու բանալին:
Հեռացրեք կրկնօրինակները, բայց շարունակեք շարքում
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: