PTT數位生活區 / Office

[問題] cells 複數回傳問題

看板Office作者 (烤鴨)時間7年前 (2018/08/10 11:04), 編輯推噓0(0推 0噓 3→)
留言3則, 1人參與, 7年前最新討論串1/1
版本:2010 excel Sub fourFATNOcombine() ' Dim Out As Variant For n = 3 To 2000 If Cells(n, 2) <> "" Then Out = Array(Cells(n, 146), Cells(n, 245)) 這一段我要146吃到245可是不知道怎麼表達 ub = UBound(Out) For i = 0 To ub If Out(i) <> "" Then: OutAll = OutAll & "/" & Out(i) Next Cells(n, 9) = Mid(OutAll, 2, 999) OutAll = "" End If Next 感謝大大協助 ----- Sent from JPTT on my Samsung SM-G950F. -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 49.214.65.93 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1533870259.A.A82.html
→
08/10 11:15, 7年前 , 1F
array改為range
08/10 11:15, 1F
→
08/10 11:22, 7年前 , 2F
讀入會是二維陣列，要ubound回傳維度的最大方面，要指定2
08/10 11:22, 2F
→
08/10 11:24, 7年前 , 3F
其他用到變數Out的維度寫法也要調整
08/10 11:24, 3F
‣ 更多 SEEKME 的文章
文章代碼(AID): #1RRG2pg2 (Office)
Office 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 SEEKME 的文章
文章代碼(AID): #1RRG2pg2 (Office)