返回列表 上一主題 發帖

[發問] 頗析至列之方式尋問

rouber590324

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

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

[發問] 頗析至列之方式尋問

dear all 大大
1.range("a1")=圖一內容方式 以*分隔 資料有 6000*
1.1 以頗析條件*方式將資料頗析至欄秀出超出欄位.部份資料無法齊全.
2.請教如何用 vba 將圖一資料以*為條件.將資料頗析至列.
3.煩不吝賜教   thanks*10000
圖一
D02*D10*X3947Y2189D03*D02*D10*X3965Y224D03
收藏 分享
羅

rouber590324

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

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
2#
發表於 2017-7-11 10:10 | 顯示全部帖子
DEAR ALL 大大 -
已找到答案如下  THANKS*10000

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
羅

TOP

rouber590324

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

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
3#
發表於 2017-7-13 08:48 | 顯示全部帖子
感謝GBKEE大大指導-100%符合需求
羅

TOP

        靜思自在 : 能付出愛心就是福，能消除煩惱就是慧。
返回列表 上一主題