使用带有拆分到文本功能的修剪

Posted 2023-04-13

【中文标题】使用带有拆分到文本功能的修剪

【英文标题】：Using Trim with Split to Text function

【发布时间】：2016-10-25 17:50:14

【问题描述】：

    Selection.TextToColumns Destination:=ActiveCell, DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1)), TrailingMinusNumbers:=True

有没有办法使用 Trim 来消除我分成列的信息的尾随空格？这是我用于 Spilled to Columns 函数的宏的部分代码。第一个计时器。谢谢。

【问题讨论】：

简而言之，没有。事后只需修剪生成的单元格。

【参考方案1】：

修剪数据的最快方法是将其加载到数组中，修剪数组的每个元素，然后将其写回原始数据。

Sub TrimSelection()
    Dim Data, v
    Dim x As Long, y As Long
    Data = Selection.CurrentRegion.Value

    For x = 1 To UBound(Data, 1)
        For y = 1 To UBound(Data, 2)
            Data(x, y) = Trim(Data(x, y))
        Next
    Next

    Selection.CurrentRegion.Value = Data

End Sub