-1

我正在尝试将文本从一张纸转移到另一张纸上，而下面的代码没有将活动纸上的数据复制到目的地...我正在使用从宏生成的代码

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
4

1 回答 1

2

它出现的 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
于 2017-10-11T20:11:59.787 回答