去除单元格内容中多余的掉

hhxq001

从一个系统导出有几万条数据，但每个单元格的值末尾都带.  ，如何用代码批量清理掉呢


去除多余的点.zip (12.46 KB, 下载次数: 7)

2024-8-15 15:09 上传

点击文件名下载附件

ykcbf1100

直接用替换法就行。

ykcbf1100

替换法。。。

1. Sub ykcbf()  '//2024.8.15
   
2.     r = Cells(Rows.Count, 1).End(3).Row
   
3.     Set Rng = [a1].Resize(r - 1, 1)
   
4.     Rng.Replace what:=".", Replacement:=""
   
5. End Sub

复制代码

kyxfyzg

i = 2
Do While Range("a" & i) <> ""
    st = Range("a" & i).Value
    Range("a" & i) = Mid(st, 1, Len(st) - 1)
    i = i + 1
Loop

hhxq001

ykcbf1100 发表于 2024-8-15 15:16
替换法。。。

怎么感觉无效呢

hhxq001

kyxfyzg 发表于 2024-8-15 15:28
i = 2
Do While Range("a" & i)  ""
    st = Range("a" & i).Value

点击一次就会删除一个字符，再点击又删除一个。最好是用空格代替点

ykcbf1100

hhxq001 发表于 2024-8-15 16:21
怎么感觉无效呢

明显已经替换掉了。你没看附件？

hhxq001

ykcbf1100 发表于 2024-8-15 16:27
明显已经替换掉了。你没看附件？

看最后一个

hhxq001

ykcbf1100 发表于 2024-8-15 15:16
替换法。。。

另外如果只替换掉末尾的点，中间有点的不替换，怎么改一下

ykcbf1100

hhxq001 发表于 2024-8-15 18:10
另外如果只替换掉末尾的点，中间有点的不替换，怎么改一下

只是告诉你一种方法，你自己慢慢研究吧。