求助--去除空格/特殊字符？

duwei9981 · 发表于 2012-11-26 18:48

浏览了部分关于此内容的帖子，暂未解决，特来求助！

系统导出数据，前后看上去都有空格、且前面空格长度不一致（感觉前面是特殊字符）
如何清除数据以外的用来加总数据！谢谢！

心电感应 · 发表于 2012-11-26 19:31

本帖最后由心电感应于 2012-11-26 19:34 编辑

查找半角空格全部替换
再查找从单元格复制一个不可见字符粘贴在查找内容全部替换

附件

空格？特殊字符？.rar (7.85 KB, 下载次数: 52)

AVEL · 发表于 2012-11-26 21:23

除了心电的办法，说个刚刚试了可行的办法：
先复制到WORD中，查找替换空格全部替换替换后的表格重新复制回EXCEL中，应该就可以了。

zhaogang1960 · 发表于 2012-11-26 21:36

正则表达式:

空格？特殊字符？.rar (17.51 KB, 下载次数: 124)

佛山小老鼠 · 发表于 2012-11-26 23:54

本帖最后由佛山小老鼠于 2012-11-27 00:13 编辑

Sub test()
Dim arr, x, y As Byte '定义变量
Set Reg = CreateObject("vbscript.regexp") '创建正则表达式
arr = Range("A2:H9") '把单元格区域装入数组
With Reg
.Global = True '全部搜索
.Pattern = "\D" '区配非是数字
End With
For x = 1 To UBound(arr, 1) '遍历数组arr的一维
For y = 1 To UBound(arr, 2) '遍历数组arr的二维
arr(x, y) = Reg.Replace(arr(x, y), "") '清除数组arr(x,y)里的非数字的字符，然后再重新赋值给它自己
Next y
Next x
[A2].Resize(UBound(arr, 1), UBound(arr, 2)) = arr '把处理好的数组arr一次性写于单元格区域，从A2单元格开始
End Sub

复制代码

duwei9981 · 发表于 2012-11-27 11:08

试了4个方法都可以，学习。多谢各位帮忙！

wshcw · 发表于 2012-12-2 20:41

本帖最后由 wshcw 于 2012-12-2 20:42 编辑

=--TEXT(SUBSTITUTE(A2," ",),"0;-0;0;\0")

duwei9981 · 发表于 2012-12-3 14:31

wshcw 发表于 2012-12-2 20:41
=--TEXT(SUBSTITUTE(A2," ",),"0;-0;0;\0")

结果返回了0？

czly198 · 发表于 2012-12-3 15:07

AVEL 发表于 2012-11-26 21:23
除了心电的办法，说个刚刚试了可行的办法：
先复制到WORD中，查找替换空格全部替换替换后的表格重新复制 ...

好方法，原来只会在表中替换，现在又多学了一种

wshcw · 发表于 2012-12-3 15:24

duwei9981 发表于 2012-12-3 14:31
结果返回了0？

怎么会是0呢？
=--TEXT(SUBSTITUTE(A2," ",),"[<>];;0;\0")

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

[求助] 求助--去除空格/特殊字符？