PTT數位生活區 / Visual_Basic

[VBA ] 資料剖析FieldInfo的問題

看板Visual_Basic作者 (jessie)時間3年前 (2021/11/12 22:28), 3年前編輯推噓1(1推 0噓 3→)
留言4則, 1人參與, 3年前最新討論串1/1
想請教一下，因為想要用儲存格的值來改資料剖析的寬度 但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://www.ptt.cc/bbs/Visual_Basic/M.1636727293.A.E66.html ※ 編輯: gn01106472f (220.137.225.10 臺灣), 11/12/2021 23:37:23
推
11/15 23:29, 3年前 , 1F
放棄這種錄法 改用正常自己寫 用split去切
11/15 23:29, 1F
→
11/15 23:29, 3年前 , 2F
順便給你找最後一列的寫法
11/15 23:29, 2F
→
11/15 23:29, 3年前 , 3F
f = Columns("A:G").Find("*", , -4163, , 1, 2).Row
11/15 23:29, 3F
→
11/15 23:30, 3年前 , 4F
因為你後面好像還有其他需求要跑
11/15 23:30, 4F
‣ 更多 gn01106472f 的文章
文章代碼(AID): #1XZddzvc (Visual_Basic)
Visual_Basic 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 gn01106472f 的文章
文章代碼(AID): #1XZddzvc (Visual_Basic)