2 หมายถึงการลบวันหยุดที่ซ้ำกันอย่างรวดเร็วในปฏิทิน Outlook ของคุณ

โซลูชัน Outlook September 29, 2025

หากคุณเพิ่มวันหยุดเดียวกันในปฏิทินเดียวกันสองครั้งหรือมากกว่านั้นโดยไม่ได้ตั้งใจ คุณจะพบว่าปฏิทินนั้นเต็มไปด้วยวันหยุดที่ซ้ำกัน ในสถานการณ์สมมตินี้ คุณต้องต้องการลบรายการที่ซ้ำกัน ตอนนี้บทความนี้จะสอนคุณ 2 วิธี

Outlook มีฟีเจอร์ในตัวเพื่อเพิ่มวันหยุดลงในปฏิทินเริ่มต้นอย่างรวดเร็ว มันค่อนข้างสะดวกสำหรับผู้ใช้อย่างแน่นอน อย่างไรก็ตาม หากคุณเพิ่มวันหยุดสองครั้งหรือมากกว่านั้นโดยไม่ได้ตั้งใจ ปฏิทินเริ่มต้นของคุณจะถูกเติมด้วยวันหยุดที่ซ้ำกัน ต่อไปนี้ เราจะแนะนำคุณ 2 วิธีในการลบรายการที่ซ้ำกันอย่างรวดเร็ว

วิธีที่ 1: ลบวันหยุดทั้งหมดและเพิ่มอีกครั้ง

ขั้นแรก ให้เปิดโปรแกรม Outlook ของคุณ
จากนั้นเข้าถึงโฟลเดอร์ปฏิทินต้นทาง
ถัดไปสลับไปที่แท็บ "มุมมอง" และเลือก "เปลี่ยนมุมมอง" > "รายการ"
หลังจากนั้นคุณควรคลิกที่ปุ่ม "หมวดหมู่" ในกลุ่ม "การจัดการ"
จากนั้นคุณจะเห็นว่าการนัดหมายทั้งหมดถูกจัดกลุ่มตามหมวดหมู่
ตอนนี้คุณสามารถค้นหากลุ่ม "วันหยุด"
สุดท้าย คลิกที่ส่วนหัวของกลุ่ม "วันหยุด" จากนั้นกดปุ่ม "ลบ"
วันหยุดที่มีอยู่ทั้งหมดถูกลบออกทันที
หลังจากลบแล้ว คุณสามารถเพิ่มวันหยุดอีกครั้งได้ ขั้นแรก ไปที่ “ไฟล์” > ตัวเลือก”
ในหน้าต่างป๊อปอัพ “ตัวเลือก Outlook” คุณสามารถสลับไปที่แท็บ 'ปฏิทิน”
ภายใต้แท็บนี้ คุณจะสามารถค้นหาปุ่ม "เพิ่มวันหยุด"
จากนั้น ในกล่องโต้ตอบใหม่ ให้เลือกสถานที่ เช่น “สหรัฐอเมริกา” แล้วกด “ตกลง”
ในที่สุด วันหยุดได้ถูกนำเข้าไปยังปฏิทินเริ่มต้นอีกครั้ง

วิธีที่ 2: ลบวันหยุดที่ซ้ำกันด้วย VBA

ในตอนเริ่มต้น ให้กดปุ่ม “Alt + F11”
ถัดไป คุณจะเข้าถึงหน้าต่างโปรแกรมแก้ไข Outlook VBA ซึ่งคุณสามารถเปิดโมดูลที่ไม่ได้ใช้
จากนั้นคัดลอกโค้ด VBA ต่อไปนี้ลงในโมดูลนี้

Sub RemoveDuplicateHolidays()
    Dim objStores As Outlook.Stores
    Dim objStore As Outlook.Store
    Dim objPSTFile As Outlook.Folder
    Dim objFolders As Outlook.folders
    Dim objFolder As Object

    Set objStores = Outlook.Application.Session.Stores
 
    'Process all Outlook PST files in your Outlook
    For Each objStore In objStores
        Set objPSTFile = objStore.GetRootFolder
        For Each objFolder In objPSTFile.folders
            Call ProcessFolders(objFolder)
        Next
    Next

End Sub

Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder)
    Dim objDictionary As Object
    Dim i As Long
    Dim objItem As Object
    Dim strKey As String

    Set objDictionary = CreateObject("Scripting.Dictionary")

    If objCurrentFolder.DefaultItemType = olAppointmentItem Then
       For i = objCurrentFolder.Items.count To 1 Step -1
           Set objItem = objCurrentFolder.Items.Item(i)
 
           'Get all holidays based on the "Holiday" category
           If objItem.Categories = "Holiday" Then
              strKey = objItem.Subject & "," & objItem.Location & "," & objItem.Body & "," & objItem.Categories
              strKey = Replace(strKey, ", ", Chr(32))

              If objDictionary.Exists(strKey) = True Then
                 objItem.Delete
              Else
                 objDictionary.Add strKey, True
              End If
          End If
       Next i
    End If
End Sub

ในที่สุด คุณสามารถลองใช้มาโครนี้

คลิกเข้าไปในรูทีนย่อย “RemoveDuplicateHolidays”
จากนั้นกดปุ่มคีย์ F5 เพื่อเรียกใช้
หลังจากเสร็จสิ้น วันหยุดที่ซ้ำกันในปฏิทิน Outlook ทั้งหมดของคุณจะถูกลบออก

ดึงข้อมูล Outlook ที่มีค่า

เป็นความจริงที่ไม่มีข้อกังขาว่าไม่มีโปรแกรมใดรับประกันได้ว่าจะสามารถป้องกันข้อผิดพลาดและการทุจริตได้ เช่นเดียวกับ Outlook ดังนั้น เพื่อป้องกันข้อมูล Outlook ของคุณ คุณควรสำรองข้อมูลเป็นประจำ นอกจากนี้ คุณต้องกำหนดเวลาแผนการกู้คืน Outlook ล่วงหน้า สุดท้าย แต่ไม่ท้ายสุด ควรเตรียมเครื่องมือแก้ไขที่มีชื่อเสียง เช่น DataNumen Outlook Repair. มันสามารถที่จะ ซ่อมแซม Outlook ปัญหาในระยะเวลาอันสั้นและรับข้อมูล Outlook สูงสุดกลับคืนจากไฟล์ที่ถูกบุกรุก

บทนำผู้เขียน:

Shirley Zhang เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ กู้ Sql Server และผลิตภัณฑ์ซอฟต์แวร์ซ่อมแซมแนวโน้ม ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.