使用一次之后，Range.TextToColumns的输出不一致

2024-04-27 • 问答

我从另一个应用程序中粘贴了一个范围，每行中都有空格。我使用Range.TextToColumns将输出分隔到单独的列。除非我使用了一次，但下次复制该范围时，它已经很好地分开了，它可以正常工作。结果是我的macro的输出不一致。我可以添加一个IF来解决它，但这很丑陋。正在设置某些参数并影响第二次迭代。我想在macro的顶部重置该参数，但是我无法找到它的含义。谁能告诉我该参数是什么？

在对象浏览器中搜索TextToColumns，在“成员”窗格中将其突出显示，然后单击F1。这样您将获得有关具有所有参数的主题的MS帮助。

示例来自：https://www.ozgrid.com/forum/forum/help-forums/excel-general/70907-reset-text-to-columns-delimiter-in-vba

Sub ResetText2ColumnsDelimiter()

    Dim rngEmptyCell As Range

    On Error Resume Next
    Set rngEmptyCell = ActiveSheet.Cells.SpecialCells(xlCellTypeBlanks).Cells(1,1)
    rngEmptyCell.Value = "ABC"
    rngEmptyCell.TextToColumns Destination:=rngEmptyCell,_
                               DataType:=xlDelimited,TextQualifier:=xlDoubleQuote,_
                               ConsecutiveDelimiter:=False,Tab:=True,_
                               Semicolon:=False,Comma:=False,Space:=False,_
                               Other:=False,FieldInfo:=Array(1,1),TrailingMinusNumbers:=True
    rngEmptyCell.Clear

End Sub

使用一次之后，Range.TextToColumns的输出不一致

miyavi16 回答：使用一次之后，Range.TextToColumns的输出不一致

大家都在问