5 gyors módszer több sor vagy oszlop kötegelt törlésére a Word táblázatban

Ebben a cikkben 5 gyors módszert szeretnénk bemutatni több sor vagy oszlop kötegelt törlésére a Word-táblázatban.

Az adatokat táblázatokba helyezzük, hogy a dokumentum könnyen látható legyen. Nem ritka a hosszú táblázat elkészítése. Ha azonban ismét ellenőrzi a táblázatot, és néhány sort és oszlopot szükségtelennek talál, szükség lesz egy gyors módszerre az eltávolításukra.

Először nézzük meg, hogyan lehet több egymást követő sort vagy oszlopot törölni.

1. módszer: Törölje a sorokat vagy oszlopokat a környezeti menün keresztül

1. Először válassza ki a sorok vagy oszlopok sorozatát, és kattintson a jobb gombbal.
2. Ezután válassza a „Sorok törlése” vagy az „Oszlopok törlése” lehetőséget.    
3. Vagy kiválaszthat sorokat vagy oszlopokat, és kattintson az „Elrendezés” gombra.
4. Ezután válassza a „Törlés”, majd az „Oszlopok törlése” vagy a „Sorok törlése” lehetőséget.

2. módszer: Parancsikonok használata

1. Először válassza ki a sorokat vagy oszlopokat.
2. Másodszor, nyomja meg a „Backspace” gombot.

Ha az oszlopok vagy sorok nem egymás után következnek, nem tudjuk törölni őket a fenti módszerekkel. Ehelyett a következő módszereket használhatja.

3. módszer: Helyezze össze a szükségtelen sorokat vagy oszlopokat

1. Először válasszon ki egy sort vagy oszlopot.
2. Ezután kattintson az egérrel és tartsa lenyomva.
3. Húzza az egeret a megfelelő pozícióba, és engedje el.
4. Ezután válassza ki az összeset tarsorokat vagy oszlopokat szerezzen be, és a fenti módszerekkel törölje azokat.

4. módszer: Futtasson makrót több nem egymást követő sor törléséhez

1. Első és legelsőost, válasszon sorokat.
2. Nyomja meg az „Alt+F11” gombot a VBA-szerkesztő megnyitásához a Wordben.
3. Ezután hozzon létre egy modult a „Normál” projektre kattintva.
4. Ezután kattintson a "Beszúrás" gombra, és válassza a "Modul" lehetőséget.
5. Nyissa meg a modult dupla kattintással, és illessze be a következő kódokat:

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. Végül, de nem utolsósorban kattintson a „Futtatás” gombra, vagy nyomja meg az „F5” gombot.

5. módszer: Futtasson makrót több nem egymást követő oszlop törléséhez

1. Először is válassza ki taroszlopok lekérése a „Ctrl” billentyűvel.
2. Következő lépésként telepítse és futtassa a makrót a fenti lépésekkel.
3. De cserélje ki a makrót erre:

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

Vigyázzon a dokumentumok korrupciójára

A digitális tárolóeszközök használatának növekedésével fontos, hogy gondoskodjunk az adatokról. Az egyik legjobb módszer a biztonsági mentés. Például a Word használata közben hirtelen leállhat a válaszadás. És amikor visszatér a normál kerékvágásba, már csak holtan találhatja a dokumentumot. És akkor át kell menned az összes felhajtáson docx helyreállítás.

Szerző Bevezetés:

Vera Chen adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve xlsx javítás és a pdf javító szoftvertermékek. További információért látogasson el www.datanumen.com