Hur tar jag bort tomma kolumner med rubrik i Excel?
Om du har ett stort kalkylblad som innehåller flera kolumner, men vissa av kolumnerna innehåller bara en rubrik, och nu vill du ta bort dessa tomma kolumner som med bara en rubrik för att få följande skärmdump att visas. Kan detta lösas i Excel snabbt och enkelt?
Ta bort tomma kolumner med en rubrik med hjälp av VBA-kod
Ta bort flera tomma kolumner i ett intervall / kalkylblad / arbetsbok med Kutools för Excel
Ta bort tomma kolumner med en rubrik med hjälp av VBA-kod
I Excel finns det ingen direkt metod för att hantera detta jobb förutom att ta bort dem en efter en manuellt, men här kan jag införa en kod åt dig, gör så här:
1. Håll ner ALT + F11 och sedan öppnas Microsoft Visual Basic för applikationer fönster.
2. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.
VBA-kod: Ta bort tomma kolumner med en rubrik:
Sub Macro1()
'updateby Extendoffice
Dim xEndCol As Long
Dim I As Long
Dim xDel As Boolean
On Error Resume Next
xEndCol = Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
If xEndCol = 0 Then
MsgBox "There is no data on """ & ActiveSheet.Name & """ .", vbExclamation, "Kutools for Excel"
Exit Sub
End If
Application.ScreenUpdating = False
For I = xEndCol To 1 Step -1
If Application.WorksheetFunction.CountA(Columns(I)) <= 1 Then
Columns(I).Delete
xDel = True
End If
Next
If xDel Then
MsgBox "All blank and column(s) with only a header row have now been deleted.", vbInformation, "Kutools for Excel"
Else
MsgBox "There are no Columns to delete as each one has more data (rows) than just a header.", vbExclamation, "Kutools for Excel"
End If
Application.ScreenUpdating = True
End Sub
3. Tryck sedan på F5 nyckel för att köra den här koden, och en snabbruta dyker upp för att påminna dig om att de tomma kolumnerna med rubrik kommer att raderas, se skärmdump:
4. Och klicka sedan på OK -knappen raderas alla tomma kolumner med endast rubrik i det aktuella kalkylbladet på en gång.
Anmärkningar: Om det finns tomma kolumner kommer de också att raderas.
Ta bort flera tomma kolumner i ett intervall / kalkylblad / arbetsbok med Kutools för Excel
Ibland behöver du bara ta bort de tomma kolumnerna Kutools för ExcelÄr Ta bort dolda (synliga) rader och kolumner verktyget kan hjälpa dig att slutföra denna uppgift med lätthet.
Kutools för Excel : med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar. |
När du har installerat Kutools för Excel, gör så här:
1. Välj det kolumnerområde som innehåller de tomma kolumnerna som måste tas bort.
2. Klicka sedan Kutools > Radera > Ta bort dolda (synliga) rader och kolumner, se skärmdump:
3. I Ta bort dolda (synliga) rader och kolumner i dialogrutan kan du välja borttagningsområdet från rullgardinsmenyn Se in efter behov, välj Kolonner från Radera typ avsnittet och välj sedan Tomma kolumner från Detaljerad typ avsnitt, se skärmdump:
4. Klicka sedan Ok och bara de tomma kolumnerna raderas på en gång. Se skärmdump:
tips: Med den här kraftfulla funktionen kan du också ta bort tomma rader, synliga kolumner eller rad, dolda kolumner eller rader efter behov.
Klicka på Gratis nedladdning Kutools för Excel nu!
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!