[已解决]如何去掉EXCEL单元格中的回车符及换行符

向前650809

各位网友好，有时可以看到单元格中一行字符的后面无文字，但后面即有多余空行，是不是有回车符，也有换行符，还是说仅有回车符，如何去掉它们
是不是这样就可以Replace(txt, Chr(13), "")
还是说要这样Replace(txt, Chr(10), "")
请指导，谢谢

最佳答案

月排行榜 / 总排行榜

爱疯

2016-5-1 09:29

Sub Click1()
    Dim s, i, x
    s = [a1]
    For i = 1 To Len(s)
        x = Mid(s, i, 1)
        Debug.Print Asc(x)
    Next i
End Sub

Sub Click2()
    '替换 换行符 为空
    [b1] = VBA.Replace([a1], Chr(10), "")
End Sub

1.rar (7.83 KB, 下载次数: 57)

2016-5-1 09:27 上传

点击文件名下载附件



ASCII_百度百科
http://baike.baidu.com/view/15482.htm
8，BS (backspace)，表示退格，\b
9，HT (horizontal tab)，表示水平制表符，\t
10，LF (NL line feed, new line)，表示换行键，\n
13，CR (carriage return)，表示回车键，\r

跳转到最佳答案楼层

爱疯

Sub Click1()
    Dim s, i, x
    s = [a1]
    For i = 1 To Len(s)
        x = Mid(s, i, 1)
        Debug.Print Asc(x)
    Next i
End Sub

Sub Click2()
    '替换 换行符 为空
    [b1] = VBA.Replace([a1], Chr(10), "")
End Sub

1.rar (7.83 KB, 下载次数: 57)

2016-5-1 09:27 上传

点击文件名下载附件



ASCII_百度百科
http://baike.baidu.com/view/15482.htm
8，BS (backspace)，表示退格，\b
9，HT (horizontal tab)，表示水平制表符，\t
10，LF (NL line feed, new line)，表示换行键，\n
13，CR (carriage return)，表示回车键，\r

向前650809

单元格中无回车符吗，如有怎么去掉

爱疯

1）单元格中有没有回车符，可用2楼click1()的方式查看。
如果debug.print到13，就是说明有回车符


2）如果有，可用2楼clcik2()的方式解决，如下：
[b1] = VBA.Replace([a1], Chr(13), "")