VBA高手请进！怎么去掉单元格字符串首未空格？

Question

好几个单元格有字符串，有的首位有一个空格，有的首位有两个空格……有的没有空格。字符串尾部也是。(首未空格数不一样)，中间有空格的话不要去掉。必须用VBA代码。高手帮忙吧！

Answer 1

不能用TRIM函数，不然全部空格都会删除。
要用LTRIM函数、RTRIM函数组合使用。
LTRIM() 是去除字符首位的空格（不论有几个空格）
RTRIM() 是去除字符尾部的空格（不论有几个空格）
如二楼的回答，把Trim(c.Value) 改成 LTrim(RTrim(c.Value)) 即可。追问

一个单元格的怎么写？
比如：去掉ActiveSheet.Cells(1, 1)的话怎么写？

Answer 2

Sub DTrim()
Dim c As Range
If MsgBox("请确认已选择所要更改区域中任意一个单元格！", vbYesNo + vbExclamation) = vbNo Then Exit Sub
Selection.CurrentRegion.Select
For Each c In Selection
c.Value = Trim(c.Value)
Next c

MsgBox "Done!", vbOKOnly

End Sub

trim()函数：删除字符串首部和尾部的空格

Answer 3

就一个Trim函数即可

Answer 4

TRIM （[单元格]） 就可以了