0

我有一个问题，我目前正在尝试解决。它涉及在 excel 文件中转换格式，这让我抓狂。

将原始数据从 excel 导入另一个 excel

现在我找到了一种我乐观地认为它可以解决问题的方法。要“修复”它，我正在使用“行中的文本”功能-> 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/

4

1 回答 1

0

如何在 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
于 2013-07-24T08:58:17.850 回答