5 méthodes rapides pour supprimer par lots plusieurs lignes ou colonnes dans votre tableau Word

Dans cet article, nous aimerions vous montrer 5 méthodes rapides pour supprimer par lots plusieurs lignes ou colonnes dans votre tableau Word.

Nous mettons les données dans des tableaux pour rendre le document facile à lire. Il n'est pas rare de créer une longue table. Cependant, lorsque vous vérifiez à nouveau le tableau et trouvez des lignes et des colonnes inutiles, vous aurez besoin d'un moyen rapide de les supprimer.

Voyons d'abord comment supprimer plusieurs lignes ou colonnes consécutives.

Méthode 1 : Supprimer des lignes ou des colonnes via le menu contextuel

1. Tout d'abord, sélectionnez une série de lignes ou de colonnes et faites un clic droit.
2. Choisissez ensuite "Supprimer les lignes" ou "Supprimer les colonnes" en conséquence.    
3. Ou vous pouvez sélectionner des lignes ou des colonnes et cliquer sur "Mise en page".
4. Ensuite, choisissez "Supprimer" et sélectionnez "Supprimer les colonnes" ou "Supprimer les lignes".

Méthode 2 : Utiliser des raccourcis

1. Tout d'abord, sélectionnez des lignes ou des colonnes.
2. Deuxièmement, appuyez sur "Retour arrière".

Maintenant, si les colonnes ou les lignes ne sont pas consécutives, nous ne pouvons pas les supprimer en utilisant les méthodes ci-dessus. Au lieu de cela, vous pouvez déployer les méthodes suivantes.

Méthode 3 : Rassemblez les lignes ou les colonnes inutiles

1. Sélectionnez d'abord une ligne ou une colonne.
2. Cliquez ensuite sur la souris et maintenez enfoncé.
3. Faites glisser la souris vers une position appropriée et relâchez.
4. Sélectionnez ensuite toutes les lignes ou colonnes cibles et utilisez les méthodes ci-dessus pour les supprimer.

Méthode 4 : exécuter une macro pour supprimer plusieurs lignes non consécutives

1. Avant toute chose, sélectionnez les lignes.
2. Appuyez sur "Alt + F11" pour ouvrir l'éditeur VBA dans Word.
3. Créez ensuite un module en cliquant sur le projet "Normal".
4. Cliquez ensuite sur "Insérer" et choisissez "Module".
5. Ouvrez le module en double-cliquant et collez les codes suivants :

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. Enfin, cliquez sur "Exécuter" ou appuyez sur "F5".

Méthode 5 : exécuter une macro pour supprimer plusieurs colonnes non consécutives

1. Tout d'abord, sélectionnez les colonnes cibles avec la touche « Ctrl ».
2. Ensuite, installez et exécutez une macro en suivant exactement les mêmes étapes ci-dessus.
3. Mais remplacez macro par celle-ci :

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

Attention à la corruption de documents

Avec l'utilisation croissante des périphériques de stockage numérique, il est important de prendre soin des données. L'un des meilleurs moyens est de les sauvegarder. Par exemple, lors de l'utilisation de Word, il peut cesser de répondre tout d'un coup. Et quand c'est revenu à la normale, vous ne pouvez que trouver votre document mort. Et puis vous devrez passer par tout le remue-ménage de récupération docx.

Introduction de l'auteur:

Vera Chen est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris correction xlsx et pdf réparer les produits logiciels. Pour plus d'informations, visitez www.datanumen.com