5 metode rapide pentru a șterge în lot mai multe rânduri sau coloane din tabelul dvs. Word

În acest articol, am dori să vă arătăm 5 metode rapide de a șterge în lot mai multe rânduri sau coloane din tabelul Word.

Punem datele în tabele pentru a face documentul ușor de văzut. Nu este neobișnuit să creezi o masă lungă. Cu toate acestea, când verificați din nou tabelul și găsiți că unele rânduri și coloane nu sunt necesare, veți avea nevoie de o modalitate rapidă de a le elimina.

Mai întâi să ne uităm la modalități de a șterge mai multe rânduri sau coloane consecutive.

Metoda 1: ștergeți rânduri sau coloane prin meniul contextual

1. În primul rând, selectați o serie de rânduri sau coloane și faceți clic dreapta.
2. Apoi alegeți „Ștergeți rândurile” sau „Ștergeți coloanele” în consecință.    
3. Sau puteți selecta rânduri sau coloane și faceți clic pe „Aspect”.
4. Apoi alegeți „Ștergeți” și selectați „Ștergeți coloanele” sau „Ștergeți rândurile”.

Metoda 2: Utilizați comenzile rapide

1. În primul rând, selectați rândurile sau coloanele.
2. În al doilea rând, apăsați „Backspace”.

Acum, dacă coloanele sau rândurile nu sunt consecutive, nu le putem șterge folosind metodele de mai sus. În schimb, puteți implementa următoarele metode.

Metoda 3: Puneți împreună rânduri sau coloane inutile

1. Selectați mai întâi un rând sau o coloană.
2. Apoi faceți clic pe mouse și țineți apăsat.
3. Trageți mouse-ul într-o poziție corectă și eliberați.
4. Apoi selectați toate rândurile sau coloanele țintă și utilizați metodele de mai sus pentru a le șterge.

Metoda 4: Rulați o macrocomandă pentru a șterge mai multe rânduri neconsecutive

1. În primul rând, selectați rânduri.
2. Apăsați „Alt+ F11” pentru a deschide editorul VBA în Word.
3. Apoi creați un modul făcând clic pe „Proiect normal”.
4. Apoi faceți clic pe „Inserare” și alegeți „Modul”.
5. Deschideți modulul cu dublu clic și lipiți următoarele coduri:

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. Nu în ultimul rând, faceți clic pe „Run” sau apăsați pe „F5”.

Metoda 5: Rulați o macrocomandă pentru a șterge mai multe coloane neconsecutive

1. Mai întâi, selectați coloanele țintă cu tasta „Ctrl”.
2. Apoi instalați și rulați o macrocomandă urmând exact aceiași pași de mai sus.
3. Dar înlocuiți macrocomanda cu aceasta:

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

Atenție la corupția documentelor

Odată cu creșterea utilizării dispozitivelor de stocare digitală, este important să aveți grijă de date. Una dintre cele mai bune modalități este să le faceți o copie de rezervă. De exemplu, în timp ce folosește Word, poate înceta să răspundă brusc. Și când va reveni la normal, puteți găsi doar documentul mort. Și atunci va trebui să treci prin toată agitația recuperare docx.

Introducerea autorului:

Vera Chen este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv reparare xlsx și pdf repararea produselor software. Pentru mai multe informații vizitați www.datanumen.com