大神帮忙删除特殊符号加空格

ykcbf1100

一键去除不可见字符

ykcbf1100

代码如下：

1. Sub 去除不可见字符()     '//2024.3.11
   
2.     Dim ar, i
   
3.     r = Cells(Rows.Count, 1).End(3).Row
   
4.     For i = 2 To r
   
5.         Cells(i, 1) = "|" & Cells(i, 1)
   
6.     Next
   
7.     Set rng = ActiveSheet.UsedRange
   
8.     rng.NumberFormatLocal = "@"
   
9.     ar = Array(9, 10, 13, 28, 29, 30, 31, 32, 127)
   
10.     For i = 0 To UBound(ar)
    
11.         rng.Replace ChrW(ar(i)), ""
    
12.     Next
    
13.     For i = 129 To 254
    
14.         rng.Replace ChrW(i), ""
    
15.     Next
    
16.     rng.Replace " ", ""
    
17.     For i = 2 To r
    
18.         st = Cells(i, 1)
    
19.         Cells(i, 1) = Replace(st, "|", "")
    
20.     Next
    
21.     MsgBox "OK！"
    
22. End Sub
    
23. 
    

复制代码

jmz14865220

ykcbf1100 发表于 2024-3-11 12:14
一键去除不可见字符

谢谢大神了

jmz14865220

ykcbf1100 发表于 2024-3-11 12:15
代码如下：

大神，你这个可以不用修改字体格式了，但是今天试用了一下还是有空格没有删除，能麻烦看看吗？

ykcbf1100

jmz14865220 发表于 2024-3-12 10:30
大神，你这个可以不用修改字体格式了，但是今天试用了一下还是有空格没有删除，能麻烦看看吗？

具体一点，我看看啥情况

jmz14865220

ykcbf1100 发表于 2024-3-12 11:06
具体一点，我看看啥情况

单击生成后数据后面还是有空格出现特殊符号是没有了~您点完生成然后检查用户编号那列里面就会有两个空格的数据，也有三个空格的，我查找数据才发现的，因为和总表有出入。

ykcbf1100

jmz14865220 发表于 2024-3-12 11:18
单击生成后数据后面还是有空格出现特殊符号是没有了~您点完生成然后检查用户编号那列里面就会有两个空格 ...

看了一下，A列字串后面的空格用普通方法无法清除，改用正则处理。

ykcbf1100

因为A列数字字串中含有不可见字符，改用正则把数字以外的字符全部清除。

1. Sub 去除不可见字符()  '//2024.3.12
   
2.     Set reg = CreateObject("VBScript.RegExp")
   
3.     With reg
   
4.         .Global = True
   
5.         .Pattern = "(\D+)"
   
6.         r = Cells(Rows.Count, 1).End(3).Row
   
7.         ' 遍历A列数据区的每个单元格
   
8.         Set rng = Range("A2:A" & r)
   
9.         Columns(1).NumberFormatLocal = "@"
   
10.         For Each cell In rng
    
11.             If .Test(cell.Value) Then
    
12.                 cell.Value = .Replace(cell.Value, "") ' 用空白替换不可见字符
    
13.             End If
    
14.         Next cell
    
15.         .Pattern = "[\x00-\x08\x0B-\x1F\x7F-\xFF]" ' 匹配不可见字符
    
16.         ' 遍历B~F数据区的每个单元格
    
17.         Set rng = Range("B2:f" & r)
    
18.         For Each cell In rng
    
19.             If .Test(cell.Value) Then
    
20.                 cell.Value = .Replace(cell.Value, "") ' 用空白替换不可见字符
    
21.             End If
    
22.         Next cell
    
23.     End With
    
24. End Sub
    

复制代码

jmz14865220

ykcbf1100 发表于 2024-3-12 11:46
因为A列数字字串中含有不可见字符，改用正则把数字以外的字符全部清除。

大神B列和C代码怎么修改？修改的很好了！

ykcbf1100

jmz14865220 发表于 2024-3-12 13:07
大神B列和C代码怎么修改？修改的很好了！

B列和C列还有？