基于两列VBA比较和删除重复行

在Excel VBA中，比较两列数据并删除重复行的任务可以通过编写一个宏来完成。以下是一个基本的步骤和示例代码，用于实现这一功能：

基础概念

VBA (Visual Basic for Applications): 是Microsoft Office应用程序中用于自动化任务的编程语言。
宏: 一系列VBA命令，可以一次性执行以完成特定任务。

类型

简单比较: 直接比较两个列的值。
复杂比较: 可能涉及多个条件或使用正则表达式等高级技术。

应用场景

数据清洗：在数据分析前去除重复记录。
数据同步：确保两个列表之间的一致性。
报告生成：准备数据以供报告使用。

示例代码

以下是一个VBA宏的示例，它会比较两个指定列中的数据，并删除重复的行。

Sub RemoveDuplicateRows()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long, j As Long
    Dim isDuplicate As Boolean
    
    ' 设置工作表
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 获取最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 从最后一行开始向上遍历，以避免因删除行而改变行号
    For i = lastRow To 2 Step -1
        isDuplicate = False
        ' 比较当前行与之前的所有行
        For j = 2 To i - 1
            If ws.Cells(i, "A").Value = ws.Cells(j, "A").Value And _
               ws.Cells(i, "B").Value = ws.Cells(j, "B").Value Then
                isDuplicate = True
                Exit For
            End If
        Next j
        ' 如果找到重复行，则删除
        If isDuplicate Then
            ws.Rows(i).Delete
        End If
    Next i
End Sub