查找不适用于超过256个字符的单元格

Sub FindCellsOver256Characters()
    Dim rng As Range
    Dim cell As Range
    Dim targetSheet As Worksheet
    Dim targetRange As Range
    
    ' 设置要查找的范围，可以根据实际情况修改
    Set targetSheet = ActiveSheet
    Set targetRange = targetSheet.UsedRange
    
    ' 循环遍历每个单元格
    For Each cell In targetRange
        ' 判断单元格的字符数是否超过256个
        If Len(cell.Value) > 256 Then
            ' 将超过256个字符的单元格添加到结果范围中
            If rng Is Nothing Then
                Set rng = cell
            Else
                Set rng = Union(rng, cell)
            End If
        End If
    Next cell
    
    ' 如果找到了超过256个字符的单元格，则选中并显示消息框
    If Not rng Is Nothing Then
        rng.Select
        MsgBox "找到了超过256个字符的单元格！"
    Else
        MsgBox "未找到超过256个字符的单元格。"
    End If
End Sub