Excel-VBA：如何改進該代碼（范圍內的行中文本功能）

Question

我目前有一個要解決的問題。 它涉及到在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/

Answer 1

如何在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