国产一区二区欧美精品免费-欧美国产日韩在线视频-欧美亚洲国语精品一区二区-欧美激情五月综合啪啪-国产69精品麻豆久久久久-亚洲人成精品久久久久桥网站-欧美刺激肥熟在线视频-十七岁日本免费完整版BD-黑夜在线拖拽不卡第一页

Sub 刪除不可見字符和空格()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range

    Set ws = ThisWorkbook.Worksheets("Sheet1") '根據(jù)實(shí)際情況修改工作表名稱
    Set rng = ws.Range("U2:U200")

    For Each cell In rng
        cell.Value = Replace(cell.Value, " ", "") '刪除空格
        cell.Value = Replace(cell.Value, Chr(160), "") '刪除不可見字符
    Next cell
End Sub

刪除不可見字符