5 brzih metoda za grupno brisanje više redova ili kolona u vašoj Word tablici

U ovom članku želimo vam pokazati 5 brzih metoda za grupno brisanje više redova ili stupaca u vašoj Word tablici.

Stavljamo podatke u tabele kako bismo dokument učinili lakšim za oko. Nije neuobičajeno napraviti dugačak sto. Međutim, kada ponovo provjerite tabelu i nađete da su neki redovi i stupci nepotrebni, trebat će vam brz način da ih uklonite.

Prvo pogledajmo načine za brisanje više uzastopnih redova ili kolona.

Metoda 1: Izbrišite redove ili kolone kroz kontekstni meni

1. Prvo odaberite niz redova ili kolona i kliknite desnim klikom.
2. Zatim odaberite “Delete Rows” ili “Delete Columns” u skladu s tim.    
3. Ili možete odabrati redove ili stupce i kliknuti na “Layout”.
4. Zatim odaberite “Delete” i odaberite “Delete Columns” ili “Delete Rows”.

Metod 2: Koristite prečice

1. Prvo odaberite redove ili stupce.
2. Drugo, pritisnite “Backspace”.

Sada, ako kolone ili redovi nisu uzastopni, ne možemo ih izbrisati pomoću gornjih metoda. Umjesto toga, možete primijeniti sljedeće metode.

Metoda 3: Spojite nepotrebne redove ili kolone

1. Prvo odaberite red ili kolonu.
2. Zatim kliknite mišem i zadržite.
3. Povucite miša na odgovarajuću poziciju i otpustite.
4. Zatim odaberite sve ciljne redove ili kolone i koristite gore navedene metode da ih izbrišete.

Metoda 4: Pokrenite makro za brisanje više redova koji nisu uzastopni

1. Prvo i najvažnije, odaberite redove.
2. Pritisnite “Alt+ F11” da otvorite VBA editor u Wordu.
3. Zatim kreirajte modul klikom na “Normal” projekat.
4. Zatim kliknite na “Insert” i odaberite “Module”.
5. Otvorite modul dvostrukim klikom i zalijepite sljedeće kodove:

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. Na kraju, ali ne i najmanje važno, kliknite na “Run” ili pritisnite “F5”.

Metoda 5: Pokrenite makro za brisanje više kolona koje nisu uzastopne

1. Prvo, odaberite ciljne kolone pomoću tipke "Ctrl".
2. Zatim instalirajte i pokrenite makro slijedeći iste korake gore.
3. Ali zamijenite makro sa ovim:

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

Pazite na korupciju dokumenata

Sa sve većom upotrebom digitalnih uređaja za pohranu, važno je voditi računa o podacima. Jedan od najboljih načina je da ih napravite sigurnosnu kopiju. Na primjer, dok koristite Word, on može odjednom prestati reagirati. A kada se vrati u normalu, možete pronaći samo vaš dokument mrtav. A onda ćete morati proći kroz svu gužvu docx oporavak.

Uvod za autora:

Vera Chen je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući xlsx fix i pdf popravak softverskih proizvoda. Za više informacija posjetite www.datanumen.com