Cum să ascundeți mai multe rânduri sau coloane goale în Excel simultan în Excel?
Pentru a ascunde sau a elimina rândurile sau coloanele goale vă poate ajuta să condensați foaia de lucru, în acest articol vă voi prezenta câteva modalități rapide de a ascunde sau elimina rândurile sau coloanele goale din foaia de lucru Excel.
Ascundeți rapid mai multe rânduri sau coloane goale cu cod VBA
Ștergeți rapid mai multe rânduri sau coloane goale cu Kutools pentru Excel
Ascundeți rapid mai multe rânduri sau coloane goale cu cod VBA
Următorul cod VBA vă poate ajuta să ascundeți rapid și ușor mai multe rânduri sau coloane goale într-o foaie de lucru.
1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. Clic Insera > Moduleși lipiți următorul cod în Module Fereastră.
Cod VBA: ascundeți mai multe rânduri goale într-o foaie de lucru
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. Apoi apăsați F5 tasta pentru a rula acest cod și se afișează o casetă de solicitare pentru a vă reaminti selectarea intervalului de date pe care doriți să ascundeți rândurile goale, consultați captura de ecran:
4. Apoi faceți clic pe OK butonul, rândurile goale sunt ascunse simultan, vezi captura de ecran:
notițe: Pentru a ascunde mai multe coloane goale, vă rugăm să aplicați următorul cod VBA:
Cod VBA: ascundeți mai multe coloane goale într-o foaie de lucru
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
Ștergeți rapid mai multe rânduri sau coloane goale cu Kutools pentru Excel
În această secțiune, voi vorbi despre cum să ștergeți mai multe rânduri sau coloane goale pe care nu le-ați dorit într-un interval, foaie de lucru sau registru de lucru. Kutools pentru Excel'S Ștergeți rândurile și coloanele ascunse (vizibile) utilitarul vă poate ajuta să rezolvați această sarcină cât mai repede posibil.
Kutools pentru Excel : cu mai mult de 300 de programe de completare Excel la îndemână, gratuit pentru a încerca fără limitări în 30 de zile. |
După instalare Kutools pentru Excel, vă rugăm să faceți următoarele:
1. Selectați intervalul de date pe care doriți să îl ștergeți pe rândurile sau coloanele goale, apoi faceți clic pe Kutools > Șterge > Ștergeți rândurile și coloanele ascunse (vizibile), vezi captura de ecran:
2. În Ștergeți rândurile și coloanele ascunse (vizibile) fereastră de dialog, selectați În gama selectată in Uită-te în listă derulantă (puteți alege și altă opțiune din această listă derulantă după cum aveți nevoie), selectați Rânduri or Coloane de la Ștergeți tipul secțiune și alegeți Rânduri goale or Coloane goale în temeiul Tipul detaliat secțiune, vezi captura de ecran:
3. Apoi faceți clic pe Ok butonul, rândurile sau coloanele goale din selecție au fost eliminate simultan. Vedeți captura de ecran:
notițe: Cu această caracteristică, puteți șterge și rândurile sau coloanele ascunse, rândurile sau coloanele vizibile din selecție, foaia de lucru sau registrul de lucru după cum aveți nevoie.
Faceți clic pe Descărcare gratuită Kutools pentru Excel acum!
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!