Excel VB将0和1替换为字符串-但是字符串包含1和0，需要if语句来检查if length =1 then Replace else跳过

Sub ReplaceZeroOne()
    Dim cell As Range
    Dim str As String
    
    For Each cell In Selection
        str = cell.Value
        
        ' 检查字符串长度
        If Len(str) = 1 Then
            ' 替换0为"字符串1"
            str = Replace(str, "0", "字符串1")
            
            ' 替换1为"字符串2"
            str = Replace(str, "1", "字符串2")
            
            ' 更新单元格的值
            cell.Value = str
        End If
    Next cell
End Sub