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

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

rouber590324

高中生 Rank: 3 Rank: 3

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

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

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

高中生 Rank: 3 Rank: 3

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

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

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

GBKEE