[VBA ] 資料剖析FieldInfo的問題

作者: gn01106472f (jessie)   2021-11-12 22:28:09
想請教一下,因為想要用儲存格的值來改資料剖析的寬度
但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)
目前只有想到用字串&的方式把它們串起來
還有什麼方式可以把它們連結起來呢?
謝謝大家
作者: waiter337 (給開司一罐蘇格登)   2021-11-15 23:29:00
放棄這種錄法 改用正常自己寫 用split去切順便給你找最後一列的寫法f = Columns("A:G").Find("*", , -4163, , 1, 2).Row因為你後面好像還有其他需求要跑

Links booklink

Contact Us: admin [ a t ] ucptt.com