[已解决]如何用VBA替换掉特殊的“空格”

事后诸葛亮

.

A1单元格中这个所谓的“76.00 ”是从网页的复制来的。但是含有一个特殊的“空格”
如何用VBA代码将这个特殊的“空格”替换掉？

如何用VBA替换掉特殊的空格.rar (8.37 KB, 下载次数: 34)

2014-9-3 14:03 上传

点击文件名下载附件


录制宏的方式貌似不行。大家可以试一下。

最佳答案

月排行榜 / 总排行榜

grf1973

2014-9-3 14:11

[a1]=val([a1])即可

跳转到最佳答案楼层

事后诸葛亮

录制的时候是可以的，但是看代码的时候，这个    特殊的“空格” 变成了 问号。
如果我再运行 那么这个 问号  将替换掉所有的内容了。 哎头疼

Cells.Replace What:="?", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

grf1973

[a1]=val([a1])即可

这儿有肥猫

楼上正解

baksy

事后诸葛亮 发表于 2014-9-3 14:05
录制的时候是可以的，但是看代码的时候，这个    特殊的“空格” 变成了 问号。
如果我再运行 那么这个 问 ...

Sub test()
[a1] = [a1] * 1
End Sub

ccbluo

Sub luo()
Set l = ActiveSheet.UsedRange
For Each o In l
o.Value = Replace(Trim(o.Value), ChrB(160) & ChrB(0), "")
Next
End Sub

事后诸葛亮

ccbluo 发表于 2014-9-3 16:33
Sub luo()
Set l = ActiveSheet.UsedRange
For Each o In l

感谢，上面的 VAL 也解决了我的这个问题。再次感谢

shiguihuang

ccbluo 发表于 2014-9-3 16:33
Sub luo()
Set l = ActiveSheet.UsedRange
For Each o In l

感谢，上面的 ccbluo 也解决了我的这个问题。非常感谢

高

分列为常规格式即可。在数据选项卡里面。

hwd6

grf1973 发表于 2014-9-3 14:11
[a1]=val([a1])即可

太强了，搞了好久都不行，原来这么简单！