请问如何去除这种换行符号

yxqyxq · 发表于 2022-4-2 20:05

cjc209 · 发表于 2022-4-2 20:10

Sub 替换()
Call 去除不可见字符(ActiveSheet.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

cjc209 · 发表于 2022-4-2 20:13

这样就可以了

cjc209 · 发表于 2022-4-2 20:16

先前工作表指定错了重新上害怕误会

yxqyxq · 发表于 2022-4-2 20:26

cjc209 发表于 2022-4-2 20:16
先前工作表指定错了重新上害怕误会

这样可以去除符号，但改变了工作表中数据格式

cjc209 · 发表于 2022-4-2 20:35

你是说还是要换行符??

yxqyxq · 发表于 2022-4-2 20:49

cjc209 发表于 2022-4-2 20:35
你是说还是要换行符??

不好意思！可能是我没说清楚，意思是在listbox中不显示这种换行符号，同时也不改变工作表中数据的格式，谢谢！

cjc209 · 发表于 2022-4-2 20:56

yxqyxq 发表于 2022-4-2 20:49
不好意思！可能是我没说清楚，意思是在listbox中不显示这种换行符号，同时也不改变工作表中数据的格式， ...

这个真不知道

cjc209 · 发表于 2022-4-2 20:57

我对窗体控件没有研究过我只是喜欢数据处理

yxqyxq · 发表于 2022-4-2 21:01

cjc209 发表于 2022-4-2 20:57
我对窗体控件没有研究过我只是喜欢数据处理

非常感谢你的帮助！还是受益非浅！

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

[求助] 请问如何去除这种换行符号