怎么样用VBA 清除前后空字符

13067007686

清除前后空字符

liulang0808

使用clean看看吧

excel玉米

可以使用Trim函数，清除字符串的前后空格，字符中间的空格无法去除附件未发现有要处理的字符。

smiletwo

附件中未发现空字符，估计是特殊不可见字符吧

游帅帅

Cells.Replace What:="（", Replacement:="(", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Cells.Replace What:="）", Replacement:=")", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
   
    Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
   
    Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

ykcbf1100

清除不可见空白字符

ykcbf1100

1. Sub ykcbf()  '//2025.3.15   清除不可见空白字符
   
2.     With ActiveSheet
   
3.         Set Rng = Intersect(.UsedRange, .[a:e])
   
4.         Set reg = CreateObject("VBScript.Regexp")
   
5.         .Range("B:C").NumberFormatLocal = "@"
   
6.         With reg
   
7.             .Pattern = "[\s\x7F-\xA0]+"
   
8.             For Each k In Rng
   
9.                 If k <> Empty Then
   
10.                     k.Value = CStr(.Replace(CStr(k.Value), ""))
    
11.                 End If
    
12.             Next
    
13.         End With
    
14.     End With
    
15.     MsgBox "OK！"
    
16. End Sub
    
17. 
    

复制代码