作者gn01106472f (jessie)
看板Visual_Basic
标题[VBA ] 资料剖析FieldInfo的问题
时间Fri Nov 12 22:28:09 2021
想请教一下，因为想要用储存格的值来改资料剖析的宽度
但FieldInfo:=改用变数後就没办法使用...
把概念改成简单一点也没办法使用，巨集码如下
想请大家帮忙看一下是什麽问题，感谢大家!!
Dim ARR(5) As Variant
ARR(5) = "Array(Array(0, 1), Array(2, 1))"
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth,
_
FieldInfo:=ARR(5), TrailingMinusNumbers:=True '不能用
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth,
_
FieldInfo:=Array(Array(0, 1), Array(2, 1)), TrailingMinusNumbers:=True
'可以用
自问自答一下，刚发现是双引号造成系统认为是字串所以没办法用，想请问要如何改才可
以让系统从储存格中辨认要切分的规则呢？
例如B2的值为（0,1），B3的值为（2,1)
目前只有想到用字串&的方式把它们串起来
还有什麽方式可以把它们连结起来呢？
谢谢大家
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 220.137.225.10 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1636727293.A.E66.html
※ 编辑: gn01106472f (220.137.225.10 台湾), 11/12/2021 23:37:23
1F：推 waiter337: 放弃这种录法 改用正常自己写 用split去切 11/15 23:29
2F：→ waiter337: 顺便给你找最後一列的写法 11/15 23:29
3F：→ waiter337: f = Columns("A:G").Find("*", , -4163, , 1, 2).Row 11/15 23:29
4F：→ waiter337: 因为你後面好像还有其他需求要跑 11/15 23:30