删除换行符,返回车厢,并在Excel单元格中的所有前导空间
我不知道发生了什么事,但是我有一些包含看起来是回车的细胞。 我已经尝试了TRIM()
, CLEAN()
, =SUBSTITUTE(A1,CHAR(10),"")
和一些macros来删除这些字符。
删除这些字符以获取单元格的唯一方法是单击最后一个字符旁边的删除,然后单击确定。
有什么我失踪? 有没有办法编程这样做?
下面的macros将使用Trim()
和Clean()
函数删除所有不可打印的字符和开始和结束空格:
Sub Clean_and_Trim_Cells() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Dim s As String For Each c In ActiveSheet.UsedRange s = c.Value If Trim(Application.Clean(s)) <> s Then s = Trim(Application.Clean(s)) c.Value = s End If Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub
一个更简单的解决方法是findreplace:查找按alt和数字010在同一时间(在10键盘上),然后用空格replace。
您可以通过突出显示包含换行符的单元格来做到这一点。
我努力了
ws.Cells(i, j) = Replace(ws.Cells(i, j), Chr(13), "")
并成功。