5 métodos rápidos para eliminar por lotes varias filas o columnas en su tabla de Word

En este artículo, nos gustaría mostrarle 5 métodos rápidos para eliminar por lotes varias filas o columnas en su tabla de Word.

Ponemos los datos en tablas para que el documento sea fácil de ver. No es raro crear una mesa larga. Sin embargo, cuando revise la tabla nuevamente y encuentre algunas filas y columnas innecesarias, necesitará una forma rápida de eliminarlas.

Primero, veamos formas de eliminar varias filas o columnas consecutivas.

Método 1: eliminar filas o columnas a través del menú contextual

1. En primer lugar, seleccione una serie de filas o columnas y haga clic derecho.
2. Luego elija "Eliminar filas" o "Eliminar columnas" según corresponda.    
3. O puede seleccionar filas o columnas y hacer clic en "Diseño".
4. Luego elija "Eliminar" y seleccione "Eliminar columnas" o "Eliminar filas".

Método 2: usar atajos

1. En primer lugar, seleccione filas o columnas.
2. En segundo lugar, presione "Retroceso".

Ahora, si las columnas o filas no son consecutivas, no podemos eliminarlas usando los métodos anteriores. En su lugar, puede implementar los siguientes métodos.

Método 3: juntar filas o columnas innecesarias

1. Seleccione una fila o columna primero.
2. Luego haga clic con el mouse y espere.
3. Arrastre el mouse a la posición adecuada y suéltelo.
4. Luego, seleccione todas las filas o columnas de destino y utilice los métodos descritos anteriormente para eliminarlas.

Método 4: ejecutar una macro para eliminar varias filas no consecutivas

1. En primer lugar, seleccione las filas.
2. Presione "Alt+ F11" para abrir el editor de VBA en Word.
3. Luego cree un módulo haciendo clic en el proyecto "Normal".
4. A continuación, haga clic en "Insertar" y elija "Módulo".
5. Abra el módulo con doble clic y pegue los siguientes códigos:

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. Por último, pero no menos importante, haga clic en "Ejecutar" o presione "F5".

Método 5: ejecutar una macro para eliminar varias columnas no consecutivas

1. En primer lugar, seleccione las columnas de destino con la tecla "Ctrl".
2. A continuación, instale y ejecute una macro siguiendo exactamente los mismos pasos anteriores.
3. Pero reemplace la macro con esta:

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

Cuidado con la corrupción de documentos

Con el aumento del uso de dispositivos de almacenamiento digital, es importante cuidar los datos. Una de las mejores formas es respaldarlos. Por ejemplo, mientras usa Word, puede dejar de responder de repente. Y cuando vuelve a la normalidad, solo puede encontrar su documento muerto. Y luego tendrás que pasar por todo el alboroto de recuperación de docx.

Introducción del autor:

Vera Chen es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo arreglar xlsx y pdf reparar productos de software. Para más información visite www.datanumen.com