单元格内有空格，用各种方法都去不掉

1055751654

jivy1212 发表于 2019-4-26 19:48
=VLOOKUP(SUBSTITUTE(C2,UNICHAR(160),),F:G,2,)手机去空都那么容易

太厉害了，，，，

1055751654

rtrim手机好像行不通

jivy1212

1055751654 发表于 2019-4-26 19:54
rtrim手机好像行不通

你关键词看错了，其实关手机啥事，trim只能去正常空格，去不了编码为160的特殊空格

cc_jf

大神们的方法太高大上了，实践告诉我，这种情况一般先复制粘贴到word中，word的查找替换功能比excel强大很多，弄好了再粘回来！

1055751654

jivy1212 发表于 2019-4-26 20:07
你关键词看错了，其实关手机啥事，trim只能去正常空格，去不了编码为160的特殊空格

我不是说你写的那个，我是说我试的rtrim，手机试不出来，没这个函数，

丢丢表格

去制表符 请用 11楼的 （1016373263 ） 方法

  有简单的，就不用去想繁的操作！

1055751654

——————"*"隐身

wzyqwdl

今天下载了原件看了下，在C2里面 最后一个看着是空格，复制出来后，有=code(C2) 显示，代号是63，
默认ascii里面，63代表的符号是问号， 楼主复制的是网上的数据吧。 一般只有复制其他资料的时候会出现这些符号。

直接复制C2里面最后个空格，选中C列，CTRL+H，粘贴下空格，然后直接替换就好


UNICHAR  函数 是基于office 2013及以上的版本有。低于2013的没有这个函数

powerremain

Sub 清除全部空格()
Dim myrange As Range
Set myrange = Application.InputBox(prompt:="请输入数据区域", Type:=8)
  If myrange Is Nothing Then
        MsgBox "操作取消"
  Else
       myrange.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False   '替换半角空格
       myrange.Replace What:="　", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False  '替换全角空格
  End If
End Sub

Sub 删除左右两端空白()
Dim myrange As Range
Dim cell As Range
Set myrange = Application.InputBox(prompt:="请输入数据区域", Type:=8)
  If myrange Is Nothing Then
        MsgBox "操作取消"
  Else
  For Each cell In myrange
        cell = Trim(cell)
  Next
  End If
End Sub

powerremain

又是审核。。。。。。。。。。。。。。。。仅提供去空格