excel - 如何在Excel VBA中的单词末尾删除空格？

我有一个脚本可以很好地创建基于两列的文件夹，但是由于某种原因，该脚本的末尾有一个空格。

这是代码：

Dim baseFolder As String, newFolder As String
    lastrow = wsJL.Cells(Rows.Count, "B").End(xlUp).Row
    wsJL.Range("S2:U2").Copy wsJL.Range("S3:U" & lastrow)
    Range("J3:M" & lastrow).Calculate
    Range("S3:U" & lastrow).Calculate
    baseFolder = wbBK1.path & Application.PathSeparator & "Photos" & Application.PathSeparator
     'folders will be created within this folder - Change to sheet of your like.

    If Right(baseFolder, 1) <> Application.PathSeparator Then _
     baseFolder = baseFolder & Application.PathSeparator

       For Each cell In Range("S3:S" & lastrow)   'CHANGE TO SUIT

           'Company folder - column S

           newFolder = baseFolder & cell.Value
           If Len(Dir(newFolder, vbDirectory)) = 0 Then MkDir newFolder

           'Part number subfolder - column T

           newFolder = newFolder & Application.PathSeparator & cell.Offset(0, 1).Value
           If Len(Dir(newFolder, vbDirectory)) = 0 Then MkDir newFolder

       Next

        End With

现在，它正在被赶上的地方是：

"The Richmond Group "我认为的原因是因为它在标题的末尾有一个空格，并且在创建文件夹时不会转换为空格。

现在我在S和T中是这样的：

小号

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE($C2,",","")," "," "),".",""),"/","-"),"""",""),"*","")

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE($D2,",","")," "," "),".",""),"/","-"),"""",""),"*","")

话虽如此，我想不出一种方法来删除名称末尾的末尾空格。

如果有人可以帮助您，我们将不胜感激。

最佳答案

尝试修剪功能：

昏暗的LResult作为字符串
LResult =修剪（“字母”）

http://www.techonthenet.com/excel/formulas/trim.php

substitute

excel - 如何在Excel VBA中的单词末尾删除空格？