Outlook: 중복 캘린더 항목을 제거하는 방법

Author: Sun Last Modified: 2025-08-06

가끔 다른 기기에서 이벤트를 가져올 때 중복된 캘린더 항목이 있을 수 있습니다. 이러한 중복 캘린더 항목을 제거하기 위해, 본 튜토리얼에서는 두 가지 방법을 소개합니다. 하나는 중복 항목이 적을 경우 하나씩 제거하는 방법이고, 다른 하나는 VBA를 사용하여 모든 중복 항목을 한 번에 제거하는 방법입니다.

중복 캘린더 항목을 하나씩 수동으로 제거하기

VBA를 사용하여 중복 캘린더 항목을 한 번에 제거하기

중복 캘린더 항목을 하나씩 수동으로 제거하기

중복 캘린더 항목을 하나씩 제거하려면, 먼저 중복 항목을 명확히 보기 위해 특정 순서로 나열한 후, 하나씩 제거해야 합니다.

1. 일반적으로 캘린더는 "캘린더" 보기로 되어 있으며, 중복 항목을 제거하고자 하는 캘린더를 활성화한 다음, "보기" → "보기 변경" → "목록"을 클릭합니다.

steps on manually removing duplicates calendar items one by one

이제 캘린더가 목록으로 표시됩니다.

2. 그런 다음 항목이 중복인지 비교하기 위한 조건을 지정합니다. 예를 들어, 항목의 제목이 동일한지 비교한다고 가정해 보겠습니다. 캘린더 목록에서 "제목"을 클릭하면 동일한 제목을 가진 모든 항목이 함께 배치됩니다.

3. 이제 같은 제목을 가진 항목을 마우스 오른쪽 버튼으로 클릭하고 나타나는 컨텍스트 메뉴에서 "삭제"를 클릭하여 하나씩 제거할 수 있습니다.

아웃룩의 AI 메일 도우미: 더 스마트한 답장, 더 명확한 커뮤니케이션 (한 번의 클릭으로 끝내기!) ⚡ 무료

Kutools for Outlook의 AI 메일 도우미로 매일 처리하는 아웃룩 작업을 간소화하세요. 이 강력한 도구는 과거 이메일을 학습하여 지능적이고 정확한 답변을 제공하고, 이메일 내용을 최적화하며, 초안 작성 및 메시지 수정을 쉽게 도와줍니다.

이 기능은 다음을 지원합니다:

스마트 답장: 과거 대화를 기반으로 맞춤형, 정확한 답변을 받아보세요. 바로 사용할 수 있습니다.
개선된 콘텐츠: 이메일 텍스트를 자동으로 다듬어 명확도와 영향력을 높여보세요.
손쉬운 작문: 키워드만 제공하면 AI가 나머지를 처리해 다양한 작문 스타일로 도와줍니다.
지능적인 확장: 맥락에 맞는 제안으로 생각을 확장하세요.
요약 기능: 긴 이메일의 간결한 요약본을 즉시 받아보세요.
글로벌 도달: 이메일을 손쉽게 다른 언어로 번역하세요.

이 기능은 다음을 지원합니다:

스마트 이메일 답장
최적화된 콘텐츠
키워드 기반 초안 작성
지능적인 콘텐츠 확장
이메일 요약
다국어 번역

가장 좋은 점은 이 기능이 영원히 완전 무료라는 것입니다! 기다리지 말고 지금 AI 메일 도우미를 다운로드하고 즐겨보세요!

VBA를 사용하여 중복 캘린더 항목을 한 번에 제거하기

여기에서는 다양한 상황에서 캘린더 폴더의 모든 중복 캘린더 항목을 제거할 수 있는 VBA 코드를 소개합니다.

1. "Alt" + "F11" 키를 눌러 "Microsoft Visual Basic for Applications" 창을 활성화합니다.

2. "삽입" → "모듈"을 클릭하여 새 빈 모듈을 생성한 다음, 아래 코드를 복사하여 모듈에 붙여넣습니다.

VBA: 특정 카테고리에서 모든 중복 캘린더 항목 제거하기

'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

이 VBA에서는 제목, 장소, 본문 및 카테고리를 비교하여 "날짜" 카테고리의 모든 중복 항목을 제거합니다. 필요에 따라 이를 변경할 수 있습니다.

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

3. 그런 다음F5" 키를 누르거나 실행을 클릭하여 코드를 실행합니다. "매크로" 대화상자가 나타나며, "RemoveDuplicateCalendar"을 선택하고 "실행"을 클릭합니다. .

그러면 "날짜" 카테고리의 중복 항목이 제거됩니다.

VBA: 카테고리 간의 모든 중복 캘린더 항목 제거하기

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

이 코드를 실행하면 각 카테고리 내에서 제목, 장소, 본문, 카테고리가 동일한 모든 중복 항목이 제거됩니다.