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

【问题标题】：Excel-VBA - Format data in Column to DelimitedExcel-VBA - 将列中的数据格式化为分隔
【发布时间】：2016-09-01 20:38:42
【问题描述】：

需要帮助将 Col D 从单元格 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

【问题讨论】：

标签： excel delimited vba

【解决方案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

【讨论】：

你有什么线路错误？您输入工作表名称了吗？
尝试更新。可能是您的工作表不完全合格。只需输入工作簿名称。如果不是这样，请回帖。
其实，现在试试 :)。我看到了我的错误。