VBA 如何删除前后空字符串

ME.李 · 发表于 2023-3-14 09:36

tanglf188 发表于 2023-3-14 09:29
Tab，处理办法在路上了。

TAB 不对吧只是个制表符

lushang2018 · 发表于 2023-3-14 09:45

这个是换行符，你用repalce chr(10)试一试

lushang2018 · 发表于 2023-3-14 09:47

tanglf188 · 发表于 2023-3-14 09:51

各有一个回车和换行符
[attachimg]28

Sub test()
For Each mc In Sheet1.[D8:E11]
mc.Value = Application.Substitute(mc.Value, chr(10), "")
mc.Value = Application.Substitute(mc.Value, chr(13), "")
Next
End Sub

复制代码

70150[/attachimg]

cjc209 · 发表于 2023-3-14 09:52

Sub 清除干扰字符()
Call 去除不可见字符(Sheet1.UsedRange)
End Sub
Function 去除不可见字符(rng As Range)
Dim ar, i
ar = Array(9, 10, 13, 28, 29, 30, 31, 32, 127)
For i = 0 To UBound(ar)
rng.Replace ChrW(ar(i)), ""
Next
For i = 129 To 254
rng.Replace ChrW(i), ""
Next
rng.Replace " ", ""
End Function

tanglf188 · 发表于 2023-3-14 09:53

本帖最后由 tanglf188 于 2023-3-14 10:22 编辑

ME.李发表于 2023-3-14 09:36
TAB 不对吧只是个制表符

没有附件只是猜测，测试附件是回车+换行符

短腿小居居。 · 发表于 2023-3-14 10:05

Cells(i, 5) = Application.Clean(Trim(Cells(i, 4)))
加个clean试试

ME.李 · 发表于 2023-3-14 10:40

lushang2018 发表于 2023-3-14 09:47

好的谢谢解决了我一直以为是空字符

		自动登录	找回密码
密码			免费注册