【VBA】重複データをエラー処理付きでPDF保存する方法

Option Explicit
Sub SaveDuplicateDataAsPDF()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Dim lastRow As Long, i As Long
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    ' 重複データを検出
    For i = 2 To lastRow
        If IsDuplicate(i, ws) Then
            SaveSheetAsPDF ws.Name
        End If
    Next i
    
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

Function IsDuplicate(row As Long, ws As Worksheet) As Boolean
    Dim duplicateRange As Range
    Set duplicateRange = ws.Range("A2:A" & lastRow)
    If Not Intersect(duplicateRange, ws.Rows(row)) Is Nothing Then
        IsDuplicate = True
    End If
End Function

Sub SaveSheetAsPDF(sheetName As String)
    Dim folderPath As String
    folderPath = "C:\Users\YourUsername\Documents\"
    ThisWorkbook.Sheets(sheetName).ExportAsFixedFormat Type:=xlTypePDF, Filename:=folderPath & sheetName & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub