清理多余空格无效

hhxq001

ykcbf1100 发表于 2024-1-7 19:48
你既没有说谢谢，又没有送花，这个没有解释的理由。

哈哈，想搞明白一起送花的呢。

ykcbf1100

hhxq001 发表于 2024-1-7 19:35
能说一下ar = Array(9, 10, 13, 28, 29, 30, 31, 32, 127)中的数字是代表什么吗

那些都是ChrW码，代表的是不可见字符。这个你直接用就行，不用去搞那么明白。

ph378

学习再学习一下

ynzsvt

1. Sub 按钮7_Click()
   
2. '清除可能存在的空格、回车符等看不见、无用的信息
   
3. kk = ActiveSheet.Cells(Rows.Count, "c").End(xlUp).Row
   
4. For y = 3 To kk
   
5.   For x = 3 To 5 '第3-5列进行替换,为3-5列加单引号'
   
6.    Cells(y, x) = "'" & Cells(y, x) '为2-5列英文单引号’，变更为文本格式
   
7.   Next
   
8. Next
   
9. 
   
10. Range("b3:e" & kk).Replace " ", ""    '替换空格
    
11. Range("b3:e" & kk).Replace vbLf, ""   '替换回车换行符
    
12. Range("b3:e" & kk).Replace vbTab, ""  '替换Tab键
    
13. Range("b3:e" & kk).Replace vbCr, ""   '替换制表符
    
14. Range("b3:e" & kk).Replace ChrW(160), ""   '替换特殊符号
    
15. 
    
16. End Sub

复制代码

今日123

hhxq001 发表于 2024-1-7 19:35
能说一下ar = Array(9, 10, 13, 28, 29, 30, 31, 32, 127)中的数字是代表什么吗

这是数组，代表你要清空的位置