Question

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

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

它出现的text to columns方法不能在一张纸上使用，即目的地必须在源数据表上。虽然我在文档中找不到这一点。

因此，您需要添加一些代码，将您的sourceRange值放入要将数据拆分为列的左上角的目标工作表中，即“V3”。

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

列到不同工作表的文本

1 个答案: