Skip to main content

Outlook: Cómo eliminar elementos duplicados del calendario

Author: Sun Last Modified: 2025-06-04

A veces, hay algunos elementos duplicados en el calendario cuando importamos eventos desde otros dispositivos. Para eliminar los elementos duplicados del calendario, este tutorial introduce dos métodos diferentes: uno es eliminarlos uno por uno cuando hay pocos duplicados, y el otro es usar VBA para eliminar todos los duplicados de una vez.

Eliminar manualmente los elementos duplicados del calendario uno por uno

VBA para eliminar elementos duplicados del calendario de una vez


Eliminar manualmente los elementos duplicados del calendario uno por uno

 

Para eliminar los elementos duplicados del calendario uno por uno, primero necesitas listarlos en un orden específico para ver claramente los duplicados, luego eliminarlos uno por uno.

1. Generalmente, el calendario está en una vista de "Calendario", activa el calendario del que deseas eliminar duplicados, luego haz clic en "Ver" > "Cambiar vista" > "Lista".

steps on manually removing duplicates calendar items one by one

Ahora el calendario se ha visualizado como una lista.

steps on manually removing duplicates calendar items one by one
steps on manually removing duplicates calendar items one by one

2. Luego, especifica una condición que uses para comparar si los elementos son duplicados, supongamos que quieres comparar si los elementos tienen el mismo asunto. Haz clic en "ASUNTO" en la lista del calendario, luego todos los elementos con el mismo asunto se colocarán juntos.

steps on manually removing duplicates calendar items one by one

3. Ahora puedes eliminar los elementos que tienen el mismo asunto uno por uno haciendo clic derecho sobre el elemento y seleccionando "Eliminar" en el menú contextual emergente.

steps on manually removing duplicates calendar items one by one

Asistente de Correo AI en Outlook: Respuestas más Inteligentes, Comunicación más Clara (¡magia con un solo clic!) GRATIS

Simplifica tus tareas diarias en Outlook con el Asistente de Correo AI de Kutools para Outlook. Esta poderosa herramienta aprende de tus correos electrónicos anteriores para ofrecerte respuestas inteligentes y precisas, optimizar el contenido de tus correos y ayudarte a redactar y perfeccionar mensajes sin esfuerzo.
doc ai email handle

Esta función admite:

  • Respuestas Inteligentes: Obtén respuestas elaboradas a partir de tus conversaciones pasadas, personalizadas, precisas y listas para usar.
  • Contenido Mejorado: Refina automáticamente el texto de tus correos electrónicos para mayor claridad e impacto.
  • Redacción sin Esfuerzo: Solo proporciona palabras clave y deja que la IA haga el resto, con múltiples estilos de escritura.
  • Extensiones Inteligentes: Amplía tus ideas con sugerencias contextualizadas.
  • Resúmenes: Obtén resúmenes concisos de correos electrónicos largos al instante.
  • Alcance Global: Traduce tus correos electrónicos a cualquier idioma fácilmente.

Esta función admite:

  • Respuestas inteligentes de correo electrónico
  • Contenido optimizado
  • Borradores basados en palabras clave
  • Extensión inteligente de contenido
  • Resumen de correos electrónicos
  • Traducción multilingüe

¡Lo mejor de todo es que esta función es completamente gratis para siempre! No esperes más, ¡descarga ahora el Asistente de Correo AI y disfruta!


VBA para eliminar elementos duplicados del calendario de una vez

 

Aquí se presentan algunos códigos VBA que pueden eliminar todos los elementos duplicados del calendario en una carpeta de calendario en diferentes casos.

1. Presiona las teclas "Alt" + "F11" para habilitar la ventana "Microsoft Visual Basic para Aplicaciones".

2. Haz clic en "Insertar" > "Módulo" para crear un nuevo módulo en blanco, luego copia y pega el siguiente código en el módulo.

VBA: eliminar todos los elementos duplicados del calendario en una categoría específica

'Sub RemoveDuplicateCalendar()
'UpdatebyExtendoffice20220413
  Dim xStores As Stores
  Dim xStore As Store
  Dim xRootFolder As Folder
  Dim xFolder As Object
  Set xStores = Application.Session.Stores
  For Each xStore In xStores
    Set xRootFolder = xStore.GetRootFolder
    For Each xFolder In xRootFolder.Folders
      Call ProcessFolders(xFolder)
    Next
  Next
  Set xStores = Nothing
End Sub

Sub ProcessFolders(ByVal CurrentFld As Folder)
  Dim xDictionary As Object
  Dim i As Long
  Dim xItem As Object
  Dim xKey As String
  Dim xSubFld As Folder
  On Error Resume Next
  If CurrentFld.DefaultItemType <> olAppointmentItem Then Exit Sub
  Set xDictionary = CreateObject("Scripting.Dictionary")
  For i = CurrentFld.Items.Count To 1 Step -1
    Set xItem = CurrentFld.Items.Item(i)
    'change categories as you need in below script
    If xItem.Categories = "date" Then
    'change the comparing items as you need
      xKey = xItem.Subject & xItem.Location & xItem.Body & xItem.Categories
      If xDictionary.Exists(xKey) = True Then
        xItem.Delete
      Else
        xDictionary.Add xKey, True
      End If
    End If
  Next i
  For Each xSubFld In CurrentFld.Folders
    ProcessFolders xSubFld
  Next
End Sub

En este VBA, se eliminarán todos los duplicados en la categoría "fecha" comparando el asunto, la ubicación, el cuerpo y la categoría; puedes cambiarlos según sea necesario.

steps on using VBA to remove duplicates calendar items at once time

3. Luego presiona la tecla "F5" o haz clic en Ejecutar para ejecutar el código, aparecerá un cuadro de diálogo "Macros", selecciona "RemoveDuplicateCalendar" y haz clic en "Ejecutar".steps on using VBA to remove duplicates calendar items at once time .

steps on using VBA to remove duplicates calendar items at once time

Luego se habrán eliminado los elementos duplicados en la categoría "fecha".

VBA: eliminar todos los elementos duplicados del calendario entre categorías

Sub RemoveDuplicateCalendar()
'UpdatebyExtendoffice20220413
  Dim xStores As Stores
  Dim xStore As Store
  Dim xRootFolder As Folder
  Dim xFolder As Object
  Set xStores = Application.Session.Stores
  For Each xStore In xStores
    Set xRootFolder = xStore.GetRootFolder
    For Each xFolder In xRootFolder.Folders
      Call ProcessFolders(xFolder)
    Next
  Next
  Set xStores = Nothing
End Sub

Sub ProcessFolders(ByVal CurrentFld As Folder)
  Dim xDictionary As Object
  Dim i As Long
  Dim xItem As Object
  Dim xKey As String
  Dim xSubFld As Folder
  On Error Resume Next
  If CurrentFld.DefaultItemType <> olAppointmentItem Then Exit Sub
  Set xDictionary = CreateObject("Scripting.Dictionary")
  For i = CurrentFld.Items.Count To 1 Step -1
    Set xItem = CurrentFld.Items.Item(i)
    'change the comparing items as you need
      xKey = xItem.Subject & xItem.Location & xItem.Body & xItem.Categories
      If xDictionary.Exists(xKey) = True Then
        xItem.Delete
      Else
        xDictionary.Add xKey, True
      End If
  Next i
  For Each xSubFld In CurrentFld.Folders
    ProcessFolders xSubFld
  Next
End Sub

Al ejecutar este código, se eliminarán todos los duplicados que tengan el mismo asunto, ubicación, cuerpo y categoría en cada categoría.

steps on using VBA to remove duplicates calendar items at once time
steps on using VBA to remove duplicates calendar items at once time

Nota: El VBA anterior funciona en la carpeta de calendario incluidas las subcarpetas.


Las mejores herramientas de productividad para Office

Últimas noticias: ¡Kutools para Outlook lanza su versión gratuita!

Descubre la nueva versión GRATUITA de Kutools para Outlook con más de70 funciones increíbles, ¡para que la disfrutes PARA SIEMPRE! ¡Haz clic para descargar ahora!

🤖 Kutools AI : Utiliza tecnología avanzada de IA para gestionar correos electrónicos sin esfuerzo, incluyendo responder, resumir, optimizar, ampliar, traducir y redactar emails.

📧 Automatización de Email: Respuesta automática (Disponible para POP e IMAP) / Programar envío de correos / CC/BCC automático por regla al enviar correo / Reenvío automático (Regla avanzada) / Agregar saludo automáticamente / Dividir automáticamente emails con múltiples destinatarios en mensajes individuales...

📨 Gestión de Email: Recuperar correo electrónico / Bloquear correos fraudulentos por asunto y otros criterios / Eliminar correos electrónicos duplicados / Búsqueda Avanzada / Organizar carpetas...

📁 Adjuntos Pro: Guardar en lote / Desanexar en lote / Comprimir en lote / Guardar automáticamente / Desconectar automáticamente / Auto Comprimir...

🌟 Magia en la interfaz: 😊Más emojis bonitos y modernos / Avisos cuando llegan correos importantes / Minimiza Outlook en vez de cerrarlo...

👍 Funciones de un solo clic: Responder a Todos con Adjuntos / Correos electrónicos anti-phishing / 🕘Mostrar la zona horaria del remitente...

👩🏼‍🤝‍👩🏻 Contactos y Calendario: Agregar contactos en lote desde correos seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños...

Desbloquea al instante Kutools para Outlook con un solo clic. ¡No esperes más, descárgalo ahora y aumenta tu productividad!

kutools for outlook features1 kutools for outlook features2