清除空白字符或不可见字符

在网络上复制的内容,粘贴到excel中后有许多空格,有时候用查找替换空格,替换后依然无法清除空格。这是因为网上复制的内容有许多不可见字符。这时候用空格来替换是替换不了的。下面的方法可以一次性清除复制过来的内容里面的空格、空白字符等。代码如下:

Sub clear()
    With ActiveSheet
       .Cells.Replace What:=Chr(32), Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows'清除空格
       .Cells.Replace What:=ChrW(160), Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows'清除网络不可见字符
    End With
End Sub

主要是用到replace方法,其中char(32)是空白字符,chrW(160)是网络不可见字符。

分享到:

评论抢沙发

评论前必须登录!