Ինչպե՞ս ջնջել Excel- ում վերնագրի արժեքի հիման վրա ամբողջ սյունակները:

Շատ դեպքերում կարող է անհրաժեշտ լինել ջնջել ամբողջ սյունակները ՝ ելնելով Excel- ի վերնագրի արժեքից: Օրինակ, դուք պետք է ջնջեք բոլոր սյունակները, որոնք վերնագրի մեջ պարունակում են «հին» արժեք: Այս ձեռնարկում մենք ձեզ ցույց կտանք մանրամասների վերնագրի արժեքի հիման վրա ամբողջ սյունակների ջնջման մեթոդները:

VBA կոդով վերնագրի արժեքի հիման վրա ջնջեք ամբողջ սյունակները
Utնջեք ամբողջ սյունակները ՝ ելնելով վերնագրի արժեքից, Kutools- ի համար Excel- ի համար

VBA կոդով վերնագրի արժեքի հիման վրա ջնջեք ամբողջ սյունակները

VBA կոդով վերնագրի արժեքի հիման վրա կարող եք ջնջել ամբողջ սյունակները: Խնդրում եմ, արեք հետևյալ կերպ.

1. Մամուլ ալտ + F11 ստեղները միաժամանակ բացելու համար Microsoft Visual Basic հավելված պատուհան.

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

VBA կոդ. Ջնջել ամբողջ սյունակները ՝ ելնելով վերնագրի արժեքից

Sub DeleteSpecifcColumn()
	Set MR = Range("A1:D1")
	For Each cell In MR
		If cell.Value = "old" Then cell.EntireColumn.Delete
	Next
End Sub

Notes:

1) օրենսգրքում՝ «հին”Վերնագրի արժեքն է, որի հիման վրա ցանկանում եք ջնջել ամբողջ սյունակը: Խնդրում ենք ձեռքով փոխել ձեր վերնագրի արժեքը: Եվ A1: D1 սյունակի տիրույթն է, որը ցանկանում եք օգտագործել:

2) Այս ծածկագիրը մեծատառերի զգայուն է:

3. Սեղմեք F5 կոդը գործարկելու բանալին, նշված տեքստին հավասար վերնագրով ամբողջ սյունակը անմիջապես կջնջվի:

Utնջեք ամբողջ սյունակները ՝ ելնելով վերնագրի արժեքից, Kutools- ի համար Excel- ի համար

հետ Excel- ի համար նախատեսված գործիքներ'S Ընտրեք հատուկ բջիջներ օգտակար, դուք կարող եք հեշտությամբ ընտրել բոլոր սյունակները, որոնք նախ պարունակում են որոշակի վերնագրի արժեք, և այնուհետև միանգամից ջնջեք այս ընտրված սյունակները: Խնդրում եմ արեք հետևյալ կերպ.

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

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

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

3. Սեղմեք OK կոճակը մեկ այլ ելնող պատուհանի երկխոսության դաշտում, այնուհետև անմիջապես ընտրվում են նշված վերնագրի արժեք պարունակող սյունակները:

4. Աջ կտտացրեք ընտրված սյունակի սյունակի վերնագրին և կտտացրեք ջնջել աջ կտտացնելու ցանկից: Դրանից հետո բոլոր ընտրված սյունները միանգամից ջնջվում են:

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

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

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ...

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ...

մեկնաբանություններ (12)

Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:

Լեոնարդ Ստագս

մոտ 5 տարի առաջ

#19816

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Կներեք, եթե սա չափազանց հիմնական է թվում, բայց ես առաջին անգամ եմ փորձում vba-ն: Օգտագործելով սա, ինչպես ես այն կկիրառեմ մի քանի սյունակների վերնագրեր ջնջելու համար: Ես իրականում փորձում եմ պահպանել միայն որոշակի վերնագրի սյունակներ և ջնջել փոփոխվող ցուցակի մնացած մասը:

պատասխանել

նախահայր Լեոնարդ Ստագս

մոտ 1 տարի առաջ

#19817

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Առաջին կոդում պարզապես պատճենեք 4-րդ տողը և փոխեք «հինը» երկրորդ սյունակի անվանման մեջ, և այն կաշխատի

պատասխանել

Elias

մոտ 4 տարի առաջ

#26882

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Հեյ Սա լավ է աշխատում այնքան ժամանակ, քանի դեռ դուք ունեք երկու իրար հաջորդող սյունակներ նույն վերնագրով: Ասեք, որ ձեր միջակայքը A1:A5 է, իսկ A2-ը և A3-ն ունեն «հին» վերնագիրը: Այն կջնջի A2-ը, բայց այնուհետև A3-ը կտեղափոխվի A2-ի զբաղեցրած տեղը, և կոդը կբացակայի այն, քանի որ այն դիտելու է նոր A3-ը՝ իր տիրույթի հաջորդ բջիջը:

պատասխանել

բյուրեղապակի Elias

մոտ 4 տարի առաջ

#26883

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարև Էլիաս,
Ինչպես նշեցիք, A2-ը և A3-ն ունեն նույն վերնագիրը «հին»: Բայց դրանք նույն սյունակում են, կոդը կիրառելուց հետո ամբողջ Ա սյունակը անմիջապես կհեռացվի։
Վստահ չեմ, որ հասկանում եմ ձեր տեսակետը: Լավ կլիներ, եթե կարողանայիք սքրինշոթ տրամադրել, թե ինչ եք փորձում անել:

պատասխանել

հաշվետվություն

Ընդգծել

մոտ 2 տարի առաջ

