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

Ինչպե՞ս զտել բջիջները համարձակ նիշերով Excel- ում:

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

Oldտեք համարձակ բջիջները օգնող սյունակով
Oldտեք համարձակ բջիջները VBA կոդով
Հեշտությամբ զտեք համարձակ բջիջները զարմանալի գործիքով
Տվյալների զտման այլ ձեռնարկներ


Oldտեք համարձակ բջիջները օգնության սյունակով

Ենթադրելով, որ ձեզ հարկավոր է զտել B սյունակի բոլոր համարձակ բջիջները, ինչպես ցույց է տրված ստորև նշված նկարը, արեք հետևյալը

Օգտատիրոջ կողմից սահմանված ստորև ներկայացված գործառույթն օգնում է պարզել `սյունի բջիջը համարձակ է, թե ոչ, այնուհետև արդյունքները օգնականի սյունակում վերադարձնել որպես UEՇՄԱՐԻՏ կամ Սխալ: Կարող եք զտել բոլոր UEՇՄԱՐԻՏ արդյունքները ՝ B սյունակում միայն համարձակ բջիջները ցուցադրելու համար:

1. Սեղմեք ալտ + F11 բացել ստեղները Microsoft Visual Basic կիրառման համար պատուհան.

2. Մեջ Microsoft Visual Basic կիրառման համար պատուհանը, սեղմեք Տեղադրել > Մոդուլ, ապա պատճենեք հետևյալ VBA կոդը Մոդուլի պատուհանում: Տեսեք,

VBA կոդ. Cellsտեք բջիջները համարձակ նիշերով

Function IsBold(rCell As Range)
IsBold = rCell.Font.Bold
End Function

3. Սեղմեք ալտ + Q կոդերի պատուհանը փակելու ստեղները:

4. Ընտրեք դատարկ բջիջ, որը կից է սեղանին (ընտրված բջիջը պետք է տեղադրվի ֆիլտրի աղյուսակի առաջին շարքի նույն շարքում), պատճենեք ներքևի բանաձևը և սեղմեք մտնել բանալի.

= IsBold (B2)

5. Շարունակեք ընտրել առաջին արդյունքի բջիջը և քաշեք Լրացրեք բռնակը ՝ բոլոր արդյունքները ստանալու համար: Տեսեք,

6. Ընտրեք օգնող սյունակի վերնագիրը, կտտացրեք Ամսաթիվ > Filտել Կտտացրեք սլաքի կոճակին ՝ վերնագրի վանդակից բացի, ստուգեք TRUE միայն վանդակում և սեղմեք OK.

Այժմ B սյունակի բոլոր համարձակ բջիջները զտված են, ինչպես ցույց է տրված ստորև նշված նկարը:


Excel- ում մի քանի կտտոցով արագորեն զտեք համարձակ բջիջները սյունակում.

The Filտեք Bold բջիջները օգտակարությունը Excel- ի համար նախատեսված գործիքներ կարող է օգնել ձեզ արագորեն զտել բոլոր համարձակ բջիջները որոշակի սյունակում մի քանի կտտոցով, ինչպես ցույց է տրված ստորև ցուցադրված ցուցադրումը:
Ներբեռնեք Kutools- ի Excel- ի 30-օրյա անվճար ուղեգիծը ամբողջությամբ հիմա:


Oldտեք համարձակ բջիջները VBA կոդով

Ստորև ներկայացված VBA կոդը թույլ է տալիս ուղղակիորեն զտել բոլոր համարձակ բջիջները մեկ սյունակում: Խնդրում եմ, արեք հետևյալ կերպ.

1. Ընտրեք սյունների շարքը, որը դուք կզտեք բոլոր համարձակ բջիջները, բացառությամբ վերնագրի բջիջի: Այս դեպքում ես ընտրում եմ B2: B16:

2. Սեղմեք ալտ + F11 բացել ստեղները Microsoft Visual Basic կիրառման համար պատուհան.

3. Մեջ Microsoft Visual Basic կիրառման համար պատուհանը, սեղմեք Տեղադրել > Մոդուլ, ապա պատճենեք և տեղադրեք հետևյալ VBA կոդը Մոդուլի պատուհանում:

VBA կոդ. Filտեք համարձակ բջիջները սյունակում

Sub FilterBold()
'Updated by Extendoffice 20191018
Dim cell As Range
For Each cell In Selection
If cell.Font.Bold = False Then
cell.EntireRow.Hidden = True
End If
Next cell
End Sub

4. Սեղմեք F5 այս մակրո գործարկման բանալին: Դրանից հետո բոլոր համարձակ բջիջները անմիջապես զտվում են ընտրված սյունակների տիրույթում:


Հեշտությամբ զտեք համարձակ բջիջները զարմանալի գործիքով

Այս բաժնում մենք ձեզ խորհուրդ ենք տալիս հարմար գործիք `այն Filտեք Bold բջիջները օգտակարությունը Excel- ի համար նախատեսված գործիքներ, Այս օգտակարության միջոցով ընտրված սյունակի բոլոր համարձակ բջիջները զտվում են անմիջապես մի քանի կտտոցով:

Նախքան դիմելը Excel- ի համար նախատեսված գործիքներ, խնդրում եմ նախ ներբեռնեք և տեղադրեք այն.

1. Ընտրեք սյունների շարքը, որը դուք կզտեք խիտ բջիջները, կտտացրեք Kutools Plus> Հատուկ զտիչ > Terտիչ Bold հասցնելու համար: Տե՛ս ստորև ցուցադրումը.

  Եթե ​​ցանկանում եք ունենալ այս օգտակար ծառայության անվճար փորձարկում (30-օրյա), խնդրում ենք կտտացնել այն ներբեռնելու համար, և այնուհետև անցեք գործողությունը կիրառելու վերը նշված քայլերին համապատասխան:


