Excel-VBA - 将列中的数据格式化为定界

Question

需要帮助制作 Col D "Delimited" 从单元格 D2 到 Col D 中最后一个非空白的单元格。我使用 Record Macro 试图窃取代码，但它似乎不起作用。任何人都可以解释如何编辑此代码以使其工作或提供一个新代码来完成我所要求的。

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

Excel-VBA - 将列中的数据格式化为定界

Excel-VBA - Format data in Column to Delimited

excel

vba

delimited