Hvordan skjules flere tomme rækker eller kolonner i Excel på én gang i Excel?
For at skjule eller fjerne de tomme rækker eller kolonner kan det hjælpe dig med at kondensere regnearket. I denne artikel introducerer jeg dig nogle hurtige måder at skjule eller fjerne de tomme rækker eller kolonner i Excel-regneark.
Skjul hurtigt flere tomme rækker eller kolonner med VBA-kode
Slet hurtigt flere tomme rækker eller kolonner med Kutools til Excel
Skjul hurtigt flere tomme rækker eller kolonner med VBA-kode
Følgende VBA-kode kan hjælpe dig med at skjule flere tomme rækker eller kolonner i et regneark hurtigt og nemt.
1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.
VBA-kode: Skjul flere tomme rækker i et regneark
Sub HideEmpties()
'Updateby Extendoffice
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
On Error Resume Next
For I = 1 To xRg.Row + xRg.Rows.Count
If Application.WorksheetFunction.CountA(xRg.Rows(I)) = 0 Then
xRg.Rows(I).EntireRow.Hidden = True
End If
Next
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 vælge det dataområde, som du vil skjule de tomme rækker, se skærmbillede:
4. Og klik derefter på OK knap, de tomme rækker er skjult på én gang, se skærmbillede:
Bemærk: For at skjule flere tomme kolonner skal du anvende følgende VBA-kode:
VBA-kode: Skjul flere tomme kolonner i et regneark
Sub HideEmpties()
'Updateby Extendoffice
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
On Error Resume Next
For I = 1 To xRg.Column + xRg.Columns.Count
If Application.WorksheetFunction.CountA(xRg.Columns(I)) = 0 Then
xRg.Columns(I).EntireColumn.Hidden = True
End If
Next
End Sub
Slet hurtigt flere tomme rækker eller kolonner med Kutools til Excel
Dette afsnit vil jeg tale om, hvordan du sletter flere tomme rækker eller kolonner, som du uønskede i et interval, regneark eller projektmappe. Det Kutools til Excel's Slet skjulte (synlige) rækker og kolonner hjælpeprogram kan hjælpe dig med at løse denne opgave så hurtigt som muligt.
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 det dataområde, som du vil slette de tomme rækker eller kolonner, og klik derefter på Kutools > Slette > Slet skjulte (synlige) rækker og kolonner, se skærmbillede:
2. I Slet skjulte (synlige) rækker og kolonner dialogboksen, vælg I valgt interval in Kig ind rulleliste (du kan også vælge en anden mulighed i denne rulleliste efter behov), vælg Rækker or Kolonner fra Slet type sektion, og vælg Tomme rækker or Tomme søjler under Detaljeret type sektion, se skærmbillede:
3. Og klik derefter på Ok knappen, er de tomme rækker eller kolonner i markeringen fjernet på én gang. Se skærmbillede:
Bemærk: Med denne funktion sletter du også skjulte rækker eller kolonner, synlige rækker eller kolonner i valg, regneark eller projektmappe 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!