5 kiiret meetodit mitme rea või veeru kustutamiseks oma Wordi tabelis

Selles artiklis sooviksime teile näidata 5 kiiret meetodit mitme rea või veeru kustutamiseks Wordi tabelis.

Paneme andmed tabelitesse, et muuta dokument silmale lihtsaks. Pika laua loomine pole haruldane. Kui aga kontrollite tabelit uuesti ja leiate, et mõned read ja veerud on ebavajalikud, vajate kiiret viisi nende eemaldamiseks.

Kõigepealt vaatame võimalusi mitme järjestikuse rea või veeru kustutamiseks.

1. meetod: ridade või veergude kustutamine kontekstimenüü kaudu

1. Esiteks valige rida ridu või veerge ja paremklõpsake.
2. Seejärel valige vastavalt "Kustuta read" või "Kustuta veerud".    
3. Või võite valida read või veerud ja klõpsata „Paigutus”.
4. Seejärel valige "Kustuta" ja "Kustuta veerud" või "Kustuta read".

2. meetod: kasutage otseteid

1. Esiteks valige read või veerud.
2. Teiseks vajutage "Tagasilükke".

Kui veerud või read ei ole järjestikused, ei saa me neid ülaltoodud meetoditega kustutada. Selle asemel saate kasutada järgmisi meetodeid.

3. meetod: pange mittevajalikud read või veerud kokku

1. Valige kõigepealt rida või veerg.
2. Seejärel klõpsake hiirega ja hoidke all.
3. Lohistage hiir õigesse asendisse ja vabastage.
4. Seejärel valige kõik tarhankige read või veerud ja kasutage nende kustutamiseks ülaltoodud meetodeid.

4. meetod: mitme mittejärjestikuse rea kustutamiseks käivitage makro

1. Esiteks ja eeskättost, valige read.
2. Wordis VBA redaktori avamiseks vajutage "Alt + F11".
3. Seejärel looge moodul, klõpsates "Tavaline" projekt.
4. Järgmisena klõpsake nuppu "Sisesta" ja valige "Moodul".
5. Avage moodul topeltklõpsuga ja kleepige järgmised koodid:

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. Viimaseks, kuid mitte vähem tähtsaks, klõpsake nuppu "Käivita" või "F5".

5. meetod: mitme mittejärjestikuse veeru kustutamiseks käivitage makro

1. Kõigepealt valige tarhankige veerud klahviga Ctrl.
2. Järgmisena installige ja käivitage makro, järgides täpselt samu ülaltoodud samme.
3. Kuid asendage makro selle makroga:

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

Pöörake tähelepanu dokumentide korruptsioonile

Digitaalse salvestusseadme laialdasema kasutamisega on oluline andmete eest hoolt kanda. Üks parimaid viise on nende varundamine. Näiteks Wordi kasutamise ajal võib see äkitselt reageerimise lõpetada. Ja kui see normaliseerub, leiate oma dokumendi ainult surnud. Ja siis peate läbima kogu selle kära docx taastamine.

Autori sissejuhatus:

Vera Chen on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas xlsx parandus ja pdf tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom