[已解决]请教：怎么把vba里面显示的?替换为空白

xdwy

如附件，实际vba里面显示的是"?"，但其实不是真正的问号，在excel表格里面用code函数求出的数字为63

请教大侠，怎么把vba里面显示的?时间输出为空格的地方替换为空（""）

code.zip (6.41 KB, 下载次数: 32)

2013-7-1 14:19 上传

点击文件名下载附件



Cells(1, 4) = Replace(Cells(1, 1) & Cells(1, 2), " ", "")

最佳答案

月排行榜 / 总排行榜

妞叫七七

2013-7-1 17:20

xdwy 发表于 2013-7-1 17:04
我放在宏里面没有去掉呀，请看看下，谢谢

眼花了吧{:101:}
Cells(1, 4) = Replace(Replace(Cells(1, 1) & Cells(1, 2), Chr(32), ""), ChrW(160), "")

跳转到最佳答案楼层

妞叫七七

Cells(1, 4) = Replace(Replace(Cells(1, 1) & Cells(1, 2), Chr(32), ""), Left(Cells(1, 2), 1), "")

xdwy

妞叫七七 发表于 2013-7-1 14:42
Cells(1, 4) = Replace(Replace(Cells(1, 1) & Cells(1, 2), Chr(32), ""), Left(Cells(1, 2), 1), "")

Left(Cells(1, 2), 1), ""
这个限定了字符的位置，如果不在第一个字符，就没有办法了，所以想求解的是这样的字符怎么去掉，谢谢关注

期盼可以完全解决的答案

妞叫七七

这个63还替换不掉,再想想其他办法

妞叫七七

现在还没找到方法,不过你可以把这个字符复制下来,粘粘到一个空单元格中,比如 e1,然后代码改为
Cells(1, 4) = Replace(Replace(Cells(1, 1) & Cells(1, 2), Chr(32), ""), [e1], "")

或者就把b2的第一个单元格的这个?当成一个固定的样本,后面替换就用它

妞叫七七

如果非要精确的,在字符间循环吧,

妞叫七七

我想原因就应该是这样的,这个肯定是从网页或其他数据库中导入的,这个看似空格的字符在excel中无法识别,所以使用code和char转换后会显示成?

妞叫七七

哈哈,终于完美解决
Cells(1, 4) = Replace(Replace(Cells(1, 1) & Cells(1, 2), Chr(32), ""), ChrW(160), "")
这个字符是UNICODE中的空格 &HC2A0

妞叫七七

这个别忘了给我一个最佳答案,真费了不少功夫

xdwy

妞叫七七 发表于 2013-7-1 16:30
哈哈,终于完美解决
Cells(1, 4) = Replace(Replace(Cells(1, 1) & Cells(1, 2), Chr(32), ""), ChrW(160), ...

我放在宏里面没有去掉呀，请看看下，谢谢

code.zip (6.61 KB, 下载次数: 14)

2013-7-1 17:04 上传

点击文件名下载附件