資料剖析(TextToColumns)對象可以不是儲存格嗎? - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 資料剖析(TextToColumns)對象可以不是儲存格嗎?

返回列表下一主題上一主題發帖

資料剖析(TextToColumns)對象可以不是儲存格嗎?

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 106
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-5-3

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2013-2-1 14:45 | 顯示全部帖子

回復 1# chiata

陣列並不需要剖析即可直接寫入儲存格內
若你的意思是要將包含特定分隔符號的一維陣列中的陣列元素分隔後變成二維陣列寫入儲存格
那麼必須利用迴圈，將原陣列每個元素使用Split方法分割後寫入
若分割後的二維陣列，其每一列的元素個數不同，則必須一列一列的寫入
若分割後的二維陣列，其每一列的元素個數相同，則可以一次的將整個二維陣列透過2次的Application.Transpose寫入
而Split方法後的陣列元素，其資料型態則一律為String(字串)
大致上的程序結構如下
For i=Lbound(a) to Ubound(a) '原陣列迴圈
ar=Split(a(i),",") '逗點分割陣列元素，產生新的一維陣列
Cells(i+1,1).Resize(,Ubound(ar)+1)=ar '將一維陣列寫入
Next

學海無涯_不恥下問

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 106
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-5-3

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2013-2-5 15:56 | 顯示全部帖子

回復 4# chiata

在2#回覆中已經說明SPLIT所得到的是字串型態的陣列
而陣列無法改變其資料型態，唯有以另一資料型態陣列儲存才可改變元素的資料型態

Sub ex()
Dim ar()
a = "1,3,5,7,9"
bb = Split(a, ",")
ReDim ar(UBound(bb))
For i = 0 To UBound(bb)
ar(i) = CDbl(bb(i))
MsgBox ar(i) & " IS " & TypeName(ar(i))
Next
End Sub

複製代碼

學海無涯_不恥下問

靜思自在 : 【時間無法遮擋】怕時間消逝，花了許多心血，想盡各式方法要遮擋時間，結果是：浪費了更多時間，且一無所成！

返回列表下一主題上一主題