如何在Excel VBA中删除word末尾的空格？

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

代码如下：

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

Dim baseFolder作为字符串，newFolder作为字符串
lastrow=wsJL.Cells（Rows.Count，“B”）.End（xlUp）.Row
wsJL.Range（“S2:U2”）。复制wsJL.Range（“S3:U”和lastrow）
范围（“J3:M”和lastrow）。计算
范围（“S3:U”和lastrow）。计算
baseFolder=wbBK1.path&Application.PathSeparator&“照片”&Application.PathSeparator
'将在此文件夹中创建文件夹-更改为类似的工作表。
如果正确（baseFolder，1）Application.PathSeparator，则_
baseFolder=baseFolder&Application.PathSeparator
对于范围（“S3:S”和lastrow）中的每个单元格，更改为适合
'公司文件夹-S列
newFolder=baseFolder&cell.Value
如果Len（Dir（newFolder，vbDirectory））=0，则MkDir newFolder
'零件号子文件夹-T列
newFolder=newFolder&Application.PathSeparator&cell.Offset（0，1）.Value
如果Len（Dir（newFolder，vbDirectory））=0，则MkDir newFolder
下一个
以

现在它被抓住的地方是：

“里士满集团”

我认为这是因为它在标题末尾有一个空格，而在创建文件夹时，这个空格不会转换为空格

现在我在S和T中看到的是：

S

=替换（替换）（替换（替换（$C2，，，，，）

T

=替换（替换）（替换（替换（$D2

说到这里，我想不出一个方法来删除名称末尾的结束空格

如果有人能帮上忙，我将不胜感激
 尝试微调功能：

Dim LResult作为字符串

LResult=微调（“字母表”）

使用
修剪$

它是一个字符串函数，这意味着它比它的变体更有效
Trim

一个非常有用的参考资料
只需将字符串用
Trim（…）
包装成一个答案，我会给你评分，我在发布问题后就想到了这一点。我猜我没有完全看到的原因是我在和感冒作斗争。谢谢：）