如果您希望VBA代码删除仅活动工作表中的所有尾随空格，那么本文绝对会为您提供帮助。很多时候，我们错误地在结尾处留了一个空格，或者有时我们从Web复制数据并且没有注意到。在本文中，我们将学习如何消除错误留下的空间。

问题）：在Excel中，我们可以将TRIM函数与SUBSTITUTE和CHAR一起使用，即= TRIM（SUBSTITUTE（A1，CHAR（160），“”））删除任何文本末尾的尾随空格。

我想要一个宏来帮助我删除字符串末尾所有不必要的空格。

获得删除文本末尾空格的代码；我们需要按照以下步骤启动VB编辑器。

单击“开发人员”选项卡。从“代码”组中，选择“ Visual Basic”

img1

将以下代码复制到工作表模块中

Sub trimspace（）

Dim c作为范围，rngConstants作为范围

关于错误继续Next

设置rngConstants = ActiveSheet.UsedRange.SpecialCells（2，2）

发生错误时转到0

如果不是rngConstants没有，那么

‘优化性能

Application.ScreenUpdating = False

Application.Calculation = xlCalculationManual

‘修剪单元格，包括字符160

对于rngConstants中的每个c

c.Value = Trim $（Application.Clean（Replace（c.Value，Chr（160），“”））））

下一个c

‘重置设置

Application.ScreenUpdating =真

Application.Calculation = xlCalculationAutomatic

如果

结束

结束子

img2

  • 这将删除所有空格。

注意：上面的宏将仅在活动表上运行。

这样，我们可以使用VBA代码最后删除尾随空格。

image 4