返回列表 上一主題 發帖

[發問] 儲存格資料拆開問題尋問

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-5-6 11:50 | 顯示全部帖子

[發問] 儲存格資料拆開問題尋問

DEAR ALL 大大
1.如圖一 為 於 B欄秀出  A1儲存格內以 ","為 KEY 將 儲存格資料拆開至 B欄
2.請問假如我 A1儲存格資料除 ","  還有 "#" 與 ";" 時該如何修改
  2.1 例 : A1= 1;2,3,4#5;6   
    2.1.1 結果   B1=1   B2=2 B3=3 B4=4  B5=5  B6=6
3.煩不吝賜教   THANKS
圖一
Sub nn()
  Dim lRow&
  Dim aR, aA
  
  aR = Split([A1], ",")
  lRow = 1
  For Each aA In aR
    Cells(lRow, 2) = aA
    lRow = lRow + 1
  Next
End Sub
收藏 分享
羅

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
2#
發表於 2015-5-7 11:37 | 顯示全部帖子
DEAR   stillfish00  大大
好方法  豁然開朗
THANKS*10000

可以用replace把 #和 ; 取代為 ,
再用 split 分開
羅

TOP

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
3#
發表於 2015-5-12 15:11 | 顯示全部帖子
DEAR gn001038600 大大
感謝您提供另一方式.我之資料剛好都是單數.THANKS*10000
羅

TOP

        靜思自在 : 有時當思無時苦，好天要積雨來糧。
返回列表 上一主題