Elimine rápidamente Columna duplicada de una tabla de Word (3 métodos)

Al trabajar con tablas en Microsoft Word, es posible que notes que algunas columnas contienen exactamente los mismos datos. Estas columnas duplicadas pueden hacer que tu tabla sea más ancha de lo necesario y más difícil de gestionar. Dado que Word no incluye una herramienta integrada para eliminar automáticamente columnas duplicadas, identificarlas y eliminarlas manualmente puede llevar mucho tiempo y esfuerzo, especialmente en tablas grandes.

En este tutorial aprenderá tres métodos eficaces para eliminar columnas totalmente idénticas en tablas de Word. Empezaremos con la solución mediante transposición en Excel, seguiremos con la eliminación directa de duplicados en Word usando Kutools y, por último, le mostraremos cómo emplear una macro de VBA para una limpieza automatizada. Elija el método que mejor se adapte a su situación.

• Método 1: Eliminar Columna duplicada usando Excel
• Método 2: Eliminar Columna duplicada con Kutools para Word
• Método 3: Eliminar Columna duplicada usando VBA

Eliminar Columna duplicada usando Excel (solución mediante transposición)

Este método es una opción práctica para usuarios que tienen acceso a Excel. Excel puede eliminar filas duplicadas mediante Datos > Eliminar duplicados. Como Excel elimina duplicados por filas en lugar de por columnas, primero debes transponer la tabla para convertir las columnas en filas, eliminar los duplicados y, a continuación, transponer nuevamente los datos a su disposición original:

Office Tab

Navegación con pestañas para Word, Excel, PowerPoint y más: cambia de forma fluida entre documentos en una sola ventana, igual que en un navegador web.

Descarga gratuitaMás información

1. Pase el cursor sobre la tabla que contiene duplicados para mostrar el controlador de movimiento en la esquina superior izquierda y, a continuación, haga clic en él para seleccionar toda la tabla.

   

2. Pulse Ctrl + C para copiar la tabla.
3. Abra Excel, haga clic en una celda vacía y, a continuación, pulse Ctrl + V para pegar la tabla.
4. Seleccione la tabla pegada en Excel y, a continuación, pulse Ctrl + Cde nuevo para copiarla.
   • Copie la tabla de nuevo, ya que Excel debe reconocerla como un rango nativo de hoja de cálculo antes de que esté disponible la opción Transponer.
5. Haga clic con el botón derecho en otra celda vacía, elija Pegado Especial>Transponer(puede encontrar la opción)Transponeren dos lugares, como se muestra a continuación).

   

   • Esto transforma las columnas originales en filas, permitiendo que Excel detecte correctamente la columna duplicada.
6. Seleccione los datos transpuestos y, a continuación, vaya a Datos>Eliminar duplicados.

   

7. En el cuadro de diálogo, desactive la casilla Incluir títulosy, a continuación, haga clic en Aceptarpara eliminar Fila duplicada de los datos transpuestos.

   

8. Copie los datos limpios (rango H1:L4 en la captura de pantalla siguiente), haga clic con el botón derecho en una celda vacía y use Pegado Especial>Transponerde nuevo para restaurar la orientación original.

   

9. Copie el resultado final y péguelo de nuevo en Word.

   

Eliminar Columna duplicada con Kutools para Word

Si tiene Kutools para Word instalado, esta es la forma más eficiente y cómoda de eliminar columnas duplicadas. Kutools le permite eliminar directamente las columnas duplicadas en Word, ya sea que desee procesar la tabla actual, tablas seleccionadas o todas las tablas del documento activo. No necesita copiar la tabla a Excel ni recurrir a soluciones alternativas, lo que la convierte en la opción más rápida y práctica.

1. Seleccione la(s) tabla(s) específica(s) de la(s) que desea eliminar la columna duplicada. Omita este paso si planea procesar todas las tablas del documento activo.
2. Haga clic en KUTOOLS PLUS>Tabla>Eliminar Filas/Columnas en Blanco.

   

3. En el cuadro de diálogo:
   1. Establezca Buscar enen uno de los siguientes:
      • Tabla seleccionada(s) si solo desea procesar las tablas seleccionadas.
      • Todas las tablas del documento activo si desea procesar todas las tablas del documento.
   2. Seleccione la Columna.
   3. Seleccione la Columna duplicada.
   4. Haga clic en Aceptarpara eliminar Columna duplicada.

      

Todas las columnas completamente idénticas se eliminan de la tabla seleccionada o de todas las tablas del documento activo, según la opción que elija.

Eliminar Columna duplicada usando VBA

Si trabaja habitualmente con tablas grandes y necesita eliminar columnas duplicadas más de una vez, utilizar una macro de VBA puede ahorrarle tiempo. Esta macro compara automáticamente las columnas y elimina aquellas que sean totalmente idénticas, eliminando la necesidad de comprobaciones manuales.

1. Haga clic dentro de la tabla que desea procesar en Word.
2. Pulse Alt + F11 para abrir el editor de VBA.
3. Haga clic en Insertar>Módulo.

   

4. Pegue el siguiente código en el módulo.

   Sub RemoveDuplicateColumnsInSelectedTable()
       Dim tbl As Table
       Dim c1 As Long, c2 As Long
       Dim r As Long
       Dim isDup As Boolean
   
       If Selection.Information(wdWithInTable) = False Then
           MsgBox "Place the cursor inside the table first."
           Exit Sub
       End If
   
       Set tbl = Selection.Tables(1)
   
       For c1 = tbl.Columns.Count To 2 Step -1
           For c2 = c1 - 1 To 1 Step -1
   
               isDup = True
   
               For r = 1 To tbl.Rows.Count
                   If CleanCellText(tbl.Cell(r, c1).Range.Text) <> CleanCellText(tbl.Cell(r, c2).Range.Text) Then
                       isDup = False
                       Exit For
                   End If
               Next r
   
               If isDup Then
                   tbl.Columns(c1).Delete
                   Exit For
               End If
           Next c2
       Next c1
   
       MsgBox "Done. Duplicate columns removed."
   End Sub
   
   Private Function CleanCellText(ByVal s As String) As String
       s = Replace(s, Chr(13), "")
       s = Replace(s, Chr(7), "")
       CleanCellText = Trim$(s)
   End Function

5. Pulse F5 para ejecutar la macro.
6. Aparece un cuadro de diálogo de confirmación que indica: Hecho. Columna duplicada eliminada. Haga clic en Aceptar para cerrar el mensaje.

   

Todas las columnas idénticas de la tabla seleccionada se eliminan automáticamente, dejando únicamente columnas únicas en su tabla de Word.

¿Qué método le resulta más efectivo?