(VBA基础)Excel中数据去重的处理

• 例如:名字去重

'代码如下
Sub xx()
    Set a = ActiveSheet
    x = a.UsedRange.Rows.Count
    Set Rng = a.Range(a.Cells(1, 1), a.Cells(x, 1))
    Rng.Sort Key1:=a.Cells(1, 1), Order1:=1, Header:=1
    Stop
    k = 2
    For i = 2 To x
        If a.Cells(i, 1) <> a.Cells(i + 1, 1) Then
            a.Cells(k, 2) = a.Cells(i, 1)
            k = k + 1
        End If
    Next
End Sub

下面是代码中每一步的意思：

1. Set a = ActiveSheet: 这一行代码将当前活动的工作表对象分配给变量 "a"，以便稍后可以轻松引用该工作表。
2. x = a.UsedRange.Rows.Count: 这一行代码计算工作表 "a"中使用的行数，并将结果存储在变量 "x" 中。它用于确定数据的行数。
3. Set Rng = a.Range(a.Cells(1, 1), a.Cells(x, 1)): 这一行代码创建一个范围对象 "Rng"，该范围包括从工作表 "a" 的第一个单元格到第 "x" 行第一个单元格的所有单元格。这实际上是在选择第一列的数据范围。
4. Rng.Sort Key1:=a.Cells(1, 1), Order1:=1, Header:=1: 这一行代码对 "Rng" 范围中的数据进行排序。它将根据第一个单元格（第一列）的值进行排序，排序顺序是升序（Order1:=1），并且认为第一行是标题行（Header:=1）。
5. Stop: 这是一个调试用的语句，它会暂停代码的执行，以便你可以逐步查看代码执行过程中的值。你可以按下 F5 键来继续执行代码。
6. k = 2: 这一行代码初始化一个变量 "k"，它将用于在第二列中记录不重复的值。
7. For i = 2 To x: 这一行代码开始一个循环，从第2行开始，一直遍历到第 "x" 行。循环将用于检查第一列中的重复值。
8. If a.Cells(i, 1) <> a.Cells(i + 1, 1) Then: 这一行代码检查当前行（第 "i" 行）的第一列单元格的值是否与下一行（第 "i + 1" 行）的值不相等。如果不相等，说明发现了一个不重复的值。
9. a.Cells(k, 2) = a.Cells(i, 1): 如果发现了不重复的值，它将在第二列的第 "k" 行单元格中写入该值。
10. k = k + 1: 这一行代码将 "k" 的值递增，以准备记录下一个不重复的值。

最终，这段代码的目标是在第一列中查找并记录不重复的值，并将它们存储在第二列中。这样，第二列将包含第一列中的唯一值，按升序排序。

结果如图所示: