1. Location:
  2. / Computer learning >> Datamaskin læring >> Kontor-Programvare >> Microsoft excel >> excel Komplekset >>

Hvordan slette flere tomme kolonner raskt i Excel?

Excel Gå til Spesialkommando kan hjelpe deg raskt velge flere tomme kolonner, og deretter kan du slette dem samtidig. Du kan gjøre som følgende:

1. Velg området som inneholder de blanke kolonnene som du vil fjerne.

2. Klikk Home > Finn & Velg > Gå til Special. Se skjermbilde:


3. I Go To Special dialogboksen sjekk Blanks alternativet.


4. Og klikk deretter på OK, alle de tomme kolonnene i det valgte området er uthevet.

5. Klikk deretter på Home > Slett > Slett ark kolonner, har de tomme radene blitt slettet fra det valgte området. Se skjermbilder:

Slett flere tomme kolonner med VBA

Hvis du ønsker å bruke VBA-makro, går mye lettere ting. Her er to VBA-makroer for deg.

1. Slett tomme kolonner i utvalg

Trinn 1: Velg området som du vil arbeide med

Trinn 2:. Hold nede ALT + F11-tastene i Excel, og det åpner Microsoft Visual Basic for søknader vindu

Trinn 3:. Klikk på Insert > Modul, og lim inn følgende makro i modulvinduet.

VBA for å slette kolonner i utvalg
Sub DeleteEmptyColumns () 'Updateby20140317Dim RNG Som RangeDim InputRng Som RangexTitleId = "KutoolsforExcel" Set InputRng = Application .SelectionSet InputRng = Application.InputBox ( "Range:", xTitleId, InputRng.Address, Type: = 8) Application.ScreenUpdating = FalseFor i = InputRng.Columns.Count Til en Step -1 Sett RNG = InputRng.Cells (1, i) .EntireColumn Hvis Application.WorksheetFunction.CountA (RNG) = 0 Then rng.Delete End IfNextApplication.ScreenUpdating = TrueEnd Sub

Trinn 4: Trykk F5 for å kjøre denne makroen. Velg arbeidet området du må pop ut dialogen. Se skjermbilde:


Trinn 5: Klikk på OK, så alle tomme kolonner i utvalget er fjernet. Se skjermbilde:

2. Slett tomme kolonner i hele ved hjelp av arbeidsområdet

Trinn 1:. Hold nede ALT + F11-tastene i Excel, og det åpner Microsoft Visual Basic for Applications vindu

Trinn 2: Klikk Insert > Modul, og lim inn følgende makro i modulvinduet.
Sub DelEmptyCols () 'Updateby20140317Dim RNG Som RangexTitleId = "KutoolsforExcel" Set InputRng = Application.ActiveSheet.UsedRangeApplication.ScreenUpdating = FalseFor i = InputRng.Columns.Count til 1 trinn -1 Sett RNG = InputRng.Cells (1, i) .EntireColumn Hvis Application.WorksheetFunction.CountA (RNG) = 0 Then rng.Delete End IfNextApplication.ScreenUpdating = TrueEnd Sub

< p> Trinn 3: Trykk F5 for å kjøre denne makroen. Da vil alle kolonnene i det aktive regnearket blir fjernet

Slett flere tomme kolonner med Kutools for Excel

Slett rader og amp.; Kolonner nytten av Kutools for Excel kan hjelpe deg raskt fjerne flere tomme rader eller kolonner samtidig

Kutools for Excel. Med mer enn 120 praktiske Excel-tillegg, gratis å prøve uten begrensning i 30days. Få den nå

Etter å ha installert Kutools for Excel, kan du gjøre som dette:.

1. Klikk Kutools > Slett Verktøy > Slett rader og amp; Kolonner, se skjermbilde:


2. I slette rader og amp; Kolonner dialogboksen angir omfanget som du vil bruke operasjonen fra Look i nedtrekkslisten. (Hvis du velger I Selected Range, må du velge et område som du vil bruke først.) Og så sjekk Kolonner henhold Slett type. Og velg Blanke kolonner fra Detaljert type. Se skjermbilde:


3. Klikk deretter på OK. Og de blanke kolonnene har blitt slettet fra det valgte området. Se skjermbilder:

Hvis du vil vite mer om denne funksjonen, kan du gå til Slett rader og amp; Kolonner funksjon.