单元格内容多了一个隐藏的“空格”，请教如何去掉。

pinenut

我从某个系统里面导出一个excel表，但发现A列所有姓名都多了一个隐藏的空格，这个隐藏的空格很隐蔽，直接复制粘贴还发现不了，必须双击A2（举例说明）进去，然后全选内容（最好从右往左选黑内容），复制，在一个空的单元格粘贴就会发现了（如果双击一个空的单元格粘贴，就会发现内容前面多了一个空格；如果直接点一个单元格粘贴，会发现复制后内容往右移动了一格）。

请问这是怎么回事，A列的单元格多了一个什么控制符，如何删除。谢谢。。。

LangQueS

Sub 删除非法字符()
Application.Calculation = xlCalculationManual       '手动重算
On Error Resume Next     '忽略错误继续执行VBA代码,避免出现错误消息
For Each r In ActiveSheet.UsedRange    '数组方式——将当前工作表所有单元纳入数组
    a = r.Row
    b = r.Column
    If Cells(a, b) <> Application.WorksheetFunction.Substitute(Cells(a, b), ChrB(160), "") _
    Or Cells(a, b) <> Application.WorksheetFunction.Substitute(Cells(a, b), Chr(9), "") Then       '判断单元是否包含非法字符
        Cells(a, b) = Application.WorksheetFunction.Substitute(Cells(a, b), ChrB(160), "")   '替换特殊字符
        Cells(a, b) = Application.WorksheetFunction.Substitute(Cells(a, b), Chr(9), "")    '替换特殊字符
        Cells(a, b).Interior.ColorIndex = 35    '单元颜色浅绿
    End If
Next
On Error GoTo 0    '恢复正常的错误提示
Application.Calculation = xlCalculationAutomatic    '自动重算
End Sub

chqyz

没看见有空格吗，如果有可以用查找空格，然后用空白替换，
另外还可以用trim函数去除空格，在用复制选择性粘贴选择值

lb_bn

=RIGHT(A2,LEN(A2)-1)

LangQueS

name.rar (7.67 KB, 下载次数: 36)

2011-3-21 23:28 上传

点击文件名下载附件

pinenut

原帖由 LangQueS 于 2011-3-21 23:27 发表
Sub 删除非法字符()
Application.Calculation = xlCalculationManual       '手动重算
On Error Resume Next     '忽略错误继续执行VBA代码,避免出现错误消息
For Each r In ActiveSheet.UsedRange    '数组方式— ...

谢谢，不过你的方案太高了～～要好好琢磨～

AVEL

Option Explicit

Sub L()
    Dim RegEx, x%
    Set RegEx = CreateObject("VBSCRIPT.REGEXP")
    [b:b].ClearContents
    With RegEx
        .Global = True
        .Pattern = "[\s]"
        For x = 1 To [a65536].End(xlUp).Row
            Cells(x, 2) = .Replace(Cells(x, 1), "")
        Next x
    End With
    Set RegEx = Nothing
End Sub

pinenut

原帖由 lb_bn 于 2011-3-21 23:27 发表
=RIGHT(A2,LEN(A2)-1)

简单明了，谢谢帮助～

AVEL

  可以参看附件

blackttea

作个记号。