文本到列不同 Sheet

Question

我正在尝试从一个 sheet 到另一个列的文本，下面的代码没有将数据从活动的 sheet 复制到目标...我是使用宏生成的代码

Private Function ConvertText(rngSource As Range)

    rngSource.TextToColumns Destination:=Sheets("Consolidated_Data").Range("V3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True

End Function

Answer 1

它出现的文本到列方法不能用于从一个 sheet 到另一个，i.e.the 目标必须在源数据 sheet 上。虽然我在文档中找不到这一点。

因此您需要添加一些代码，将您的 sourceRange 值放入目标 sheet 中，位于您要将数据拆分为列的范围的左上角，即 "V3"。

Sheets("Consolidated_Data").Range("V3") = sourceRange 'resize the Range V3 to size of sourceRange 
Sheets("Consolidated_Data").Range("V3").TextToColumns

文本到列不同 Sheet

Text to Column to Different Sheet

excel

vba

text-to-column