Hogyan lehet teljes oszlopokat törölni az Excel fejlécértéke alapján?

Sok esetben előfordulhat, hogy a teljes oszlopokat törölnie kell az Excel fejlécértéke alapján. Például törölnie kell az összes olyan oszlopot, amely a „régi” értéket tartalmazza a fejlécben. Ebben az oktatóanyagban bemutatjuk a teljes oszlopok törlésének módszereit a fejléc értéke alapján.

Töröljön teljes oszlopokat a VBA kóddal ellátott fejlécérték alapján
Töröljön teljes oszlopokat a fejléc értéke alapján a Kutools for Excel alkalmazással

Töröljön teljes oszlopokat a VBA kóddal ellátott fejlécérték alapján

A VBA kóddal ellátott fejlécérték alapján teljes oszlopokat törölhet. Kérjük, tegye a következőket.

1. nyomja meg más + F11 gombok egyszerre a Microsoft Visual Basic alkalmazás ablak.

2. Ban,-ben Microsoft Visual Basic alkalmazás ablakban kattintson betétlap > Modulok. Ezután másolja és illessze be az alábbi kódot a Modul ablakba.

VBA kód: teljes oszlopok törlése a fejléc értéke alapján

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

Megjegyzések:

1) a kódban: „régi”Az a fejléc értéke, amely alapján törölni kívánja az egész oszlopot. Kérjük, módosítsa a fejléc értékét manuálisan. És A1: D1 a használni kívánt oszloptartomány.

2) Ez a kód megkülönbözteti a kis- és nagybetűket.

3. megnyomni a F5 gombot a kód futtatásához, a teljes oszlop, amelynek fejléce megegyezik a megadott szöveggel, azonnal törlődik.

Töröljön teljes oszlopokat a fejléc értéke alapján a Kutools for Excel alkalmazással

Val vel Kutools az Excel számára'S Válassza a Specifikus cellák lehetőséget segédprogram segítségével könnyedén kiválaszthatja az összes oszlopot, amely először tartalmazza a bizonyos fejlécértéket, majd ezeket a kijelölt oszlopokat egyszerre törölheti. Kérjük, tegye a következőket.

Alkalmazás előtt Kutools az Excel számáraKérjük, először töltse le és telepítse.

1. Válassza ki a törölni kívánt oszlopokat tartalmazó tartományt, majd kattintson a gombra Kutools > választ > Válassza a Specifikus cellák lehetőséget. Lásd a képernyőképet:

2. Ban,-ben Válassza a Specifikus cellák lehetőséget párbeszédpanelen válassza a ikont Teljes oszlop lehetőség a Kiválasztás típusa szakaszban, és a Konkrét típus legördülő listából válassza a lehetőséget Egyenlő opciót, majd írja be a fejléc értékét a következő mezőbe. És végül kattintson a gombra OK gomb. Lásd a képernyőképet:

3. Kattintson a OK gombot egy másik felbukkanó párbeszédpanelen, majd azonnal kijelölik azokat az oszlopokat, amelyek a megadott fejlécértéket tartalmazzák.

4. Kattintson a jobb gombbal a kijelölt oszlop oszlopfejlécére, majd kattintson a gombra töröl a jobb egérgombbal kattintva. Ezután az összes kijelölt oszlop egyszerre törlődik.

Ha szeretnél egy ingyenes próbaidőszakot (30-nap) ebből a segédprogramból, kattintson a letöltéshez, majd lépjen a művelet végrehajtására a fenti lépések szerint.

A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.

Tovább ... Ingyenes letöltés... Vásárlás...

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!

Tovább ... Ingyenes letöltés... Vásárlás...

Hozzászólások (12)

Még nincs értékelés. Legyen Ön az első, aki értékel!

Leonard Staggs

körülbelül 5 éve

#19816

A weboldal moderátora ezt a megjegyzést minimalizálta

Elnézést, ha ez nagyon alapnak tűnik, de most először próbálom a vba-t. Ennek segítségével hogyan alkalmazhatnám több oszlopfejléc törlésére. Valójában csak bizonyos fejlécoszlopokat próbálok megtartani, a változó lista többi részét pedig törölni.

Válasz

ős Leonard Staggs

mintegy 1 éve

#19817

A weboldal moderátora ezt a megjegyzést minimalizálta

Az első kódban csak másolja a 4. sort, és változtassa meg a "régi"-t a második oszlop nevére, és működni fog

Válasz

Elias

körülbelül 4 éve

#26882

A weboldal moderátora ezt a megjegyzést minimalizálta

Hé! Ez mindaddig jól működik, amíg nincs két szomszédos oszlopa ugyanazzal a fejléccel. Tegyük fel, hogy az Ön tartománya A1:A5, és az A2 és A3 fejléce „régi”. Törli az A2-t, de ekkor az A3 az A2 által korábban elfoglalt helyre kerül, és a kód kihagyja, mivel az új A3-at, a tartomány következő celláját fogja nézni.

Válasz

kristály- Elias

körülbelül 4 éve

#26883

A weboldal moderátora ezt a megjegyzést minimalizálta

