等效于VBA TRIM函数Excel和工作表函数

Question

我知道TRIM函数作为工作表函数和VBA函数返回不同的结果：

• 工作表函数从文本字符串中删除所有空格，但单词之间的单个空格除外
• 而VBA功能仅删除前导和尾随空格。

有一种方法可以使用工作表函数来模拟VBA行为，而无需自定义VBA函数？

Answer 1

仅使用工作表函数，您可以在A1中尝试使用此文本字符串：

=REPLACE(LEFT(A1,MATCH(2,1/(MID(A1,MMULT(ROW(INDIRECT("1:"&LEN(A1))),1),1)<>" "))),1,FIND(LEFT(TRIM(A1)),A1)-1,"")

由于缺少字符串反向工作表函数，因此查找不是空格的最后一个字符的位置并不容易。

如果您不想使用VBA，则使用Data | Text to Columns和以下选项会更简单：

1. 固定宽度
2. 没有断线
3. 目的地：B1

这也会删除前导和尾随空格。

Answer 2

工作表函数从文本字符串中删除所有空格，但单词之间的单个空格除外

不，并非完全正确：)工作表TRIM函数不会删除不间断空格字符（   ）。 要删除不间断的空格字符，您可以使用另一个名为CLEAN()函数。

如果要在VBA中使用工作表功能Trim ，则可以像这样使用它

Application.WorksheetFunction.Trim(Range("A1").Value)

在Excel工作表中，您可以使用=TRIM()

Answer 3

您可以在VBA中编写一个可以在工作表中引用的函数。

例如：

Public Function MyTrim(text As String) As String    
    MyTrim = Trim(text)    
End Function

然后在工作表中，假设要修剪的文本位于单元格A1中：

=MyTrim(A1)