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

Ինչպե՞ս ջնջել Excel- ում որոշակի տեքստ չպարունակող շարքերը:

Գուցե ձեզանից ոմանք գիտեն, թե ինչպես ջնջել ամբողջ տողերը, երբ դրանք պարունակում են որոշակի տեքստեր Excel- ում, բայց եթե ուզում եք ամբողջ շարքը լրացնել, երբ դրանք չեն պարունակում որոշակի տեքստեր, ինչպե՞ս կարող եք անել: Այժմ հետևեք այս ձեռնարկին, Excel- ում կարող եք գտնել այս խնդիրը լուծելու ուղին:

Textտիչով ջնջեք որոշակի տեքստ չպարունակող շարքերը

Deleteնջեք VBA- ով որոշակի տեքստ չպարունակող շարքերը

Deleteնջեք Excel- ի համար որոշակի տեքստ չպարունակող տողեր


նետ կապույտ աջ պղպջակ Textտիչով ջնջեք որոշակի տեքստ չպարունակող շարքերը

Excel- ում Filter գործառույթը կարող է արագ օգնել զտել այն տողերը, որոնք չեն պարունակում որոշակի տեքստ, այնուհետև կարող եք ընտրել դրանք ջնջելու համար:

1. Ընտրեք սյունակը, որը պարունակում է տեքստեր, որոնց հիման վրա կհեռացնեք տողերը, և կտտացրեք Ամսաթիվ > ֆիլտր, Տեսեք,

doc- ջնջել-շարքերը-չեն պարունակում -1
դոկ-նետ
doc- ջնջել-շարքերը-չեն պարունակում -2

2. Սյունակի վերնագրում կա զտիչի կոճակ և կտտացրեք այն բացվող ցուցակը բացելու համար, ստուգեք բոլորը, բացառությամբ այն որոշակի տեքստի, որի վրա ցանկանում եք հիմք դնել: Տեսեք,

doc- ջնջել-շարքերը-չեն պարունակում -3

3. Դրանից հետո դուք կարող եք տեսնել միայն վերնագրի տողը և որոշակի տեքստ չպարունակող շարքերը զտված են: Տեսեք սքրինշոթը

doc- ջնջել-շարքերը-չեն պարունակում -4

4. Ընտրեք բոլորը, բացառությամբ վերնագրի տողի, և աջ կտտացրեք ընտրելու համար Deleteնջել շարքը համատեքստային ընտրացանկից: Տեսեք,

doc- ջնջել-շարքերը-չեն պարունակում -5

5. Այնուհետեւ կտտացրեք Ամսաթիվ > ֆիլտր կրկին, և ապա ջնջվում են բոլոր տողերը, որոնք չեն պարունակում որոշակի տեքստ: Տեսեք,

doc- ջնջել-շարքերը-չեն պարունակում -6
դոկ-նետ
doc- ջնջել-շարքերը-չեն պարունակում -7

նետ կապույտ աջ պղպջակ Deleteնջեք VBA- ով որոշակի տեքստ չպարունակող շարքերը

VBA- ն շատ օգտակար է Excel- ում փոքր-ինչ բարդ գործողությունների համար, և հետևեք ստորև նշված քայլերին ՝ որոշակի տեքստ չպարունակող շարքերը ջնջելու համար:

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

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

VBA. Deleteնջել ամբողջ տողը, եթե բջիջը պարունակում է որոշակի տեքստ:

Sub DeleteRowNoInclude()
'Update20140618
Dim xRow As Range
Dim rng As Range
Dim WorkRng As Range
Dim xStr As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xStr = Application.InputBox("Text", xTitleId, "", Type:=2)
Application.ScreenUpdating = False
For i = WorkRng.Rows.Count To 1 Step -1
    Set xRow = WorkRng.Rows(i)
    Set rng = xRow.Find(xStr, LookIn:=xlValues)
    If rng Is Nothing Then
       xRow.Delete
    End If
Next
Application.ScreenUpdating = True
End Sub
3: սեղմեք Վազում կոճակը, և երկխոսություն է դուրս գալիս, որպեսզի ընտրեք տիրույթ ՝ աշխատելու համար: Տեսեք,

doc- ջնջել-շարքերը-չեն պարունակում -8

4. Այնուհետեւ կտտացրեք OKև մուտքագրեք տեքստը, որի վրա ցանկանում եք հեռացնել տողերի հիմքը, մեկ այլ ելնող երկխոսության մեջ: Տեսեք,

doc- ջնջել-շարքերը-չեն պարունակում -9

5: սեղմեք OK, և Apple- ը չպարունակող շարքերը կհեռացվեն:


նետ կապույտ աջ պղպջակ Deleteնջեք Excel- ի համար որոշակի տեքստ չպարունակող տողեր

Եթե ​​կարծում եք, որ վերը նշված մեթոդները ձեզ համար հեշտ չեն, կարող եք օգտագործել Excel- ի համար նախատեսված գործիքներ's Ընտրեք հատուկ բջիջներ առանձնահատկություն.

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

1. Ընտրեք այն սյունակը, որտեղ ցանկանում եք ջնջել որոշակի տեքստ չպարունակող շարքերը և կտտացրեք Կուտոլս > Ընտրեք գործիքներ > Ընտրեք հատուկ բջիջներ, Տեսեք,

doc- ջնջել-շարքերը-չեն պարունակում -10

2. Եվ Ընտրեք հատուկ բջիջներ երկխոսություն, ստուգում Ամբողջ շարքըեւ ընտրեք Չի պարունակում, և մուտքագրեք որոշակի տեքստ տեքստի տուփի մեջ, նաև կարող եք սեղմել տիրույթի կոճակը Հատուկ տեսակ հատված ՝ որոշակի տեքստ պարունակող բջիջը ընտրելու համար:

doc- ջնջել-շարքերը-չեն պարունակում -11

3. Այնուհետեւ կտտացրեք Ok, ապա ընտրվում են որոշակի տեքստ չպարունակող տողեր, աջ կտտացրեք ընտրելու համար ջնջել համատեքստային ընտրացանկից: Տեսեք,

doc- ջնջել-շարքերը-չեն պարունակում -12

4. Այժմ հեռացվում են բոլոր տողերը, որոնք տիրույթում չեն պարունակում որոշակի տեքստեր: Ընտրեք հատուկ բջիջների մասին լրացուցիչ տեղեկություններ ստանալու համար կտտացրեք նրան.


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

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

🤖 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
I am trying to modify the VBA code to add an option like this,

Dim xOpt As Integer
xOpt = Application.InputBox("Rows Around Kept (0, 1, 2)", xTitleId, "", Type:=1)

where 0 is the same as your code above where it keeps only the row with specified word in it and deletes all other rows.
where 1 keeps the rows immediately above and below the rows with the specified word in it and deletes all other rows.
where 2 keeps the 2 rows above and below the rows with the specified words in it and deletes all other rows.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations