清除空格后账号格式不对了

hhxq001 · 发表于 2023-5-17 15:54

本帖最后由 hhxq001 于 2023-5-17 17:51 编辑

使用代码清理多余空格后，账号格式变成了

求解决方法。

00-汇总表拆开--清除空格.rar (60.16 KB, 下载次数: 2)

gwjkkkkk · 发表于 2023-5-17 20:19

在你的代码基础上简单修改一下。。。

hhxq001 · 发表于 2023-5-17 21:30

gwjkkkkk 发表于 2023-5-17 20:19
在你的代码基础上简单修改一下。。。

真不错，谢谢。如果也要清除回车符，怎么改动呢？

gwjkkkkk · 发表于 2023-5-17 21:38

外面再套一下replace(???,chr(10),"")

hhxq001 · 发表于 2023-5-17 21:41

gwjkkkkk 发表于 2023-5-17 21:38
外面再套一下replace(???,chr(10),"")

不懂怎么套，望指点。

hhxq001 · 发表于 2023-5-17 22:09

是这样吗？
arr = Range("a2:i7001")
For i = 1 To UBound(arr)
      For j = 1 To UBound(arr, 2)
         arr(i, j) = Replace(arr(i, j), " ", "")    '清除空格
         arr(i, j) = Replace(arr(i, j), vbLf, "") '回车换行符
         arr(i, j) = Replace(arr(i, j), vbTab, "") 'Tab键
         arr(i, j) = Replace(arr(i, j), vbCr, "") '制表符
      Next j
Next i
Range("a2:i7001") = arr

		自动登录	找回密码
密码			免费注册

[求助] 清除空格后账号格式不对了

评分