vba里怎么去除单元格里的回车

算了算了算是

输入数据的时候单元格里有些有回车, 保存是以单元格的内容当作文件名, 现在执行保存的时候不能保存, vba里怎么去除单元格里的回车
在本地窗口中也看不到有Chr(13) , Chr(10)

l988x511f

Sub 清除回车和空白()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim text As String
   
    ' 获取当前活动的工作簿
    Set wb = ActiveWorkbook
   
    ' 循环遍历每个工作表
    For Each ws In wb.Worksheets
        ' 选择要清除回车和空白的范围（整个工作表）
        Set rng = ws.UsedRange
        
        ' 循环遍历每个单元格
        For Each cell In rng
            text = cell.Value
            
            ' 替换回车符、换行符和空白字符
            text = Replace(text, vbCr, "")
            text = Replace(text, vbLf, "")
            
            ' 去除文本中间的空白字符
            Dim words() As String
            words = Split(text, " ")
            text = Join(words, "")
            
            ' 将清理后的文本重新赋值给单元格
            cell.Value = text
        Next cell
    Next ws
End Sub


请测试，复制到模块中运行

l988x511f

Sub 清除回车和空格()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim text As String
   
    ' 获取当前活动的工作簿
    Set wb = ActiveWorkbook
   
    ' 循环遍历每个工作表
    For Each ws In wb.Worksheets
        ' 选择要清除回车和空白的范围（整个工作表）
        Set rng = ws.UsedRange
        
        ' 循环遍历每个单元格
        For Each cell In rng
            text = cell.Value
            
            ' 替换回车符、换行符和空格字符
            text = Replace(text, vbCr, "") ' 如果不需要清除空格，可删除该行
            text = Replace(text, vbLf, "") '清除Alt+Enter的换行，非此种类型，可把vbLf换成vbCrLf
            
            ' 去除文本中间的空白字符，如果不需要清除，可删除
            Dim words() As String
            words = Split(text, " ")
            text = Join(words, "")
            
            ' 将清理后的文本重新赋值给单元格
            cell.Value = text
        Next cell
    Next ws
End Sub


请测试，放到模块中运行

算了算了算是

好的,谢谢你