文本到列将覆盖列

我得到了与VBA另一个问题。 我用TexttoColumns Sub来分隔我的列中的每个单元格。 现在我想插入列之后，应该包含分隔值。 这一切在一开始都工作得很好，但是现在它突然不会插入新的单元格，而是覆盖旧的单元格。

示例（希望）：

Row1 Row2 Row3 Tree;PC;House |Data1 |Data2 --> Tree|PC|House|Data1|Data2 

示例（如何）：

 Tree;PC;House|Data1|Data2 --> Tree|PC|House Workbooks(Ziel).Worksheets(Zieltab).Columns(Spalte).TextToColumns Destination:=Columns(Spalte), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _ Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _ :=Array(Array(1, 2), Array(2, 2)) 

Answer 1

Range.TextToColumns方法不插入列。 如果允许继续，它将总是覆盖数据。

 With Workbooks(Ziel).Worksheets(Zieltab).Columns(Spalte) 'insert two columns to the right .Cells(1).Resize(1, 2).Offset(0, 1).EntireColumn.Insert 'split the first column into itself and the two new column .TextToColumns Destination:=.Cells(1), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _ Semicolon:=True, Comma:=False, Space:=False, Other:=False, _ FieldInfo:=Array(Array(1, 2), Array(2, 2), Array(3, 2)) End With