VBA 对excel 列中第2行~100行内容去重，并按从小到大排列，编写VBA 代码

在Excel中，你可以使用VBA（Visual Basic for Applications）脚本来实现对特定列的数据去重并排序。这里是一个简单的示例，假设你要操作A列：

Sub UniqueAndSort()
    Dim ws As Worksheet
    Dim rng As Range
    Dim uniqueRng As Range
    Dim lastRow As Long
    
    ' 设置工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 需要替换为你的实际工作表名称
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 获取A列的最后一行

    ' 确定范围
    Set rng = ws.Range("A2:A" & lastRow) ' 从第二行开始到最后一行
    
    ' 去重
    With Application
        .EnableEvents = False ' 关闭事件处理，避免影响性能
    End With
    Set uniqueRng = rng.RemoveDuplicates(Columns:=1, Header:=xlNo) ' 去除第一列的重复项
    With Application
        .EnableEvents = True ' 重新开启事件处理
    End With
    
    ' 排序
    uniqueRng.Sort Key1:=uniqueRng.Columns(1), Order1:=xlAscending ' 按升序排序A列

End Sub

运行这段代码，你需要将`Sheet1`替换为你想要操作的工作表的实际名称。这个脚本会删除A列的重复值，并按照升序重新排列。