Excel-VBA：如何改进该代码（范围内的文本行功能）

Question

我有一个问题，我现在正试图解决。 它涉及转换excel文件中的格式，这让我发疯。

Import raw data from excel into another excel

现在我找到了一种方式，我乐观地认为它可以解决问题。 要“修复”它我正在使用“行中的文字”功能 - ＆gt;因为VBA记录为

   Selection.TextToColumns Destination:=range("A1"), DataType:=xlDelimited, _
    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
    Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
    :=Array(1, 1), TrailingMinusNumbers:=True

我已经了解到，可以使用此代码修复一行但不能同时修复多行。 现在我想知道，这个代码如何改进，它一次修复了一个范围（“A7”，“DR621”）。

如果有人能帮助我并指出我正确的方向，我会很高兴。

提前致谢 亚瑟

编辑：排序错误为截图

http://www.xup.in/dl,78038715/date_wrong_sorting.jpg/

Answer 1

How to parse data using the Text To Columns command in Excel

  

您转换的范围可能包含很多行，但您一次只能转换一列数据。

您可以像这样循环列（示例偏移量是同一张纸上的5列）：

For Each c In Selection.Columns
   c.TextToColumns Destination:=Cells(c.Row, c.Column + 5), DataType:=xlDelimited, _
    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
    Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
    :=Array(1, 1), TrailingMinusNumbers:=True
Next