附件表中有两种空格, 一种普通空格,使用下面的宏能替换, 第二种空格不知道怎么...

jgd0802

宏在附件中

jgd0802

1. Sub 替换空格()
   
2. '
   
3. ' 替换空格 宏
   
4. '
   
5. 
   
6. '
   
7.     Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:= _
   
8.         xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
   
9. 
   
10. End Sub

复制代码

这个是附件中的宏

negibaby

貌似是全角空格与半角空格的区别吧。直接用ctrl+H替换操作就可以了啊。一定要用宏的话，就录制一个查找替换的宏，然后查看一下代码，看看差别在哪。

jians0529

如图所示。。不用宏。。一个是真空格。。一个是传说中的63号字符（实际测得为160号）所以分别复制进行替换即可
或者查找内容那也可以按 ALT+160，进行替换也可以！

jgd0802

jians0529 发表于 2022-1-5 14:45
如图所示。。不用宏。。一个是真空格。。一个是传说中的63号字符（实际测得为160号）所以分别复制进行替换 ...

可是我想用宏啊,  每次这个表格都需要处理掉这些空格,  做个宏就不用来回复制和替换了.  这个表格需要处理的很多,  是用TEKLA生成的,  随着生成, 我这边随着处理

jgd0802

jgd0802 发表于 2022-1-5 16:32
可是我想用宏啊,  每次这个表格都需要处理掉这些空格,  做个宏就不用来回复制和替换了.  这个表格需要处 ...

我试着用录制宏测一下吧,  ALT+160,不知道能不能录制进去

jgd0802

不管用啊,没会弄   这个录制的宏不能用
录制宏

1. Sub 宏1()
   
2. '
   
3. ' 宏1 宏
   
4. '
   
5. 
   
6. '
   
7.     Cells.Replace What:="?", Replacement:="", LookAt:=xlPart, SearchOrder:= _
   
8.         xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
   
9. End Sub

复制代码

jgd0802

jgd0802 发表于 2022-1-5 16:38
不管用啊,没会弄   这个录制的宏不能用
录制宏

有没有帮忙解答一下

jgd0802

顶起啊, 不要沉帖子,   我需要用宏解决这个小空格的替换或者删除这个特殊的空格,  这样会节约我很多的时间.. 大神们.  来啊

jgd0802

每日一顶啊,  兄弟们, 帖子不要沉