使用修剪與拆分到文本功能

Question

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函數的宏代碼的一部分。第一個計時器謝謝。

Answer 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