VBA查找指定范围的去重值

你可以使用 VBA 中的字典对象来查找指定范围的去重值。以下是一个例子：

Sub FindUniqueValues()
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")
    
    Dim rangeToSearch As Range
    Set rangeToSearch = Range("A1:A10")
    
    Dim cell As Range
    
    '遍历范围并将唯一值添加到字典中
    For Each cell In rangeToSearch
        If Not dict.exists(cell.Value) Then
            dict.Add cell.Value, True
        End If
    Next cell
    
    '输出唯一值
    Dim uniqueValues() As Variant
    uniqueValues = dict.keys
    
    Dim i As Integer
    For i = 0 To dict.Count - 1
        Debug.Print uniqueValues(i)
    Next i
End Sub

这个例子将在范围 A1:A10 中查找唯一值，并使用 `Debug.Print` 输出这些值。你可以将范围和输出更改为你需要的内容。

相关问题

VBA编程指定范围的单元格

要指定 VBA 中的单元格范围，您可以使用 Range 对象。以下是指定单元格范围的示例 VBA 代码：

Sub Example()
    Dim myRange As Range
    Set myRange = Range("A1:C10") ' 指定范围为 A1 到 C10 的单元格
    ' 在这里执行您的代码，使用 myRange 代表您想要处理的单元格范围
End Sub

您可以将范围指定为单个单元格，例如 `Range("A1")`，也可以指定多个范围，例如 `Range("A1:C10,E1:F10")`。您还可以使用其他方法来定义单元格范围，例如使用行和列号，例如 `Cells(1,1)` 表示第一行第一列的单元格。

VBA 查找指定内容所在行并标红

你可以使用以下VBA代码来查找指定内容所在的行并将其标记为红色：

Sub FindAndMark()
    Dim findText As String
    Dim foundCell As Range
    Dim markRow As Integer
    
    findText = InputBox("请输入要查找的文本：")
    
    If findText <> "" Then
        Set foundCell = Cells.Find(what:=findText, LookIn:=xlValues, lookat:=xlWhole)
        
        If Not foundCell Is Nothing Then
            markRow = foundCell.Row
            Rows(markRow).Interior.Color = vbRed
        Else
            MsgBox "未找到指定文本。"
        End If
    End If
End Sub

在这个例子中，我们首先获取用户输入的要查找的文本。然后使用 `Cells.Find` 方法查找文本所在的单元格。如果找到了单元格，我们就获取该单元格所在的行，并将其标记为红色。否则，我们显示一个消息框，告诉用户未找到指定文本。