Excel-VBA – 将列中的数据格式化为分隔符

需要帮助将Col D“Delimited”从单元格D2转换为Col D中最后一个非空格的单元格。 我用loggingmacros试图窃取代码，但似乎并没有工作。 任何人都可以解释如何编辑这个代码，以便它可以工作或提供一个新的代码，做我所问。

Sub Delimit () Selection.TextToColumns Destination:=Columns("D"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _ :=Array(1, 1), TrailingMinusNumbers:=True End Sub 

Answer 1

 Sub Delimit() With Workbooks("Workbook Name") With .Sheets("Your Sheet Name Here") .Range("d2:" & .Range("d" & .Rows.Count).End(xlUp).Address).TextToColumns Destination:=.Range("D2"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _ :=Array(1, 1), TrailingMinusNumbers:=True End With End With End Sub