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

jmz14865220

ykcbf1100 发表于 2024-3-12 14:06
B列和C列还有？

对，还有空格~

ykcbf1100

jmz14865220 发表于 2024-3-13 08:44
对，还有空格~

还是用正则，可以了。

ykcbf1100

用正则提取汉字、数字和“-”，变相清除所有不可见字符。

1. Sub 去除不可见字符()  '//2024.3.14
   
2.     Set reg = CreateObject("VBScript.RegExp")
   
3.     With reg
   
4.         .Global = True
   
5.         .Pattern = "[\u4E00-\u9FFF\d-]+"
   
6.         r = Cells(Rows.Count, 1).End(3).Row
   
7.         arr = Range("A2:e" & r)
   
8.         Columns(1).NumberFormatLocal = "@"
   
9.         For i = 2 To UBound(arr)
   
10.             For j = 1 To UBound(arr, 2)
    
11.                 s = arr(i, j)
    
12.                 If .Test(s) Then
    
13.                     Set mh = .Execute(s)
    
14.                     For Each ma In mh
    
15.                         arr(i, j) = ma.Value
    
16.                     Next
    
17.                 End If
    
18.             Next
    
19.         Next
    
20.         Range("A2:e" & r) = arr
    
21.     End With
    
22. End Sub
    

复制代码