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

[發問] Split截取字元問題請教

rouber590324

高中生 Rank: 3 Rank: 3

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

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

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2020-4-15 11:29 | 只看該作者

[發問] Split截取字元問題請教

DEAR ALL 大大
1. 圖一字串使用
Sub aaaaaaaaaaa()
Sheet1.Cells(1, 2) = Split(Sheet1.Cells(1, 1), "Y")(1)
End Sub
會抓取 Y後字串 -00788021
2.問題點
小弟想抓取 X 與 Y中間之字串 -01062550
該如何修改
3.煩不吝賜教 THANKS*10000

圖一
X-01062550Y-00788021

樓主熱帖

羅

rouber590324

高中生 Rank: 3 Rank: 3

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

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

5^#

發表於 2020-4-15 13:06 | 只看該作者

DEAR 准大
1.感謝回復.
Sheet1.Cells(1, 2) = "-" & REPLACE(Split(Sheet1.Cells(1, 1), "-")(1),"Y","")
OK  100%符合需求
2.您建議之MID因長度不同
如下我需  MID+SEARCH 方可達成需求 THANKS*10000

  Sheets("" & Sheet1.Range("A1") & ".nd").Cells(Y + 1, 7) = Mid(Sheets("" & Sheet1.Range("A1") & ".nd").Cells(M, 1), 2, Application.Search("Y", Sheets("" & Sheet1.Range("A1") & ".nd").Cells(M, 1)) - 2)

羅

TOP

准提部林