时间戳

首页 > 解决方案 > 使用固定宽度设置将文本自动分列？

excel - 使用固定宽度设置将文本自动分列？

问题描述

我正在尝试自动化 Excel 中的文本到列功能。我想使用 Excel 在“固定宽度”设置中选择的默认设置，因为它总是为我的特定数据集选择正确的中断。当我为需要解析的 2 个不同工作表记录宏并选择默认的固定宽度设置时，宏在数组参数方面看起来非常不同。我认为必须有某种方法可以将 Excel 的默认选择用于数组参数，但似乎无法弄清楚！提前致谢！

宏1：

Sub Macro1()
'
' -Macro1 Macro

Range("B10:B46").Select
Selection.TextToColumns Destination:=Range("B10"), DataType:=xlFixedWidth, _
    FieldInfo:=Array(Array(0, 1), Array(47, 1), Array(65, 1), Array(71, 1), 
Array(90, 1), _
    Array(95, 1), Array(113, 1), Array(126, 1)), TrailingMinusNumbers:=True
ActiveWindow.SmallScroll Down:=-12
End Sub

宏2：

Sub Macro2()
' Macro2 Macro

Range("B8:B46").Select
Selection.TextToColumns Destination:=Range("B8"), DataType:=xlFixedWidth, _
    FieldInfo:=Array(Array(0, 1), Array(53, 1), Array(78, 1), Array(101, 1), 
Array(119, 1) _
    , Array(134, 1)), TrailingMinusNumbers:=True
 End Sub

标签： excelvbaparsingfixed-width

解决方案

推荐阅读