5 metoda të shpejta për të fshirë në grup rreshta ose kolona të shumta në tabelën tuaj të Word-it

Në këtë artikull, ne dëshirojmë t'ju tregojmë 5 metoda të shpejta për të fshirë në grup rreshta ose kolona të shumta në tabelën tuaj Word.

Ne vendosëm të dhëna në tabela për ta bërë dokumentin të lehtë për syrin. Nuk është e pazakontë të krijoni një tryezë të gjatë. Megjithatë, kur kontrolloni përsëri tabelën dhe gjeni disa rreshta dhe kolona të panevojshme, do t'ju duhet një mënyrë e shpejtë për t'i hequr ato.

Së pari, le të shohim mënyrat për të fshirë shumë rreshta ose kolona të njëpasnjëshme.

Metoda 1: Fshini rreshtat ose kolonat përmes menysë kontekstuale

1. Së pari, zgjidhni një seri rreshtash ose kolonash dhe klikoni me të djathtën.
2. Pastaj zgjidhni "Fshi rreshtat" ose "Fshi kolonat" në përputhje me rrethanat.    
3. Ose mund të zgjidhni rreshta ose kolona dhe klikoni "Layout".
4. Pastaj zgjidhni "Fshi" dhe zgjidhni "Fshi kolonat" ose "Fshi rreshtat".

Metoda 2: Përdorni shkurtoret

1. Së pari, zgjidhni rreshtat ose kolonat.
2. Së dyti, shtypni "Backspace".

Tani nëse kolonat ose rreshtat janë jo të njëpasnjëshme, ne nuk mund t'i fshijmë ato duke përdorur metodat e mësipërme. Në vend të kësaj, ju mund të vendosni metodat e mëposhtme.

Metoda 3: Vendosni rreshtat ose kolonat e panevojshme së bashku

1. Së pari zgjidhni një rresht ose kolonë.
2. Pastaj klikoni miun dhe mbajeni.
3. Tërhiqeni miun në pozicionin e duhur dhe lëshojeni.
4. Pastaj zgjidhni të gjitha rreshtat ose kolonat e synuara dhe përdorni metodat e mësipërme për t'i fshirë ato.

Metoda 4: Ekzekutoni një makro për të fshirë shumë rreshta jo të njëpasnjëshëm

1. Para së gjithash, zgjidhni rreshtat.
2. Shtypni "Alt+ F11" për të hapur redaktorin VBA në Word.
3. Më pas krijoni një modul duke klikuar projektin “Normal”.
4. Pastaj klikoni "Fut" dhe zgjidhni "Modul".
5. Hapni modulin me klik të dyfishtë dhe ngjitni kodet e mëposhtme:

Sub DeleteNonConsecutiveRows()
  Dim objCell As Cell
  Dim objTable As Table
  Dim nIndex As Integer, nRows As Integer
  Dim strTable As String
  Dim varCellEmpty As Boolean
 
  Application.ScreenUpdating = False
 
  '  Delete contents in selected rows.
  Selection.Delete
 
  With Selection.Tables(1)
    nRows = .Rows.Count
    For nIndex = nRows To 1 Step -1
      For Each objCell In .Rows(nIndex).Cells
        If Len(objCell.Range.Text) > 2 Then
          varCellEmpty = False
          Exit For
        Else
          varCellEmpty = True
          .Rows(nIndex).Delete
        End If
      Next objCell
    Next nIndex
  End With
 
  Set objCell = Nothing
  Set objTable = Nothing
 
  Application.ScreenUpdating = True
End Sub

6. E fundit, por jo më pak e rëndësishmja, klikoni "Run" ose shtypni "F5".

Metoda 5: Ekzekutoni një makro për të fshirë shumë kolona jo të njëpasnjëshme

1. Para së gjithash, zgjidhni kolonat e synuara me butonin "Ctrl".
2. Pastaj instaloni dhe ekzekutoni një makro duke ndjekur të njëjtat hapa më lart.
3. Por zëvendësoni makro me këtë:

Sub DeleteNonConsecutiveColumns()
  Dim objCell As Cell
  Dim objTable As Table
  Dim nIndex As Integer, nColumns As Integer
  Dim strTable As String
  Dim varCellEmpty As Boolean
 
  Application.ScreenUpdating = False
 
  '  Delete contents in selected columns.
  Selection.Delete
 
  With Selection.Tables(1)
    nColumns = .Columns.Count
    For nIndex = nColumns To 1 Step -1
 
      For Each objCell In .Columns(nIndex).Cells
        If Len(objCell.Range.Text) > 2 Then
          varCellEmpty = False
          Exit For
        Else
          varCellEmpty = True
          .Columns(nIndex).Delete
        End If
      Next objCell
    Next nIndex
  End With
 
  Set objCell = Nothing
  Set objTable = Nothing
 
  Application.ScreenUpdating = True
End Sub

Kujdes nga Korrupsioni i Dokumenteve

Me rritjen e përdorimit të pajisjes së ruajtjes dixhitale, është e rëndësishme të kujdeseni për të dhënat. Një nga mënyrat më të mira është mbështetja e tyre. Për shembull, gjatë përdorimit të Word-it, ai mund të ndalojë së përgjigjuri krejt papritur. Dhe kur të kthehet në normalitet, mund ta gjeni vetëm dokumentin tuaj të vdekur. Dhe atëherë do t'ju duhet të kaloni nëpër të gjithë bujën e rikuperimi docx.

Hyrje e autorit:

Vera Chen është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë xlsx rregullim pdf riparimin e produkteve softuerike. Për më shumë informacion vizitoni www.datanumen.com