Ինչպե՞ս ջնջել մեկ այլ թերթի չափանիշներին չհամընկնող շարքերը:
Ձեզ համար կարող է դժվար լինել ջնջել այն տողերը, որոնք չեն համապատասխանում նույն թերթի չափանիշներին, բայց գիտե՞ք տողերը չհամընկնող տողերը մեկ այլ թերթի վրա ջնջելու եղանակներ, ինչպես ցույց է տրված ստորև: Հիմա ես ունեմ երկու հնարք, որոնք կարող են օգնել արագ լուծել այն:
VBA- ի մեկ այլ թերթի վրա չհամընկնող տողերը ջնջեք
Excel- ի համար Kutools- ի հետ մեկ այլ թերթի վրա չհամընկնող չափանիշները ջնջեք
Չափանիշներ (թերթիկ 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 երկխոսությունը հայտնվում է ձեզ համար ՝ ընտրելու համար այն տիրույթը, որը ցանկանում եք ջնջել այն տողերը, որոնք չեն համապատասխանում չափանիշներին: Տեսեք,
4: սեղմեք OK, և մեկ այլ երկխոսություն է դուրս գալիս մեկ այլ թերթում չափանիշներ ընտրելու համար, տես նկարի նկարը.
5. Այժմ մեկ այլ թերթի չափանիշներին չհամապատասխանող բոլոր տողերը հանվում են:
Excel- ի համար Kutools- ի հետ մեկ այլ թերթի վրա չհամընկնող չափանիշները ջնջեք
Եթե VBA կոդը ձեզ համար մի փոքր դժվար է, կարող եք փորձել Kutools- ի համար Excel- ի '' Համեմատել տիրույթները '' առանձնահատկությունը:
Excel- ի համար նախատեսված գործիքներ ներառում է ավելի քան 300 հարմար Excel գործիքներ: Փորձեք առանց սահմանափակումների 30 օրվա ընթացքում: Get it Now
1. Ընտրեք այն թերթիկը, որը ցանկանում եք ջնջել այն տողերը, որոնք չեն համապատասխանում չափանիշներին: Եվ կտտացրեք Կուտոլս > Համեմատեք միջակայքերը, Տեսեք,
2. Մեջ Համեմատեք միջակայքերը երկխոսություն, կտտացրեք կոճակին Լեռնաշղթա B, ապա կարող եք ընտրել անհրաժեշտ չափորոշիչների տիրույթը: Տեսեք,
3. Այնուհետեւ կտտացրեք OK, ապա վերադառնալ դեպի Համեմատեք միջակայքերը երկխոսություն, ստուգում Տարբեր արժեք և Ընտրեք ամբողջ տողերը, Տեսեք,
4: սեղմեք Ok, և դուրս գալ Համեմատեք միջակայքերը երկխոսություն Դրանից հետո դուք տեսնում եք, թե ինչպես են ընտրված չափանիշներից տարբերվող արժեքի տողերը:
5. Սեղմելու համար սեղմեք աջ ջնջել համատեքստային ընտրացանկից ՝ այլ թերթի չափանիշներին չհամապատասխանող շարքերը ջնջելու համար:
Հարաբերական հոդվածներ:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: