如何刷新文本到列函数vba的设置

我有一个有几个function的文件。 其中之一将文本分为选定范围的列：

Sub txt2clmns() Dim rng As Range Set rng = [i5] Set rng = Range(rng, Cells(Rows.Count, rng.Column).End(xlUp)) rng.TextToColumns _ Destination:=Range("J5"), _ DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=False, _ Tab:=True, _ Semicolon:=True, _ Comma:=False, _ Space:=False, _ Other:=False rng.TextToColumns _ Destination:=rng, _ DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=False, _ Tab:=True, _ Semicolon:=False, _ Comma:=False, _ Space:=False, _ Other:=False End Sub 

是否有更简单的方法来刷新文本到列function的设置，而不用第二次使用标准参数（仅选中选项卡checkbox）？

因为如果我仅仅调用它一次，Excel会直接将它们直接粘贴到公式选项卡中，并以分号自动划分所有string。

感谢您的任何帮助。

Answer 1

我认为在macros的开始处有一个简单的消息框，允许用户select是否将Tab设置为true，这样做会有效：

 Dim TabBool As Boolean 'if user selects Yes on the form, then result value is 6 TabBool = ( MsgBox("Should Tab parameter be set to True?", vbYesNo) = 6 ) 

然后使用它： Tab:=TabBool