(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.Cel