Question

所以，我有一个表格，在分隔文本的底部粘贴了新的分号文本，这些文本已根据';'分隔。

到目前为止，我使用过滤器来过滤掉C列中的空白（因为新的粘贴文本在C列中没有任何内容），然后在B列中我执行文本到列。但是，即使是过滤器隐藏的行，这也会对C，D，E，F中的所有数据进行过度保护。

如何在不覆盖预先存在的信息的情况下执行文本到列，即使它已被过滤掉并且在显示的行之间不存在。

到目前为止：

   With ActiveSheet
    .AutoFilterMode = False
    .Range("A1:F1").AutoFilter field:=3, Criteria1:=""
    Range("A1").Select
    ActiveCell.Offset(1, 0).Range("B1").Select
    ActiveCell.Select

    Range(Selection, Selection.End(xlDown)).Select
    Selection.texttocolumns Destination:=ActiveCell, DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 4), TrailingMinusNumbers:=True
   ActiveWindow.SmallScroll Down:=-21

    .AutoFilterMode = False
    .Range("A1:F1").AutoFilter field:=3, Criteria1:="<>"
End With

非常感谢你的帮助。

Answer 1

destination:=Range(?)

?是您要放置转换后生成的数据的新单元格位置。然后你就不会删除任何原始数据。

过滤和文本到列

1 个答案: