Excel-VBA - Formatieren von Daten in Spalte zu Getrennt

Question

Hilfe, die Col D "Delimited" von Zelle D2 zu der letzten Zelle in Spalte D, die nicht leer ist, macht. Ich habe mit dem Record Macro versucht, den Code zu stehlen, aber es scheint nicht zu funktionieren. Kann jemand erklären, wie man diesen Code redigiert, damit er funktioniert oder einen neuen Code zur Verfügung stellt, der tut, was ich frage.

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