Hvordan skjules rækker automatisk, hvis tomme celler i en kolonne?
Hvis du har en række data, der udfylder nogle tomme celler i en kolonne, og nu vil du automatisk skjule de rækker, der indeholder de tomme celler i denne kolonne. Er der nogen gode måder at løse dette job i Excel hurtigt og nemt?
Skjul rækker automatisk, hvis tomme celler i en kolonne med VBA-kode
Skjul rækker automatisk, hvis tomme celler i en kolonne med VBA-kode
Den følgende kode kan hjælpe dig med at skjule alle rækker, hvis tomme celler i en bestemt kolonne på én gang, og hvis du sletter celleindholdet i denne kolonne, skjules rækkerne også automatisk. Gør som følger:
1. Højreklik på arkfanen, som du vil skjule rækkerne automatisk, hvis der er tomme celler i en kolonne, og vælg derefter Vis kode fra genvejsmenuen, i poppet ud Microsoft Visual Basic til applikationer vindue, skal du kopiere og indsætte følgende kode i det tomme felt Moduler:
VBA-kode: Skjul rækker automatisk, hvis tomme celler i en kolonne:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
Dim xRg As Range
Application.ScreenUpdating = False
For Each xRg In Range("A1:A20")
If xRg.Value = "" Then
xRg.EntireRow.Hidden = True
Else
xRg.EntireRow.Hidden = False
End If
Next xRg
Application.ScreenUpdating = True
End Sub
Bemærk: I ovenstående kode, A1: A20 er datalisten, der indeholder de tomme celler, du vil skjule automatisk.
2. Gå derefter tilbage til regnearket, og nu, når du dobbeltklikker på en hvilken som helst celle og trykker på Indtast nøglen, de rækker, der indeholder tomme celler i kolonne A, er skjult på én gang, og hvis du rydder noget celleindhold i de angivne celler i kolonne A, skjules rækkerne automatisk.
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!