怎样用VBA多表循环清除字符串中所有空格

fgq5910 · 发表于 2023-12-13 14:25

本帖最后由 fgq5910 于 2023-12-16 13:22 编辑

需求：
怎样用VBA多表循环清除字符串中所有空格
表1、表2和表3中单元格里首、尾、中间的空格
如：北  京                北京
   上    海             上海
      天津             天津
谢谢

dto8323 · 发表于 2023-12-13 14:46

对所有单元格进行循环，用split拆开再用join合并即可。拆的时候用空格拆，合并的时候不加符号。
似乎略暴力了点，等等看有没有更巧妙的方法。

fgq5910 · 发表于 2023-12-13 16:05

重新上传附件：

沈默00 · 发表于 2023-12-13 16:24

沈默00 · 发表于 2023-12-13 16:25

试一下....

沈默00 · 发表于 2023-12-13 16:28

如果只清除前面的空格用LTRIM
如果只清除后面的空格用RTRIM
两个都是VBA的内置函数

kevinchengcw · 发表于 2023-12-13 16:31

sub test()
for each ws in worksheets
ws.cells.replace " ",""
next ws
end sub

sdytsxd991122 · 发表于 2023-12-13 16:32

用replace试一试

fgq5910 · 发表于 2023-12-13 17:28

沈默00 发表于 2023-12-13 16:25
试一下....

非常感谢！
运行成功

fgq5910 · 发表于 2023-12-13 17:29

kevinchengcw 发表于 2023-12-13 16:31
sub test()
for each ws in worksheets
ws.cells.replace " ",""

非常感谢！
运行成功

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

[已解决] 怎样用VBA多表循环清除字符串中所有空格

评分

评分