Excel VBA在相邻单元格中查找具有最大值的字符串

Sub FindMaxString()
    Dim rng As Range
    Dim maxString As String
    Dim cell As Range
    
    ' 设置要查找的范围
    Set rng = Range("A1:A10")
    
    ' 初始化最大字符串变量
    maxString = ""
    
    ' 遍历范围中的每个单元格
    For Each cell In rng
        ' 检查单元格的值是否为字符串类型
        If VarType(cell.Value) = vbString Then
            ' 检查当前字符串是否大于最大字符串
            If cell.Value > maxString Then
                ' 更新最大字符串
                maxString = cell.Value
            End If
        End If
    Next cell
    
    ' 在相邻单元格中显示最大字符串
    Range("B1").Value = maxString
End Sub