#32598

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարև, հնարավո՞ր է դա անել բազմաթիվ սյունակների անուններով:

պատասխանել

բյուրեղապակի Ընդգծել

մոտ 2 տարի առաջ

#32599

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարև Մարկ,
Փորձեք ստորև նշված կոդը: Ութերորդ տողում խնդրում ենք յուրաքանչյուր սյունակի անվանումը փակցնել կրկնակի չակերտներով և բաժանել դրանք ստորակետերով: Հուսով եմ, որ կարող եմ օգնել: Շնորհակալություն.

Sub DeleteSpecifcColumn()

Dim xFNum, xFFNum, xCount As Integer

Dim xStr Որպես տող

Dim xArrName As Variant

Dim MR, xRg As Range

Ս.թ. սխալի Ռեզյումե Next

Սահմանել MR = միջակայք («A1:N1»)

xArrName = Array («հին», «նոր», «ստանալ») 'կցեք յուրաքանչյուր սյունակի անունը կրկնակի չակերտներով և բաժանեք դրանք ստորակետերով

xCount = MR.Count

xStr = xArrName (xFNum)

xFFNum = xCount 1 քայլի համար -1

Սահմանել xRg = Բջիջներ (1, xFFNum)

xFNum-ի համար = 0 To UBound (xArrName)

xStr = xArrName (xFNum)

Եթե xRg.Value = xStr Ապա xRg.EntireColumn.Delete

Հաջորդ xFNum

հաջորդ

Վերջ Sub

պատասխանել

հաշվետվություն

Փոլ Ռոդ բյուրեղապակի

մոտ 1 տարի առաջ

#32600

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Կարծում եմ, որ 12-րդ տողը պետք է փոխվի, որպեսզի կոդը գործի: Բնօրինակ տող 12 «Set xRg = Cells(1, xFFNum)» փոփոխված տող 12 «Set xRg = MR(1, xFFNum)»
Sub DeleteSpecifcColumn()
Dim xFNum, xFFNum, xCount As Integer
Dim xStr Որպես տող
Dim xArrName As Variant
Dim MR, xRg As Range
Ս.թ. սխալի Ռեզյումե Next
Սահմանել MR = միջակայք («A1:N1»)
xArrName = Array («հին», «նոր», «ստանալ») 'կցեք յուրաքանչյուր սյունակի անունը կրկնակի չակերտներով և բաժանեք դրանք ստորակետերով
xCount = MR.Count
xStr = xArrName (xFNum)
xFFNum = xCount 1 քայլի համար -1
Սահմանել xRg = MR (1, xFFNum)
xFNum-ի համար = 0 To UBound (xArrName)
xStr = xArrName (xFNum)
Եթե xRg.Value = xStr Ապա xRg.EntireColumn.Delete
Հաջորդ xFNum
հաջորդ
Վերջ Sub

պատասխանել

Rahul Ընդգծել

մոտ 1 տարի առաջ

#32601

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Իսկ եթե վերնագրերը սկսվում են 4-րդ շարքից

պատասխանել

Jonathan

մոտ 1 տարի առաջ

#35388

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

VBA-ի օրինակը նշում է, որ կոդը կջնջի բոլոր սյունակները, որոնց վերնագրերը պարունակում են «հին»: Դա այդպես չէ։ = օպերատորը կջնջի միայն ճշգրիտ համընկնումները: Դուք պետք է օգտագործեք LIKE օպերատորը wildcard-ով:
Հաստատված կոդը՝ Sub DeleteSpecifcColumn()
Սահմանել MR = միջակայք («A1:D1»)
MR-ի յուրաքանչյուր բջիջի համար
Եթե cell.Value LIKE «հին*» ապա cell.EntireColumn.Delete
հաջորդ
Վերջ Sub

պատասխանել

բյուրեղապակի Jonathan

մոտ 1 տարի առաջ

#35389

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Ողջույն, շնորհակալություն ուղղման և կիսվելու համար:

պատասխանել

հաշվետվություն

Ռեսնիկ

մոտ 9 ամիս առաջ

#37833

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Hola, tengo una hoja de excel con varios datos, digamos 4 columnas y 12 filas, me gustaría poder imprimir cada fila en un folio separado en una plantilla, es decir, tenemos una hoja con varios nombres y apellidos y teleroquintagina, como filas tenga la hoja de excel, he inte tado varias cosas pero no encuentro la forma. Gracias de antemano

պատասխանել

բյուրեղապակի Ռեսնիկ

մոտ 9 ամիս առաջ

#37838

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Ողջու՜յն,
Եթե ցանկանում եք յուրաքանչյուր տող տպել աշխատաթերթի առանձին էջում, ապա առաջարկվում է, որ յուրաքանչյուր 1 տողում տեղադրեք էջի ընդմիջումներ, ապա տպեք դրանք:
Այս հոդվածում ներկայացված մեթոդները կարող են ձեզ լավություն անել: Խնդրում ենք փորձել: Շնորհակալություն.
Ինչպե՞ս տեղադրել էջի ընդմիջում յուրաքանչյուր X տող Excel-ում:[/url]
https://www.extendoffice.com/documents/excel/1774-excel-insert-page-break-every-row.html

պատասխանել

հաշվետվություն

Առայժմ ոչ մի մեկնաբանություն չկա

Թողեք ձեր մեկնաբանությունները

Հրապարակում որպես հյուր

Մուտք

Անուն (պարտադիր է)

Email (պահանջվում է)

Գնահատեք այս գրառումը.

Նորից դնել

0 Անձնավորություններ

Ես համաձայն եմ, որ պայմանները եւ պայմանները