excel - 使用 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

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

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 仅删除了前导和尾随空格(无论如何，您已经涵盖了这一点)。