碰到一个很棘手的问题：如何删除字符串中的空格，且只保留一个空格

uug · 发表于 2010-7-24 11:27

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(B2," "," ")," "," ")," "," ")," "," ")," "," ")," "," ")," "," ")," "," ")

凑下闹，用公式试试，可就是有极限值……多指教

　　太长了

hhb6085 · 发表于 2010-7-24 11:33

=substitute(A1," "," ")
还是两空换一空！

hhjjpp · 发表于 2010-7-24 11:40

用substitute函数一次就能把所有的空格替换掉空即""，省去第4个参数，

gongzl1981 · 发表于 2010-7-24 15:39

TRIM
全部顯示
全部隱藏
移除文字之間多餘的空格，僅保留文字間一個空白字元。當您讀取到由其他應用程式所建立的檔案資料時，資料裡可能含有多餘的空白字元，在此情況下，您可以用 TRIM 函數刪除多餘的空格。

重要事項 TRIM 函數是用來從文字中修剪 7 位元 ASCII 空白字元 (值 32)。在 Unicode 字元集中，還有另外一個空格字元，稱為不分行空格字元，其十進位值為 160。此字元通常在網頁中做為 HTML 實體   使用。TRIM 函數本身並不會移除此不分行空格字元。如需如何從文字中修剪上述兩種空格字元的範例，請參閱移除文字中的空格及非列印字元。

語法
TRIM(text)
文字為您所要移除多餘空白的文字資料。

coby001 · 发表于 2010-7-24 18:15

唉 EH 退化了~~
如此简单的问题，偏要搞个复杂的公式和程序来。

zhang20696 · 发表于 2010-7-24 20:00

把连续两个空格替换成一个，重复循环，当字符串长度不再减少时结束循环
或者循环字符串中“空格的个数”-1次，这样虽然有点循环没有用，但可以达到你的目的

Martinzhuchao · 发表于 2010-7-25 07:32

原帖由 coby001 于 2010-7-24 18:15 发表
唉 EH 退化了~~
如此简单的问题，偏要搞个复杂的公式和程序来。

唉，有时候想得太多，确实会把简单问题复杂化。

lummox · 发表于 2010-7-28 20:44

原帖由 coby001 于 2010-7-24 18:15 发表
唉 EH 退化了~~
如此简单的问题，偏要搞个复杂的公式和程序来。

同感！
类似的回帖还有：
http://club.excelhome.net/viewth ... p;extra=&page=1
http://club.excelhome.net/viewth ... p;extra=&page=1

统观以上各贴，都是很简单的问题。可回复者不考虑如何用最简单的方法解决问题，非得把问题复杂化。

bluexuemei · 发表于 2012-1-3 09:20

还是正则来得快，留贴向alzeng老师学习！

Mr_Ying · 发表于 2015-11-22 00:37

LangQueS 发表于 2010-7-22 13:47
Sub 清除多余空格()
For a = 1 To [a65536].End(xlUp).Row
Range("a" & a) = Application.Trim ...

简单实用，特意点赞！

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

[求助] 碰到一个很棘手的问题：如何删除字符串中的空格，且只保留一个空格

用函数简单多了

把连续两个空格替换成一个，重复循环