麻辣家族討論版版 » Excel程式區 » 擷取符合條件的字串文字

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

[發問] 擷取符合條件的字串文字

中學生 Rank: 2

帖子: 42
主題: 9
精華: 0
積分: 64
點名: 0
作業系統: WINDOW7
軟體版本: OFFICE2003
閱讀權限: 20
性別: 男
註冊時間: 2011-9-3
最後登錄: 2013-6-10

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2011-11-23 22:17 | 只看該作者

[發問] 擷取符合條件的字串文字

本帖最後由 loyyee 於 2011-11-24 22:28 編輯

請問各位大大，如何由檔案中"A欄"字串中，擷取符合條件的字串文字於"B~D欄"

擷取符合條件字串.rar (4.26 KB)

樓主熱帖

收藏

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

2^#

發表於 2011-11-23 23:52 | 只看該作者

回復 1# loyyee

擷取符合條件字串.zip (10.46 KB)

中學生 Rank: 2

帖子: 42
主題: 9
精華: 0
積分: 64
點名: 0
作業系統: WINDOW7
軟體版本: OFFICE2003
閱讀權限: 20
性別: 男
註冊時間: 2011-9-3
最後登錄: 2013-6-10

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2011-11-24 00:23 | 只看該作者

擷取符合條件的字串文字

回復 2# register313

可以用了，感謝您~

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2011-11-24 08:09 | 只看該作者

回復 2# register313
簡化一下

Sub Ex()
Dim R As Range
Range("B2:D500").ClearContents
For Each R In Range("a2:a500")
If InStr(R, "OO") And InStr(R, "PP") Then
R.Offset(0, 3).Value = "OO+PP"
ElseIf InStr(R, "OO") Then
R.Offset(0, 1).Value = "OO"
ElseIf InStr(R, "PP") Then
R.Offset(0, 2).Value = "PP"
End If
Next
End Sub

複製代碼

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

5^#

發表於 2011-11-24 08:36 | 只看該作者

回復 4# GBKEE

感謝版大
小弟只會VBA的簡單語法每次程式碼總是寫很長
學會更多語法可讓程式碼易於閱讀也節省時間
希望還有機會讓版大指導

中學生 Rank: 2

帖子: 42
主題: 9
精華: 0
積分: 64
點名: 0
作業系統: WINDOW7
軟體版本: OFFICE2003
閱讀權限: 20
性別: 男
註冊時間: 2011-9-3
最後登錄: 2013-6-10

論壇榮譽勳章論壇贊助勳章

6^#

發表於 2011-11-24 22:34 | 只看該作者

回復 4# GBKEE

感謝版大與register313熱心解答。

再延伸問題:如果"A欄"、"B欄"有二個不同字串，
要在"E欄"擷取符合條件的字串文字時，該如何修改巨集?

擷取符合條件字串-2.rar (4.39 KB)

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

7^#

發表於 2011-11-24 23:48 | 只看該作者

回復 6# loyyee

倏改GBKEE版大之"擷取符合條件的字串"程式而來

擷取符合條件字串-2.zip (8.35 KB)

中學生 Rank: 2

帖子: 42
主題: 9
精華: 0
積分: 64
點名: 0
作業系統: WINDOW7
軟體版本: OFFICE2003
閱讀權限: 20
性別: 男
註冊時間: 2011-9-3
最後登錄: 2013-6-10

論壇榮譽勳章論壇贊助勳章

8^#

發表於 2011-11-25 00:09 | 只看該作者

回復 7# register313

感謝，給您一個讚啦!

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

9^#

發表於 2011-11-25 08:29 | 只看該作者

本帖最後由 GBKEE 於 2011-11-25 08:31 編輯

回復 7# register313
另一寫法

Sub Ex()
Dim AR, R As Range, S , E
Range("E2:E500").ClearContents
AR = Split(Mid(Replace([E1], "之製程", ""), 2), "、")
For Each R In Range("A2:A500")
S = Split(R & "，" & R.Offset(0, 1), "，")
For Each E In S
If Not IsError(Application.Match(E, AR, 0)) Then
R.Offset(0, 4) = R.Offset(0, 4) & IIf(R.Offset(0, 4) = "", "", "+") & E
End If
Next
Next
End Sub

複製代碼

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

10^#

發表於 2011-11-25 09:17 | 只看該作者

回復 9# GBKEE

感謝GBKEE版大
這次使用了Split Mid Replace Match...函數

靜思自在 : 有心就有福，有願就有力，自造福田，自得福緣。

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