Առնչվող հոդվածներ

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

Excel- ում բջիջների գույնով զտեք կամ ընտրեք բջիջները
Սովորաբար, Excel- ում ցանկացած նպատակի համար կարող եք լրացնել բջիջները տարբեր գույներով: Եթե ​​ունեք աշխատաթերթ, որն օգտագործում է տարբեր գույներ `տարբեր տեսակի պարունակություն նշելու համար, և ցանկանում եք զտել կամ ընտրել այդ բջիջները ըստ բջջայինի գույնի, ապա այն կարող եք ավարտել այս հոդվածի մեթոդներով:

Տեղադրեք Excel- ում թաքնված / զտված բջիջներն ու տողերը բաց թողնելով
Օրինակ, դուք Excel- ում զտել եք աղյուսակը, բայց այժմ դուք պետք է պատճենեք մի տիրույթ և տեղադրեք այս զտված աղյուսակում: Այս հոդվածի մի քանի հեշտ եղանակներ կարող են օգնել ձեզ:

Terտեք տողերը `հիմնվելով մեկ այլ թերթի ցուցակի ընտրության վրա
Excel- ում մենք սովորաբար զտում ենք տողերը չափանիշների հիման վրա, բայց եթե կա երկու ցուցակ, մեկը Sheet1- ում է, և մյուսը Sheet2- ում, կարո՞ղ եք որևէ հնարքներ ունենալ Sheet1- ում շարքերը արագ զտելու համար, Sheet2- ի ցուցակի հիման վրա: Այս հոդվածը ներկայացնում է այս աշխատանքը լուծելու ուղիները:

Filտեք բոլոր հարակից տվյալները Excel- ում միավորված բջիջներից
Ենթադրելով, որ ձեր տվյալների տիրույթում կա միավորված բջիջների սյուն, և այժմ դուք պետք է զտեք այս սյունակը միավորված բջիջներով ՝ ցույց տալու բոլոր տողերը, որոնք կապված են յուրաքանչյուր միավորված բջիջի հետ, ինչպես ցույց են տրված հետևյալ նկարները: Excel- ում, Filter հատկությունը թույլ է տալիս զտել միայն առաջին կետը, որը կապված է միավորված բջիջների հետ: Այս հոդվածում մենք խոսում ենք այն մասին, թե ինչպես զտել բոլոր հարակից տվյալները Excel- ում միավորված բջիջներից:

Տվյալների զտման այլ ձեռնարկներ

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

🤖 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 (16)
Rated 4.5 out of 5 · 2 ratings
This comment was minimized by the moderator on the site
Thanks for sharing, it works wonderful, thank you!
Rated 4.5 out of 5
This comment was minimized by the moderator on the site
Thanks for the formula..it helped
Rated 4.5 out of 5
This comment was minimized by the moderator on the site
I've used this technique and had an issue when trying to copy the bold data. It only copies some of the data for some reason. Is there any way of copying only the bold data using this technique? Thanks, Richard
This comment was minimized by the moderator on the site
Dear richard skins,



We didn't encounter the problem as you mentioned. Would you please provide a screenshot with details of your operation?



Thank you for your comment!
This comment was minimized by the moderator on the site
Hi, I'm a complete excel novice, i've done the following technique but now need to copy the data which is bold/true. When I have tried to do this is won't copy what is highlighted. Any ideas on how I can copy the data? Thanks, Richard
This comment was minimized by the moderator on the site
@RICHARD Can u please provide any screenshot of your spreadsheet showing what u are exactly trying to do?
This comment was minimized by the moderator on the site
Thanks for sharing. It works wonderful.
This comment was minimized by the moderator on the site
Hi I am using this code and its working fine but whenever I click on cancel the dialogue box a popup window appear and shows some error. Can you please tell me how to remove that error. :Sub FilterBold() Dim myRange As Range Set myRange = Application.InputBox(Prompt:="Please Select a Range", Title:="InputBox Method", Type:=8) myRange.Select Application.ScreenUpdating = False For Each myRange In Selection If myRange.Font.Bold = False Then myRange.EntireRow.Hidden = True End If Next myRange Application.ScreenUpdating = True End Sub
This comment was minimized by the moderator on the site
Dear Nitin Jain,

Sorry to reply so late!

We have found the proble and fixed it already. The VBA script in the article is now updated,

Thank you for your comment!
This comment was minimized by the moderator on the site
Simple and brilliant, thank you!
This comment was minimized by the moderator on the site
This worked perfectly, thank you!!! :D :lol:
This comment was minimized by the moderator on the site
I presume that column A is the reference Column with Bold cells. I create a Name "Bold?" with the refer to as below =GET.CELL(20,OFFSET(INDIRECT("A1"),ROW()-1,0)) In column B, I type: =Bold? Copy down the formula and then use autofilter to filter the value TRUE. DONE
This comment was minimized by the moderator on the site
@cadafi ur formula works fine but it is not the optimised or efficient use of it. Rather we should use direct reference of the range or a cell in place of that complete offset command. Like the one as follows: =GET.CELL(20,'Sheet1'!A1) Copy down the formula and then use autofilter to filter the value TRUE. DONE
This comment was minimized by the moderator on the site
Thanks Mohamand Faizan. You are entirely correct.
This comment was minimized by the moderator on the site
@Mohammad Faizan You are entirely correct. Thanks.
This comment was minimized by the moderator on the site
@Cadafi.... thats brilliant... wondering how it works though!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations