使用 Application.WorksheetFunction.Trim 修剪一系列单元格

Question

我正在尝试使用Application.WorksheetFunction.Trim 修剪一系列单元格。我正在尝试定义我的范围，但出现类型不匹配错误

我创建了 Dim 并设置了我的范围并为函数创建了一个变量。

Dim rng As Range
Dim myanswer

Set rng = ActiveSheet.Range("T2:T10")
myanswer = Application.WorksheetFunction.Trim(rng)

这是我的另一个代码

Dim rng As Range
Dim LastRow As Long

LastRow = Cells(Rows.Count, "T").End(xlUp).Row
Set rng = Range("T2:T" & LastRow)

Application.WorksheetFunction.Trim (rng)

我希望它修剪每个单元格以消除多余的空格。

也试过用这个，但内存不足。

rng = Application.WorksheetFunction.Trim(Cells.Value)

Answer 1

Trim() 需要字符串参数。 Application.WorksheetFunction.Trim (rng) 中的参数是一个 Range，只有当该范围由单个单元格组成时，才能解析为字符串。

到Trim()给定范围内的所有单元格，它们应该被循环：

Public Sub TestMe()

    Dim myCell As Range
    For Each myCell In Worksheets(1).Range("A1:A5")
        myCell = WorksheetFunction.Trim(myCell)
    Next myCell

End Sub

Answer 2

您的代码不起作用，因为您需要遍历每个单元格，您不能一次完成所有操作

Dim rng As Range, r as range
Dim myanswer

Set rng = ActiveSheet.Range("T2:T10")
for each r in rng    
     r.value=Application.WorksheetFunction.Trim(r)
next r

您可以使用 Evaluate 避免循环

Sub x()

Dim r As Range

Set r = Range("T2:T10")

r = Evaluate("IF(" & r.Address & "="""","""",TRIM(" & r.Address & "))")

End Sub

请注意，工作表函数 TRIM 删除了多余的内部空格，而 VBA Trim 只删除了前导和尾随空格（无论如何你都已经涵盖了）。