在VBA中对选定的单元格执行修剪功能

Question

我试图找出是否有一种方法可以在Excel宏中运行一个简单的函数(TRIM去除重复的空格字符),因此它直接在单元格上执行,所以我不必创建一个额外的列TRIM前一列的功能.

它应该适用于选定的列或仅选定的单元格

Sub trim()

 ActiveCell.FormulaR1C1 = "=trim(R1C1)"

End Sub

Answer 1

尝试一下:

Sub TrimAndFit()
    Dim r As Range

    With Application.WorksheetFunction
    For Each r In Intersect(Selection, ActiveSheet.UsedRange)
        r.Value = .Trim(r.Value)
    Next r
    End With
End Sub

这适用于所有Select ed单元格.我们Intersect()用来提高性能.