基于列名删除重复项的VBA宏

Sub DeleteDuplicatesByColumnName()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim columnRange As Range
    Dim duplicateRange As Range
    Dim columnName As String
    
    ' 设置要删除重复项的列名
    columnName = "列名"
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取指定列的数据范围
    lastRow = ws.Cells(ws.Rows.Count, columnName).End(xlUp).Row
    Set columnRange = ws.Range(ws.Cells(1, columnName), ws.Cells(lastRow, columnName))
    
    ' 找到重复项的范围
    On Error Resume Next
    Set duplicateRange = columnRange.Resize(columnRange.Rows.Count - 1).Offset(1).SpecialCells(xlCellTypeConstants). _
    Areas(1).Offset(0, columnRange.Column - 1)
    On Error GoTo 0
    
    ' 删除重复项
    If Not duplicateRange Is Nothing Then
        duplicateRange.EntireRow.Delete
        MsgBox "成功删除重复项。"
    Else
        MsgBox "未找到重复项。"
    End If
End Sub