wps宏代码 搜查某一列，提出不重复项

在WPS宏中，如果你想要搜查某个列（假设是A列）并找出不重复的项目，你可以使用类似于以下的VBA代码：

Sub FindUniqueItems()
    Dim ws As Worksheet
    Dim rng As Range
    Dim uniqueItems() As Variant
    Dim i As Long
    
    ' 选择包含数据的活动工作表
    Set ws = ActiveSheet
    
    ' 设置范围，例如A1:A100
    Set rng = ws.Range("A1:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)
    
    ' 创建数组存储唯一项
    ReDim uniqueItems(1 To rng.Cells.Count)
    i = 1
    For Each cell In rng
        If Not IsError(Application.Match(cell.Value, uniqueItems, 0)) Then
            ' 如果值已存在于数组中，则跳过
            Continue For
        Else
            ' 否则将值添加到数组
            uniqueItems(i) = cell.Value
            i = i + 1
        End If
    Next cell
    
    ' 输出或处理不重复的项
    For j = 1 To i - 1
        Debug.Print "第" & j & "个唯一项：", uniqueItems(j)
        ' 这里可以根据需求修改，如将其写入新的单元格或者列表框等
    Next j
End Sub

这个宏会遍历指定列，检查每个单元格的值是否已经出现在uniqueItems数组中，如果没有，则添加到数组并打印出来。