Hvordan slettes hele kolonner baseret på overskriftsværdi i Excel?

I mange tilfælde skal du muligvis slette hele kolonnerne baseret på overskriftsværdien i Excel. For eksempel skal du slette alle kolonner, der indeholder værdien "gammel" i overskriften. I denne vejledning viser vi dig metoder til at slette hele kolonner baseret på headerværdi i detaljer.

Slet hele kolonner baseret på overskriftsværdi med VBA-kode
Slet hele kolonner baseret på overskriftsværdi med Kutools til Excel

Slet hele kolonner baseret på overskriftsværdi med VBA-kode

Du kan slette hele kolonner baseret på overskriftsværdi med VBA-kode. Gør som følger.

1. Trykke andre + F11 taster samtidigt for at åbne Microsoft Visual Basic-applikation vindue.

2. i Microsoft Visual Basic-applikation vindue, skal du klikke på indsatte > Moduler. Og kopier og indsæt derefter nedenstående kode i modulvinduet.

VBA-kode: slet hele kolonner baseret på overskriftsværdi

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

Noter:

1) i koden, "gamle”Er den headerværdi, som du vil slette hele kolonnen baseret på. Skift til din headerværdi manuelt. Og A1: D1 er det kolonneområde, du vil bruge.

2) Denne kode skelner mellem store og små bogstaver.

3. Tryk på F5 tasten for at køre koden, vil hele kolonnen med en overskrift svarende til den angivne tekst blive slettet med det samme.

Slet hele kolonner baseret på overskriftsværdi med Kutools til Excel

Med Kutools til Excel's Vælg specifikke celler værktøj, kan du nemt vælge alle kolonner, der indeholder den bestemte overskriftsværdi først, og derefter slette disse valgte kolonner på én gang. Gør som følger.

Før påføring Kutools til Excel, Bedes download og installer det først.

1. Vælg det interval, der indeholder de kolonner, du skal slette, og klik derefter på Kutools > Type > Vælg specifikke celler. Se skærmbillede:

2. i Vælg specifikke celler dialogboksen skal du vælge Hele kolonnen valgmulighed i Valgtype sektion og i Specifik type rulleliste, vælg Lig valgmulighed, og skriv derefter headerværdien i det følgende felt. Og endelig klik på OK knap. Se skærmbillede:

3. Klik på OK i en anden dialogboks, der dukker op, så vælges kolonnerne, der indeholder den angivne overskriftsværdi med det samme.

4. Højreklik på kolonneoverskriften i den valgte kolonne, og klik derefter på Slette fra højreklikmenuen. Derefter slettes alle valgte kolonner på én gang.

Hvis du vil have en gratis prøveperiode (30-dag) for dette værktøj, klik for at downloade det, og gå derefter til at anvende handlingen i henhold til ovenstående trin.

De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.

Læs mere ... Gratis download... Køb...

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!

Læs mere ... Gratis download... Køb...

Kommentarer (12)

Ingen vurderinger endnu. Vær den første til at bedømme!

Leonard Staggs

omkring 5 år siden

#19816

Denne kommentar blev minimeret af moderatoren på webstedet

Beklager, hvis dette virker super grundlæggende, men det er første gang, jeg prøver vba. Ved at bruge dette, hvordan ville jeg anvende det til at slette flere kolonneoverskrifter. Jeg forsøger faktisk kun at beholde visse overskriftskolonner og slette resten af en skiftende liste.

Svar

forfader Leonard Staggs

cirka 1 år siden

#19817

Denne kommentar blev minimeret af moderatoren på webstedet

I den første kode skal du bare kopiere den 4. række og ændre den "gamle" til den anden kolonnenavn, og det vil virke

Svar

Elias

omkring 4 år siden

#26882

Denne kommentar blev minimeret af moderatoren på webstedet

Hej! Dette fungerer godt, indtil du har to sammenhængende kolonner med samme overskrift. Lad os sige, at dit område er A1:A5, og A2 og A3 har overskriften "gammel". Den sletter A2, men så flytter A3 til det sted, A2 plejede at besætte, og koden springer den over, da den vil se på den nye A3, den næste celle i dens rækkevidde.

Svar

krystal Elias

omkring 4 år siden

#26883

Denne kommentar blev minimeret af moderatoren på webstedet

Hej Elias,
Som du nævnte, har A2 og A3 samme header "gamle". Men de er i samme kolonne, efter at have anvendt koden, vil hele kolonne A blive fjernet med det samme.
Jeg er ikke sikker på, at jeg forstår din pointe. Det ville være rart, hvis du kunne give et skærmbillede af, hvad du forsøger at gøre.

Svar

Rapport

Mærke

omkring 2 år siden

#32598

Denne kommentar blev minimeret af moderatoren på webstedet

Hej, er det muligt at gøre dette med flere kolonnenavne?

Svar

krystal Mærke

omkring 2 år siden

#32599

Denne kommentar blev minimeret af moderatoren på webstedet

Hej Mark,
Prøv nedenstående kode. I den ottende linje skal du vedhæfte hvert kolonnenavn med dobbelte anførselstegn og adskille dem med komma. Håber jeg kan hjælpe. Tak skal du have.

Sub DeleteSpecifcColumn()

Dim xFNum, xFFNum, xCount As heltal

Dim xStr As String

Dim xArrName Som Variant

Dim MR, xRg As Range

On Error Resume Next

Indstil MR = Range("A1:N1")

xArrName = Array("old", "new", "get") 'omslut hvert kolonnenavn med dobbelte anførselstegn og adskil dem med komma

xCount = MR.Count

xStr = xArrName(xFNum)

For xFFNum = xTæl til 1 trin -1

Indstil xRg = Cells(1, xFFNum)

For xFNum = 0 Til UBound(xArrName)

xStr = xArrName(xFNum)

Hvis xRg.Value = xStr Så xRg.EntireColumn.Delete

Næste xFNum

Næste

End Sub

Svar

Rapport

Paul Rod krystal

cirka 1 år siden

#32600

Denne kommentar blev minimeret af moderatoren på webstedet

Jeg tror, at linje 12 skal ændres for at få koden til at virke. Original linje 12 "Set xRg = Cells(1, xFFNum)" modificeret linje 12 "Set xRg = MR(1, xFFNum)"
Sub DeleteSpecifcColumn()
Dim xFNum, xFFNum, xCount As heltal
Dim xStr As String
Dim xArrName Som Variant
Dim MR, xRg As Range
On Error Resume Next
Indstil MR = Range("A1:N1")
xArrName = Array("old", "new", "get") 'omslut hvert kolonnenavn med dobbelte anførselstegn og adskil dem med komma
xCount = MR.Count
xStr = xArrName(xFNum)
For xFFNum = xTæl til 1 trin -1
Indstil xRg = MR(1, xFFNum)
For xFNum = 0 Til UBound(xArrName)
xStr = xArrName(xFNum)
Hvis xRg.Value = xStr Så xRg.EntireColumn.Delete
Næste xFNum
Næste
End Sub

Svar

Rahul Mærke

cirka 1 år siden

#32601

Denne kommentar blev minimeret af moderatoren på webstedet

Hvad hvis overskrifterne starter fra 4. række

Svar

Jonathan

cirka 1 år siden

#35388

Denne kommentar blev minimeret af moderatoren på webstedet

VBA-eksemplet siger, at koden vil slette alle kolonner, hvis overskrifter INDEHOLDER "gamle". Det er ikke tilfældet. Operatoren = vil kun slette eksakte matches. Du skal bruge LIKE operatoren med et jokertegn.
Fast kode:Sub DeleteSpecifcColumn()
Indstil MR = Område("A1:D1")
For hver celle i MR
Hvis celle.Value LIKE "gammel*" Så celle.EntireColumn.Delete
Næste
End Sub

Svar

krystal Jonathan

cirka 1 år siden

#35389

Denne kommentar blev minimeret af moderatoren på webstedet

Hej, tak for din rettelse og deling.

Svar

Rapport

resnick

cirka 9 måneder siden

#37833

Denne kommentar blev minimeret af moderatoren på webstedet

Hola, tengo una hoja de excel med forskellige data, digamos 4 kolonner og 12 filas, mig gustaría poder imprimir cada fila en un folio separado en una plantilla, es decir, tenemos una hoja con varios nombres y apellidos y teléfono, tan quiero imprimáiras como filas tenga la hoja de excel, han inte tado varias cosas pero no encuentro la forma. Gracias de antemano

Svar

krystal resnick

cirka 9 måneder siden

#37838

Denne kommentar blev minimeret af moderatoren på webstedet

Hej,
Hvis du vil udskrive hver række på en separat side i arbejdsarket, er her et forslag om, at du indsætter sideskift hver 1. række og derefter udskriver dem.
Metoderne i denne artikel kan gøre dig en tjeneste. Prøv venligst. Tak skal du have.
Hvordan indsætter man sideskift hver X-række i Excel?[/url]
https://www.extendoffice.com/documents/excel/1774-excel-insert-page-break-every-row.html

Svar

Rapport

Der er endnu ingen kommentarer her

Efterlad dine kommentarer

Sender som gæst

Navn (Påkrævet)

E-mail (Påkrævet)

Bedøm dette indlæg:

Nulstil

0 Tegn

Jeg accepterer vilkår og betingelser