5 brzih metoda za skupno brisanje više redaka ili stupaca u vašoj Word tablici

U ovom članku želimo vam pokazati 5 brzih metoda grupnog brisanja više redaka ili stupaca u vašoj Word tablici.

Stavljamo podatke u tablice kako bismo dokument učinili lakšim za oko. Nije neuobičajeno stvoriti dugačak stol. Međutim, kada ponovno provjerite tablicu i ustanovite da su neki reci i stupci nepotrebni, trebat će vam brzi način da ih uklonite.

Prvo pogledajmo načine brisanja više uzastopnih redaka ili stupaca.

Metoda 1: Brisanje redaka ili stupaca putem kontekstualnog izbornika

1. Najprije odaberite niz redaka ili stupaca i kliknite desnom tipkom miša.
2. Zatim odaberite "Izbriši retke" ili "Izbriši stupce" u skladu s tim.    
3. Ili možete odabrati retke ili stupce i kliknuti "Izgled".
4. Zatim odaberite "Izbriši" i odaberite "Izbriši stupce" ili "Izbriši retke".

Metoda 2: Koristite prečace

1. Najprije odaberite retke ili stupce.
2. Drugo, pritisnite “Backspace”.

Sada, ako stupci ili retci nisu uzastopni, ne možemo ih izbrisati koristeći gore navedene metode. Umjesto toga, možete primijeniti sljedeće metode.

Metoda 3: Spojite nepotrebne retke ili stupce

1. Najprije odaberite redak ili stupac.
2. Zatim kliknite mišem i držite se.
3. Povucite miš na odgovarajući položaj i otpustite.
4. Zatim odaberite sve ciljne retke ili stupce i pomoću gore navedenih metoda ih izbrišite.

Metoda 4: Pokrenite makronaredbu za brisanje više redaka koji nisu uzastopni

1. Prvo i najvažnije, odaberite retke.
2. Pritisnite “Alt+ F11” da otvorite VBA editor u Wordu.
3. Zatim kreirajte modul klikom na “Normalni” projekt.
4. Zatim kliknite "Umetni" i odaberite "Modul".
5. Otvorite modul duplim 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. Posljednje, ali ne i najmanje važno, kliknite "Pokreni" ili pritisnite "F5".

Metoda 5: Pokrenite makronaredbu za brisanje višestrukih stupaca koji nisu uzastopni

1. Prvo, odaberite ciljne stupce pomoću tipke "Ctrl".
2. Zatim instalirajte i pokrenite makro slijedeći točno iste korake iznad.
3. Ali zamijenite makronaredbu 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 oštećenje dokumenata

Uz sve veću upotrebu digitalnih uređaja za pohranu, važno je voditi računa o podacima. Jedan od najboljih načina je njihovo sigurnosno kopiranje. Na primjer, dok koristite Word, može iznenada prestati reagirati. A kada se vrati u normalu, možete samo pronaći svoj dokument mrtav. A onda ćete morati proći kroz svu tu strku docx oporavak.

Uvod za autora:

Vera Chen stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući xlsx popraviti i pdf popraviti softverske proizvode. Za više informacija posjetite www.datanumen.com