Szia Elias,
Ahogy említetted, az A2-nek és az A3-nak ugyanaz a „régi” fejléce. De ugyanabban az oszlopban vannak, a kód alkalmazása után az egész A oszlop azonnal el lesz távolítva.
Nem vagyok benne biztos, hogy értem az álláspontodat. Jó lenne, ha képernyőképet adnál arról, hogy mit próbálsz csinálni.

Válasz

Jelentés

Mark

körülbelül 2 éve

#32598

A weboldal moderátora ezt a megjegyzést minimalizálta

Szia, ezt több oszlopnévvel is meg lehet csinálni?

Válasz

kristály- Mark

körülbelül 2 éve

#32599

A weboldal moderátora ezt a megjegyzést minimalizálta

Szia Mark,
Próbáld ki az alábbi kódot. A nyolcadik sorban kérjük, tegyen minden oszlop nevét dupla idézőjelbe, és válassza el őket vesszővel. Remélem tudok segíteni. Köszönöm.

Sub DeleteSpecifcColumn()

Dim xFNum, xFFNum, xCount As Integer

Dim xStr As String

Dim xArrName As Variant

Dim MR, xRg As Range

On Error Resume Next

MR beállítása = Tartomány ("A1:N1")

xArrName = Array("old", "new", "get") ' minden oszlop nevét idézőjelbe kell tenni, és vesszővel elválasztani

xCount = MR.Count

xStr = xArrName(xFNum)

Ha xFFNum = xCount To 1 Step -1

xRg beállítása = Cellák (1, xFFNum)

Ha xFNum = 0 - UBound(xArrName)

xStr = xArrName(xFNum)

Ha xRg.Value = xStr Akkor xRg.EntireColumn.Delete

Következő xFNum

Következő

End Sub

Válasz

Jelentés

Paul Rod kristály-

mintegy 1 éve

#32600

A weboldal moderátora ezt a megjegyzést minimalizálta

Szerintem a 12. sort meg kell változtatni, hogy működjön a kód. Eredeti 12. sor "Set xRg = Cells(1, xFFNum)" módosított 12. sor "Set xRg = MR(1, xFFNum)"
Sub DeleteSpecifcColumn()
Dim xFNum, xFFNum, xCount As Integer
Dim xStr As String
Dim xArrName As Variant
Dim MR, xRg As Range
On Error Resume Next
MR beállítása = Tartomány ("A1:N1")
xArrName = Array("old", "new", "get") ' minden oszlop nevét idézőjelbe kell tenni, és vesszővel elválasztani
xCount = MR.Count
xStr = xArrName(xFNum)
Ha xFFNum = xCount To 1 Step -1
xRg = MR(1, xFFNum) beállítása
Ha xFNum = 0 - UBound(xArrName)
xStr = xArrName(xFNum)
Ha xRg.Value = xStr Akkor xRg.EntireColumn.Delete
Következő xFNum
Következő
End Sub

Válasz

Rahul Mark

mintegy 1 éve

#32601

A weboldal moderátora ezt a megjegyzést minimalizálta

Mi van, ha a fejlécek a 4. sortól kezdődnek

Válasz

Jonatán

mintegy 1 éve

#35388

A weboldal moderátora ezt a megjegyzést minimalizálta

A VBA-példa azt állítja, hogy a kód törli az összes olyan oszlopot, amelynek fejléce „régi” szöveget TARTALMAZ. Nem ez a helyzet. Az = operátor csak a pontos egyezéseket törli. A LIKE operátort helyettesítő karakterrel kell használnia.
Javított kód: Sub DeleteSpecifcColumn()
MR beállítása = Tartomány ("A1:D1")
Minden egyes cellához az MR-ben
Ha cell.Value LIKE "régi*" Majd cell.EntireColumn.Delete
Következő
End Sub

Válasz

kristály- Jonatán

mintegy 1 éve

#35389

A weboldal moderátora ezt a megjegyzést minimalizálta

Szia! Köszönjük a helyesbítést és a megosztást.

Válasz

Jelentés

resnick

mintegy 9 hónappal ezelőtt

#37833

A weboldal moderátora ezt a megjegyzést minimalizálta

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 teléfono, como filas tenga la hoja de excel, he inte tado varias cosas pero no encuentro la forma. Gracias de antemano

Válasz

kristály- resnick

mintegy 9 hónappal ezelőtt

#37838

A weboldal moderátora ezt a megjegyzést minimalizálta

Szia,
Ha a munkalap minden sorát külön oldalon szeretné kinyomtatni, javasoljuk, hogy 1 soronként illessze be az oldaltöréseket, majd nyomtassa ki őket.
A cikkben ismertetett módszerek jót tehetnek Önnek. Kérjük, próbálja meg. Köszönöm.
Hogyan lehet oldaltörést beszúrni minden X sorba az Excelben?[/url]
https://www.extendoffice.com/documents/excel/1774-excel-insert-page-break-every-row.html

Válasz

Jelentés

Még senki sem írt megjegyzést

Hagyja meg észrevételeit

Feladás vendégként

Bejelentkezés

Név (kötelező)

Email (szükséges)

Értékeld ezt a bejegyzést:

vissza

0 Karakterek

Egyetértek azzal, hogy a szabályait és feltételeit