Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

¿Cómo eliminar filas duplicadas de la tabla en el documento de Word?

En el documento de Word, puede haber algunas tablas con filas duplicadas que desea eliminar y mantener la primera aparición a veces. En este caso, puede optar por eliminar los duplicados uno por uno manualmente, y también puede optar por utilizar el código VBA.

Eliminar filas duplicadas de la tabla en Word

Inserte rápidamente el campo de formulario de casillas en múltiples contenidos a la vez en un documento de Word

Con Kutools para Word Caja utilidad, solo necesita un clic, puede insertar el campo de formulario de casilla de verificación en los contenidos seleccionados en la documnet de Word una vez. ¡Haz clic para la versión de prueba gratuita de 45 días!
campo de formulario de casilla de verificación doc
Kutools for Word: con cientos de complementos de Word útiles, gratis para probar sin limitaciones en días 45.

Eliminar filas duplicadas de la tabla en Word

1. Coloque el cursor en la tabla de la que desea eliminar las filas duplicadas, presione Alt + F11 teclas para habilitar el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Módulo para crear un nuevo módulo.
doc eliminar filas duplicadas table01

3. Copia los códigos de abajo y pégalos en el nuevo Módulo guión.

VBA: eliminar filas duplicadas de la tabla en Word

Public Sub DeleteDuplicateRows2 () 'UpdatebyExtendoffice20181011 Dim xTable As Table Dim xRow As Range Dim xStr As String Dim xDic As Object Dim I, J, KK, xNum Tan largo si ActiveDocument.Tables.Count = 0 Then MsgBox "Este documento no tiene espacio (s). ", vbInformation," Kutools for Word "Salir Sub End If Application.ScreenUpdating = False Set xDic = CreateObject (" Scripting.Dictionary ") If Selection.Information (wdWithInTable) Luego configure xTable = Selection.Tables (1) Para I = xTable.Rows.Cuenta con el paso 1 -1 Establecer xRow = xTable.Rows (I) .Rango xStr = xRow.Text xNum = -1 Si xDic.Exists (xStr) Then 'xTable.Rows (I) .Eliminar Para J = xTable.Rows.Cuenta con el paso 1 -1 If (xStr = xTable.Rows (J) .Range.Text) Y (J <> I) Luego xNum = xNum + 1 xTable.Rows (J) .Delete End Si Siguiente I = I - xNum Else xDic.Add xStr, finalizo Si siguiente lo hago Por I = 1 To ActiveDocument.Tables.Count Set xTable = ActiveDocument.Tables (I) xNum = -1 xDic.RemoveAll For J = xTable.Rows .Cuenta con el paso 1 -XNU MX Establecer xRow = xTable.Rows (J) .Range xStr = xRow.Text xNum = -1 Si xDic.Exists (xStr) Entonces 'xTable.Rows (I) .Delete For KK = xTable.Rows.Count To 1 Step - 1 If (xStr = xTable.Rows (KK) .Range.Text) Y (KK <> J) Entonces xNum = xNum + 1 xTable.Rows (KK) .Detete End If Next J = J - xNum Else xDic.Add xStr , J End If Next Next End If Application.ScreenUpdating = True End Sub

doc eliminar filas duplicadas table02

4. Prensa F5 Para ejecutar el código, se eliminarán todas las filas duplicadas.
doc eliminar filas duplicadas table03

Nota: El código anterior distingue entre mayúsculas y minúsculas; si desea eliminar filas duplicadas en caso de no distinguirlas, puede usar el siguiente código:

Public Sub DeleteDuplicateRows2 () 'UpdatebyExtendoffice20181011 Dim xTable As Table Dim xRow As Range Dim xStr As String Dim xDic As Object Dim I, J, KK, xNum Tan largo si ActiveDocument.Tables.Count = 0 Then MsgBox "Este documento no tiene espacio (s). ", vbInformation," Kutools for Word "Salir Sub End If Application.ScreenUpdating = False Set xDic = CreateObject (" Scripting.Dictionary ") If Selection.Information (wdWithInTable) Luego configure xTable = Selection.Tables (1) Para I = xTable.Rows.Cuenta con el paso 1 -1 Establecer xRow = xTable.Rows (I) .Rango xStr = UCase (xRow.Text) xNum = -1 Si xDic.Exists (xStr) Entonces 'xTable.Rows (I ) .Deleteo para J = xTable.Rows.Cuenta con el paso 1 -1 If (xStr = xTable.Rows (J) .Range.Text) Y (J <> I) Luego xNum = xNum + 1 xTable.Rows (J) .Delete Fin Si Siguiente I = I - xNum Else xDic.Add xStr, Termino Si Siguiente Si No I = 1 A ActiveDocument.Tables.Count Set xTable = ActiveDocument.Tables (I) xNum = -1 xDic.RemoveAll For J = xTable.Rows.Count a 1 St ep -1 Establecer xRow = xTable.Rows (J) .Rango xStr = UCase (xRow.Text) xNum = -1 Si xDic.Exists (xStr) Entonces 'xTable.Rows (I) .Delete For KK = xTable.Rows. Cuente hasta el paso 1 -1 If (xStr = xTable.Rows (KK) .Range.Text) Y (KK <> J) Luego xNum = xNum + 1 xTable.Rows (KK) .Delete End If Next J = J - xNum De lo contrario, xDic.Add xStr, J End If Next Next End If Application.ScreenUpdating = True End Sub

Si desea eliminar filas duplicadas en todas las tablas del documento, coloque el cursor en cualquier lugar del documento fuera de la tabla, luego aplique uno de los códigos anteriores.


Navegación con pestañas y edición de múltiples documentos de Word / libros de Excel como Firefox, Chrome, Internet Explore 10!

Es posible que esté familiarizado con la vista de múltiples páginas web en Firefox / Chrome / IE, y cambie entre ellas haciendo clic en las pestañas correspondientes fácilmente. Aquí, Office Tab admite un procesamiento similar, que le permite explorar múltiples documentos de Word o libros de Excel en una ventana de Word o de Excel, y cambiar fácilmente entre ellos haciendo clic en sus pestañas.
¡Haz clic para obtener una versión de prueba gratuita de Office Tab!

Buscar documentos de varias palabras en una ventana como Firefox


Herramientas recomendadas de productividad de palabras

Kutools para Word: más que funciones avanzadas de 100 para Word, ahorre su% de tiempo de 50

  • Las operaciones complicadas y repetidas se pueden realizar una sola vez en segundos.
  • Inserte varias imágenes a través de carpetas en el documento de Word a la vez.
  • Combine y combine varios archivos de Word en carpetas en uno con su orden deseado.
  • Divida el documento actual en documentos separados según el encabezado, el salto de sección u otros criterios.
  • Convierta archivos entre Doc y Docx, Docx y PDF, una colección de herramientas para conversiones y selección comunes, y así sucesivamente ...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.