12
返回列表 上一主題 發帖

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

chiata

帖子
41 
主題
11 
精華
0 
積分
83 
點名
0  
作業系統
windows 
軟體版本
xp 
閱讀權限
20 
註冊時間
2012-12-20 
最後登錄
2019-12-17 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-2-1 13:24 | 只看該作者

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

請教各位前輩
Selection.TextToColumns
其中Selection似乎一定要是range，那有辦法直接對陣列變數進行資料剖析嗎?

ex:dim A(3) as double
A(0)="1,2,3"
想不透過sheet把資料剖析成A(1)=2、A(2)=2、A(3)=3
有辦法這樣做嗎?

謝謝
收藏 分享

Hsieh

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

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 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
學海無涯_不恥下問

TOP

chiata

帖子
41 
主題
11 
精華
0 
積分
83 
點名
0  
作業系統
windows 
軟體版本
xp 
閱讀權限
20 
註冊時間
2012-12-20 
最後登錄
2019-12-17 
3#
發表於 2013-2-4 13:40 | 只看該作者
回復 2# Hsieh


謝謝H大，應該說我會輸入一筆資料，此資料可能有兩種形態，第一種是純數字；ex:1 or 5 ...，第二種是字串；ex:1,3,5，
如果資料是字串的話我就用把它分割後丟進陣列裡，原本我會把它丟入某個儲存格中，在使用資料剖析(TextToColumns)做分割後再讀進陣列中，
之後計算就直接用陣列，不會使用到儲存格。
現在使用Split就可以不用資料剖析跟儲存格達到相同效果了!謝謝。

TOP

chiata

帖子
41 
主題
11 
精華
0 
積分
83 
點名
0  
作業系統
windows 
軟體版本
xp 
閱讀權限
20 
註冊時間
2012-12-20 
最後登錄
2019-12-17 
4#
發表於 2013-2-5 13:37 | 只看該作者
回復 2# Hsieh

而Split方法後的陣列元素，其資料型態則一律為String(字串)




如上圖，似乎使用Split後bb還是字串型態而不是陣列?
且使用val也不法將其改成數字型態，要換一個變數才能用val改成數字型態。
雖然說字串也能做數學運算就是了。

TOP

Hsieh

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

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
5#
發表於 2013-2-5 15:56 | 只看該作者
回復 4# chiata

在2#回覆中已經說明SPLIT所得到的是字串型態的陣列
而陣列無法改變其資料型態，唯有以另一資料型態陣列儲存才可改變元素的資料型態
  1. Sub ex()
  2. Dim ar()
  3. a = "1,3,5,7,9"
  4. bb = Split(a, ",")
  5. ReDim ar(UBound(bb))
  6. For i = 0 To UBound(bb)
  7. ar(i) = CDbl(bb(i))
  8. MsgBox ar(i) & "  IS  " & TypeName(ar(i))
  9. Next
  10. End Sub
複製代碼
學海無涯_不恥下問

TOP

chiata

帖子
41 
主題
11 
精華
0 
積分
83 
點名
0  
作業系統
windows 
軟體版本
xp 
閱讀權限
20 
註冊時間
2012-12-20 
最後登錄
2019-12-17 
6#
發表於 2013-2-5 16:24 | 只看該作者
回復 5# Hsieh

謝謝，我理解了!
剛剛使用發現字串可以運算，但不能做<、=、>等判斷，只能要判斷時使用val或是像H大所說的存成另一個陣列來使用。

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
7#
發表於 2013-2-5 16:36 | 只看該作者
本帖最後由 GBKEE 於 2013-2-5 16:37 編輯

回復 6# chiata
使用發現字串可以運算，但不能做<、=、>等判斷
  1. Option Explicit
  2. Sub Ex()
  3.     Dim A As String, B As Variant
  4.     A = "A5"
  5.     B = "10"
  6. '    MsgBox A * B   '** VBA 傳回: 錯誤值13  "型態不符合"
  7.     If IsNumeric(A) And IsNumeric(B) Then MsgBox A * B Else MsgBox "型態不符合"
  8.     A = "5"
  9.     B = "10"
  10.     If IsNumeric(A) And IsNumeric(B) Then MsgBox A * B Else MsgBox "型態不符合"
  11.     A = "1,2,3,4,5,6,7,8,9,10"
  12.     B = Split(A, ",")
  13.     MsgBox B(0) * B(UBound(B))
  14.     MsgBox B(0) < B(UBound(B))  '1 < 10 =True
  15.     MsgBox B(0) > B(UBound(B))  '1 > 10 =False
  16.     MsgBox B(0) = B(UBound(B))  '1 = 10 =False  
  17.     A = "1,2,3,4,5,6,7,8,9,A10"
  18.     B = Split(A, ",")
  19.     MsgBox B(0) * B(UBound(B))    '** VBA 傳回: 錯誤值13  "型態不符合"
  20. End Sub
複製代碼

TOP

chiata

帖子
41 
主題
11 
精華
0 
積分
83 
點名
0  
作業系統
windows 
軟體版本
xp 
閱讀權限
20 
註冊時間
2012-12-20 
最後登錄
2019-12-17 
8#
發表於 2013-2-8 14:10 | 只看該作者
回復 7# GBKEE
  1. Sub test()

  3.     For t = 1 To 110
  4.         If t <= "10" Then MsgBox t
  5.     Next t
  6.    
  7. End Sub
  8. Sub test2()

  10.     For t = 1 To 110
  11.         If t <= Val("10") Then MsgBox t
  12.     Next t
  13.    
  14. End Sub
複製代碼
小弟遇到的問題...test只有t=1跟10會跳msgbox出來，test2就t=1~10都會跳，不知道是哪邊出問題...
謝謝

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
9#
發表於 2013-2-9 15:24 | 只看該作者
回復 8# chiata
你沒有宣告 變數t的型態為數字,vba將視為 字串的對字串的比對
  1. Option Explicit         '強制需宣告變數
  2. Sub test()
  3.     Dim t As Integer
  4.     For t = 1 To 110
  5.         If t <= "15" Then MsgBox t
  6.     Next t   
  7. End Sub
  8. Sub test2()
  9.     Dim t As Variant  ' Variant 資料型態是所有沒被明確宣告為其他型態  **等同沒有宣告變數***
  10.     For t = 1 To 110
  11.         If t <= "10" Then MsgBox t & " <= 10"
  12.         If t <= "20" Then MsgBox t & " <= 20"
  13.         If t <= "30" Then MsgBox t & " <= 30"
  14.     Next t
  15. End Sub
複製代碼

TOP

chiata

帖子
41 
主題
11 
精華
0 
積分
83 
點名
0  
作業系統
windows 
軟體版本
xp 
閱讀權限
20 
註冊時間
2012-12-20 
最後登錄
2019-12-17 
10#
發表於 2013-2-9 16:23 | 只看該作者
回復 9# GBKEE


   

謝謝G大，新年快樂，
圖中Variant/Integer不是代表此變數目前是Integer的狀態嗎？
我以為Variant是先埠指定變數型態，待程式執行後會自動判斷此變數合適型態，例如integer、string...等，使用上比較有彈性。
還是我觀念錯誤？？

TOP

        靜思自在 : 要比誰更受誰．不要比誰更怕誰。
12
返回列表 上一主題