Excel VBA:查找列中具有相似值的单元格

Sub FindSimilarValues()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim searchValue As String
    Dim similarCells As Collection
    
    ' 设置工作表和搜索范围
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set rng = ws.Range("A1:A100") ' 假设我们在A列查找
    
    ' 设置要搜索的值
    searchValue = "example"
    
    ' 创建集合来存储相似值的单元格
    Set similarCells = New Collection
    
    ' 遍历范围内的每个单元格
    For Each cell In rng
        ' 使用Like操作符进行模糊匹配
        If cell.Value Like "*" & searchValue & "*" Then
            similarCells.Add cell.Address ' 添加匹配单元格的地址
        End If
    Next cell
    
    ' 显示结果
    If similarCells.Count > 0 Then
        MsgBox "找到以下相似值的单元格：" & vbCrLf & Join(similarCells, vbCrLf)
    Else
        MsgBox "未找到相似值的单元格。"
    End If
End Sub