怎么替换掉数据中无用的字符？

wgl721219

附件中只有两个单元格有数据，看起来是数字但不能参与计算，也不是多了空格，用LEN函数发现比看到的长度多1，这多出来的一个字符是什么？怎么替换掉它？
有问题的数据.rar (6.53 KB, 下载次数: 20)

2023-10-4 21:37 上传

点击文件名下载附件

quqiyuan

=--CLEAN(A1)
转换为数值

wgl721219

quqiyuan 发表于 2023-10-4 21:46
=--CLEAN(A1)
转换为数值

这样是可以，但还得将转换的数据再复制回来。谢谢。

3190496160

Sub 删除不可见字符()
Dim rng As Range, i, j, k, leng As Integer
Dim r, c, s, ascma
Set rng = Selection
arr = rng
r = rng.Rows.Count
c = rng.Columns.Count
rng.Interior.ColorIndex = xlNone '设置区域背景为无色
rng.NumberFormatLocal = "@" '设置区域格式为文本
If r = 1 And c = 1 Then
    arr = Replace(arr, ChrW(1), "")
    arr = Replace(arr, ChrW(9), "")
    arr = Replace(arr, ChrW(10), "")
    arr = Replace(arr, ChrW(13), "")
    arr = Replace(arr, ChrW(32), "")
    arr = Replace(arr, ChrW(160), "")
Else
    For i = 1 To r
        For j = 1 To c '1、32是空格，9是制表符，10、13是换行符
            arr(i, j) = Replace(arr(i, j), ChrW(1), "")
            arr(i, j) = Replace(arr(i, j), ChrW(9), "")
            arr(i, j) = Replace(arr(i, j), ChrW(10), "")
            arr(i, j) = Replace(arr(i, j), ChrW(13), "")
            arr(i, j) = Replace(arr(i, j), ChrW(32), "")
            arr(i, j) = Replace(arr(i, j), ChrW(160), "")
        Next j
    Next i
End If
rng = arr
MsgBox "区域中的空格、制表符、换行符、char(160)都已删除！！！"
End Sub

quqiyuan

wgl721219 发表于 2023-10-4 21:59
这样是可以，但还得将转换的数据再复制回来。谢谢。

那你用分列处理，那就能原位处理咯

沈默00

参与运算的时候前面加上clean,这样就不用处理原数据了
要不增加个clean处理过的辅助列

wgl721219

quqiyuan 发表于 2023-10-4 22:13
那你用分列处理，那就能原位处理咯

分列处理好，将数据复制到记事本里才发现这个多出来的字符是制表符。

wgl721219

3190496160 发表于 2023-10-4 22:09
Sub 删除不可见字符()
Dim rng As Range, i, j, k, leng As Integer
Dim r, c, s, ascma

用VBA解决比较通用，谢谢

wgl721219

沈默00 发表于 2023-10-5 08:13
参与运算的时候前面加上clean,这样就不用处理原数据了
要不增加个clean处理过的辅助列

这些数据是从网上复制来的。

暴虐狂徒

试试基于VSTO开发的一个Excel小工具去除多余空格或去除不可见字符