作者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/m.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