Hvordan slettes tomme kolonner med overskrift i Excel?
Hvis du har et stort regneark, der indeholder flere kolonner, men nogle af kolonnerne kun indeholder en overskrift, og nu vil du slette disse tomme kolonner, der med kun en overskrift får følgende skærmbillede vist. Kan dette løses i Excel hurtigt og nemt?
Slet tomme kolonner med en overskrift ved hjælp af VBA-kode
Slet flere tomme kolonner i et interval / regneark / projektmappe med Kutools til Excel
Slet tomme kolonner med en overskrift ved hjælp af VBA-kode
I Excel er der ingen direkte metode til at håndtere dette job undtagen at slette dem en efter en manuelt, men her kan jeg introducere en kode til dig, gør som følger:
1. Hold nede i ALT + F11 tasterne, så åbner den Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.
VBA-kode: Slet tomme kolonner med et overskrift:
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. Tryk derefter på F5 nøgle til at køre denne kode, og der vises et promptfelt for at minde dig om, at de tomme kolonner med overskrift slettes, se skærmbillede:
4. Og klik derefter på OK knappen slettes alle de tomme kolonner med kun overskrift i det aktuelle regneark på én gang.
Bemærk: Hvis der er tomme kolonner, slettes de også.
Slet flere tomme kolonner i et interval / regneark / projektmappe med Kutools til Excel
Nogle gange behøver du kun at slette de tomme kolonner, Kutools til Excel's Slet skjulte (synlige) rækker og kolonner værktøj kan hjælpe dig med at afslutte denne opgave med lethed.
Kutools til Excel : med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage. |
Efter installation Kutools til Excelskal du gøre som følger:
1. Vælg kolonneområdet, der inkluderer de tomme kolonner, der skal slettes.
2. Klik derefter på Kutools > Slette > Slet skjulte (synlige) rækker og kolonner, se skærmbillede:
3. I Slet skjulte (synlige) rækker og kolonner i dialogboksen, kan du vælge sletningsområdet fra rullemenuen Se i, som du har brug for, vælg Kolonner fra Slet type sektion, og vælg derefter Tomme søjler fra Detaljeret type sektion, se skærmbillede:
4. Klik derefter på Ok knappen, og kun de tomme kolonner slettes på én gang. Se skærmbillede:
Tips: Med denne kraftfulde funktion kan du også slette tomme rækker, synlige kolonner eller række, skjulte kolonner eller rækker efter behov.
Klik på Gratis download Kutools til Excel nu!
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
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!