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

Ինչպե՞ս ջնջել մեկ այլ թերթի չափանիշներին չհամընկնող շարքերը:

Ձեզ համար կարող է դժվար լինել ջնջել այն տողերը, որոնք չեն համապատասխանում նույն թերթի չափանիշներին, բայց գիտե՞ք տողերը չհամընկնող տողերը մեկ այլ թերթի վրա ջնջելու եղանակներ, ինչպես ցույց է տրված ստորև: Հիմա ես ունեմ երկու հնարք, որոնք կարող են օգնել արագ լուծել այն:

VBA- ի մեկ այլ թերթի վրա չհամընկնող տողերը ջնջեք

Excel- ի համար Kutools- ի հետ մեկ այլ թերթի վրա չհամընկնող չափանիշները ջնջեք

doc- ջնջել-հիմնվել է-այլ-թերթ-1-ում doc- ջնջել-հիմնվել է-այլ-թերթ-2-ում փաստաթուղթ doc- ջնջել-հիմնվել է-այլ-թերթ-3-ում
 Չափանիշներ (թերթիկ 2-ում)     Նախքան (թերթ 1)          Հետո (թերթ 1)



նետ կապույտ աջ պղպջակ VBA- ի մեկ այլ թերթի վրա չհամընկնող տողերը ջնջեք

Կա VBA կոդ, որը կարող է օգնել ձեզ ջնջել տողերը, որոնք չեն համապատասխանում մեկ այլ թերթի չափանիշներին:

1. Մամուլ Alt + F11 ցուցադրելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

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

VBA. Deleteնջեք Excel- ի մեկ այլ թերթի չափանիշներին չհամընկնող շարքերը:

Sub DeleteRow()
'Updateby20140618
Dim rng As Range
Dim Rng1 As Range, Rng2 As Range
Dim arr1 As Variant
Dim arr2 As Variant
Dim dic2 As Variant
Dim OutArr As Variant
xTitleId = "KutoolsforExcel"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1 :", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2:", xTitleId, Type:=8)
Set Rng1 = Rng1.Columns(1)
Set Rng2 = Rng2.Columns(1)
Set dic2 = CreateObject("Scripting.Dictionary")
arr1 = Rng1.Value
arr2 = Rng2.Value
For i = 1 To UBound(arr2, 1)
    xKey = arr2(i, 1)
    dic2(xKey) = ""
Next
Rng1.ClearContents
OutArr = Rng1.Value
xIndex = 1
For i = 1 To UBound(arr1, 1)
    xKey = arr1(i, 1)
    If dic2.Exists(xKey) Then
        OutArr(xIndex, 1) = xKey
        xIndex = xIndex + 1
    End If
Next
Rng1.Value = OutArr
End Sub
3: սեղմեք ՎազումՄի KutoolsforExcel երկխոսությունը հայտնվում է ձեզ համար ՝ ընտրելու համար այն տիրույթը, որը ցանկանում եք ջնջել այն տողերը, որոնք չեն համապատասխանում չափանիշներին: Տեսեք,

doc- ջնջել-հիմնվել է-այլ-թերթ-4-ում

4: սեղմեք OK, և մեկ այլ երկխոսություն է դուրս գալիս մեկ այլ թերթում չափանիշներ ընտրելու համար, տես նկարի նկարը.

doc- ջնջել-հիմնվել է-այլ-թերթ-5-ում

5. Այժմ մեկ այլ թերթի չափանիշներին չհամապատասխանող բոլոր տողերը հանվում են:


նետ կապույտ աջ պղպջակ Excel- ի համար Kutools- ի հետ մեկ այլ թերթի վրա չհամընկնող չափանիշները ջնջեք

Եթե ​​VBA կոդը ձեզ համար մի փոքր դժվար է, կարող եք փորձել Kutools- ի համար Excel- ի '' Համեմատել տիրույթները '' առանձնահատկությունը:

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

1. Ընտրեք այն թերթիկը, որը ցանկանում եք ջնջել այն տողերը, որոնք չեն համապատասխանում չափանիշներին: Եվ կտտացրեք Կուտոլս > Համեմատեք միջակայքերը, Տեսեք,

doc- ջնջել-հիմնվել է-այլ-թերթ-6-ում

2. Մեջ Համեմատեք միջակայքերը երկխոսություն, կտտացրեք կոճակին Լեռնաշղթա B, ապա կարող եք ընտրել անհրաժեշտ չափորոշիչների տիրույթը: Տեսեք,

doc- ջնջել-հիմնվել է-այլ-թերթ-7-ում
դոկ-նետ
doc- ջնջել-հիմնվել է-այլ-թերթ-8-ում

 

3. Այնուհետեւ կտտացրեք OK, ապա վերադառնալ դեպի Համեմատեք միջակայքերը երկխոսություն, ստուգում Տարբեր արժեք և Ընտրեք ամբողջ տողերը, Տեսեք,

doc- ջնջել-հիմնվել է-այլ-թերթ-9-ում

4: սեղմեք Ok, և դուրս գալ Համեմատեք միջակայքերը երկխոսություն Դրանից հետո դուք տեսնում եք, թե ինչպես են ընտրված չափանիշներից տարբերվող արժեքի տողերը:

doc- ջնջել-հիմնվել է-այլ-թերթ-10-ում

5. Սեղմելու համար սեղմեք աջ ջնջել համատեքստային ընտրացանկից ՝ այլ թերթի չափանիշներին չհամապատասխանող շարքերը ջնջելու համար:

doc- ջնջել-հիմնվել է-այլ-թերթ-11-ում

Սեղմեք այստեղ Excel- ի համար Kutools- ի համեմատության միջակայքերը լրացուցիչ տեղեկություններ ստանալու համար:


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

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

🤖 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 (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Doesn't work with sheets that have multiple columns because it doesn't actually delete the row, just the cell.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations