Note: The other languages of the website are Google-translated. Back to English

Kako izbrisati celotne stolpce na podlagi vrednosti glave v Excelu?

V mnogih primerih boste morda morali v Excelu izbrisati celotne stolpce glede na vrednost glave. Na primer, v glavi morate izbrisati vse stolpce, ki vsebujejo vrednost »old«. V tej vadnici vam bomo podrobno prikazali načine brisanja celotnih stolpcev na podlagi vrednosti glave.

Izbrišite celotne stolpce na podlagi vrednosti glave s kodo VBA
Z Kutools za Excel izbrišite celotne stolpce glede na vrednost glave


Izbrišite celotne stolpce na podlagi vrednosti glave s kodo VBA

S kodo VBA lahko izbrišete celotne stolpce na podlagi vrednosti glave. Naredite naslednje.

1. Pritisnite druga + F11 tipke hkrati, da odprete Aplikacija Microsoft Visual Basic okno.

2. V Ljubljani Aplikacija Microsoft Visual Basic okno, kliknite Vstavi > Moduli. Nato kopirajte in prilepite spodnjo kodo v okno modula.

Koda VBA: izbrišite celotne stolpce glede na vrednost glave

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

Opombe:

1) v kodi, "star"Je vrednost glave, na podlagi katere želite izbrisati celoten stolpec. Prosimo, ročno spremenite vrednost glave. In A1: D1 je obseg stolpcev, ki ga želite uporabiti.
2) Ta koda je občutljiva na velike in male črke.

3. Pritisnite F5 tipko za zagon kode, bo celoten stolpec z glavo, ki je enak podanemu besedilu, takoj izbrisan.


Z Kutools za Excel izbrišite celotne stolpce glede na vrednost glave

z Kutools za ExcelJe Izberite Specific Cells Pripomoček lahko enostavno izberete vse stolpce, ki vsebujejo določeno vrednost glave, nato pa te izbrane stolpce hkrati izbrišete. Naredite naslednje.

Pred vložitvijo vloge Kutools za ExcelProsim najprej ga prenesite in namestite.

1. Izberite obseg, ki vsebuje stolpce, ki jih želite izbrisati, in kliknite Kutools > Izberite > Izberite Specific Cells. Oglejte si posnetek zaslona:

2. V Ljubljani Izberite Specific Cells v pogovornem oknu izberite Celotna kolumna možnost v Vrsta izbire in v razdelku Posebna vrsta spustnega seznama izberite enako možnost, nato v naslednje polje vnesite vrednost glave. In končno kliknite OK . Oglejte si posnetek zaslona:

3. Kliknite OK v drugem pojavnem oknu, nato se takoj izberejo stolpci, ki vsebujejo določeno vrednost glave.

4. Z desno miškino tipko kliknite glavo stolpca izbranega stolpca in nato kliknite Brisanje v meniju z desnim klikom. Nato se naenkrat izbrišejo vsi izbrani stolpci.

  Če želite imeti brezplačen preizkus (30-dan) tega pripomočka, kliknite, če ga želite prenestiin nato nadaljujte z uporabo postopka v skladu z zgornjimi koraki.


Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
zavihek kte 201905

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
dno pisarniške mize
Komentarji (12)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Oprostite, če se zdi to zelo osnovno, vendar prvič poskušam vba. S tem, kako bi ga uporabil za brisanje več naslovov stolpcev. Pravzaprav poskušam obdržati samo določene stolpce v glavi in ​​izbrisati preostanek spreminjajočega se seznama.
Ta komentar je moderator na spletnem mestu minimiziral
V prvi kodi samo kopirajte 4. vrstico in spremenite "staro" v ime drugega stolpca in bo delovalo
Ta komentar je moderator na spletnem mestu minimiziral
Zdravo! To deluje dobro, dokler nimate dveh sosednjih stolpcev z isto glavo. Recimo, da je vaš obseg A1:A5, A2 in A3 pa imata glavo »staro«. Izbrisal bo A2, potem pa se bo A3 premaknil na mesto, ki ga je zasedal A2, koda pa ga bo preskočila, saj bo gledala novo celico A3, naslednjo celico v svojem obsegu.
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Elias,
Kot ste omenili, imata A2 in A3 isto glavo "staro". Vendar so v istem stolpcu, po uporabi kode bo takoj odstranjen celoten stolpec A.
Nisem prepričan, da razumem vašo misel. Lepo bi bilo, če bi lahko posredovali posnetek zaslona tega, kar poskušate narediti.
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, ali je to mogoče storiti z več imeni stolpcev?
Ta komentar je moderator na spletnem mestu minimiziral
Zdravo Mark,
Poskusite s spodnjo kodo. Prosimo, da v osmi vrstici vsako ime stolpca priložite z dvojnimi narekovaji in jih ločite z vejico. Upam, da lahko pomagam. Hvala vam.

PodDeleteSpecifcColumn()

Dim xFNum, xFFNum, xCount kot celo število

Dim xStr kot niz

Dim xArrName kot različica

Dim MR, xRg As Range

On Error Resume Next

Nastavite MR = razpon ("A1:N1")

xArrName = Array("old", "new", "get") 'zaprite vsako ime stolpca z dvojnimi narekovaji in jih ločite z vejicami

xCount = MR.Count

xStr = xArrName(xFNum)

Za xFFNum = xCount do 1 koraka -1

Nastavi xRg = Celice(1, xFFNum)

Za xFNum = 0 do UBound(xArrName)

xStr = xArrName(xFNum)

Če je xRg.Value = xStr Potem xRg.EntireColumn.Delete

Naslednji xFNum

Naslednji

End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Mislim, da je treba vrstico 12 spremeniti, da bo koda delovala. Izvirna vrstica 12 "Nastavi xRg = Celice(1, xFFNum)" spremenjena vrstica 12 "Nastavi xRg = MR(1, xFFNum)"
PodDeleteSpecifcColumn()
Dim xFNum, xFFNum, xCount kot celo število
Dim xStr kot niz
Dim xArrName kot različica
Dim MR, xRg As Range
On Error Resume Next
Nastavite MR = razpon ("A1:N1")
xArrName = Array("old", "new", "get") 'zaprite vsako ime stolpca z dvojnimi narekovaji in jih ločite z vejicami
xCount = MR.Count
xStr = xArrName(xFNum)
Za xFFNum = xCount do 1 koraka -1
Nastavi xRg = MR(1, xFFNum)
Za xFNum = 0 do UBound(xArrName)
xStr = xArrName(xFNum)
Če je xRg.Value = xStr Potem xRg.EntireColumn.Delete
Naslednji xFNum
Naslednji
End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Kaj pa, če se glave začnejo od 4. vrstice
Ta komentar je moderator na spletnem mestu minimiziral
Primer VBA navaja, da bo koda izbrisala vse stolpce, katerih glave VSEBUJEJO "staro." To ni tako. Operater = bo izbrisal samo natančna ujemanja. Operater LIKE morate uporabiti z nadomestnim znakom.
Fiksna koda:Sub DeleteSpecifcColumn()
Nastavite MR = razpon ("A1:D1")
Za vsako celico v MR
Če je cell.Value LIKE "old*" Potem cell.EntireColumn.Delete
Naslednji
End Sub

Ta komentar je moderator na spletnem mestu minimiziral
Živjo, hvala za vaš popravek in delitev. 
Ta komentar je moderator na spletnem mestu minimiziral
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 pritelás y apellidos y quieros como filas tenga la hoja de excel, he inte tado varias cosas pero no encuentro la forma. Gracias de antemano
Ta komentar je moderator na spletnem mestu minimiziral
Hi,
Če želite natisniti vsako vrstico na ločeni strani na delovnem listu, je tukaj predlog, da vstavite prelome strani na vsako 1 vrstico in jih nato natisnete.
Metode, navedene v tem članku, vam lahko naredijo uslugo. Prosimo, poskusite. Hvala vam.
Kako vstaviti prelom strani vsakih X vrstic v Excelu?[/url]
https://www.extendoffice.com/documents/excel/1774-excel-insert-page-break-every-row.html
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL