如何用VBA去除单元格中的空格，我用几种方法都没有用

nc_xiaoyang · 发表于 2015-9-10 17:19

请教大家一个问题，我写了一个程序，去除单元格中的空格，为什么去除不掉呢？

Help.zip (43.24 KB, 下载次数: 115)

程序如下
For i = 7 To Sheets("CheInTxt").Range("A65536").End(xlUp).Row

DocCheID(i) = Replace(Sheets("Che").Cells(i, 1), " ", "")
If Right(DocCheID(i), 1) = " " Then DocCheID(i) = Left(DocCheID(i), Len(DocCheID(i)) - 1)
If Left(DocCheID(i), 1) = " " Then DocCheID(i) = Right(DocCheID(i), Len(DocCheID(i)) - 1)

即使执行了上句，DocCheID(7)的最后一个字符还是空格，我们可以从IntTemp1 = Len(DocCheID(i))得到长度是9，但是按照道理说长度应该是8才对啊。
请大侠指教。谢谢。

nc_xiaoyang · 发表于 2015-9-10 18:59

请哪个大侠指点，比较着急。

hlly888 · 发表于 2015-9-10 19:05

删除代码，说明要求。

crazy0qwer · 发表于 2015-9-10 19:51

后面一个是回车符 VBCR
用下面这句代码，把你原来那三句换掉。

DocCheID(i) = Trim(Replace(Sheets("Che").Cells(i, 1), vbCr, ""))

TRIM 可以去掉字符串首尾的所有空格。

小花鹿 · 发表于 2015-9-10 20:40

这代码看着怎么这么乱啊。

nc_xiaoyang · 发表于 2015-9-10 20:58

crazy0qwer 发表于 2015-9-10 19:51
后面一个是回车符 VBCR
用下面这句代码，把你原来那三句换掉。

谢谢大侠。我终于可以继续工作了。

yzxfelix · 发表于 2019-10-10 05:48

crazy0qwer 发表于 2015-9-10 19:51
后面一个是回车符 VBCR
用下面这句代码，把你原来那三句换掉。

运行错误啊，哥

liulang0808 · 发表于 2019-10-10 07:49

Sub TEST()
Application.ScreenUpdating = False
With CreateObject("vbscript.regexp")
      .Global = True
      .Pattern = "\s*"
      For j = 7 To Cells(Rows.Count, 1).End(3).Row
         Cells(j, 1) = .Replace(Cells(j, 1), "")
      Next j
End With
Application.ScreenUpdating = True
End Sub
看看这段是否能清除不可见字符吧

shi353 · 发表于 2019-10-10 08:24

看了提問樓主的代碼半天,很難了解代碼要做什麼
可以請問提問樓主說明這個代碼要做什麼用? 比較那幾個數據後達到什麼樣變色效果
大量不斷引用cells部分代碼應該可以用使用數組來簡化吧!

astupig · 发表于 2019-10-10 08:32

直接用TRIM函数就可以了。。。。

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

[求助] 如何用VBA去除单元格中的空格，我用几种方法都没有用

评分