vba怎么删除重复数据行

vba
1225
2023/11/4 20:37:10
栏目: 编程语言
开发者测试专用服务器限时活动,0元免费领,库存有限,领完即止! 点击查看>>

在VBA中,可以使用以下代码删除重复数据行:

Sub 删除重复数据行()
    Dim lastRow As Long
    Dim i As Long
    Dim j As Long
    
    lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    
    For i = lastRow To 2 Step -1
        For j = 1 To i - 1
            If Cells(i, 1) = Cells(j, 1) And Cells(i, 2) = Cells(j, 2) And Cells(i, 3) = Cells(j, 3) Then
                Rows(i).Delete
                Exit For
            End If
        Next j
    Next i
End Sub

此代码假设要删除的数据在第1列、第2列和第3列。如果要删除其他列的重复数据,只需将 Cells(i, 1)Cells(i, 2)Cells(i, 3) 更改为相应的单元格引用即可。请注意,在运行此代码之前,应将工作表切换到包含要删除重复数据的工作表。

辰迅云「云服务器」,即开即用、新一代英特尔至强铂金CPU、三副本存储NVMe SSD云盘,价格低至29元/月。点击查看>>

推荐阅读: VBA Excel FileDialog返回selecteditem作为对象