トリムをテキストに分割する機能を使用する

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 

トリムを使用して列に分割された情報の末尾のスペースを削除する方法はありますか？ここでは、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