請問一下如何擷取A1儲存格中括號內的數值,並將之顯示在B1儲存格呢? - Excelㄧ般區

帖子: 72
主題: 7
精華: 0
積分: 88
點名: 0
作業系統: Windows 7
軟體版本: Office 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-6-28
最後登錄: 2018-11-14

17^# 跳轉到 »

發表於 2012-9-6 10:24 | 只看該作者

回復 16# Hsieh

HSIEN大大我試過了謝謝您!!謝謝!

只是VBA完全不熟,還蠻想搞清楚來龍去脈的~@@

是要多花點時間研讀了

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 256
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-26

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

16^#

發表於 2012-9-5 22:23 | 只看該作者

回復 15# happycoccolin

模糊比對無法達成那就用自定義函數試試

Function Dictionary(key As Range, item As Range, crt As String)
Set d = CreateObject("Scripting.Dictionary")
For i = 1 To key.Count
For Each a In Split(key(i), ",")
d(CStr(a)) = item(i).Value
Next
Next
Dictionary = d(CStr(crt))
End Function

複製代碼

學海無涯_不恥下問

happycoccolin

　暱稱: NANAKO

帖子: 72
主題: 7
精華: 0
積分: 88
點名: 0
作業系統: Windows 7
軟體版本: Office 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-6-28
最後登錄: 2018-11-14

15^#

發表於 2012-9-5 18:22 | 只看該作者

回復 6# Hsieh

Hsieh 大大請教一下~
目前我使用上遇到一個問題,利用B欄來做比對,但是若比對到例如字元為:IR10000 & R10000,會出現混淆的現象~只會抓到IR10000的值,請問要怎麼改呢?謝謝!!

Sheet1
A                                     B                C
09-87654321       IR10000       12-34567890
09-87654322       R10000       12-34567890 (應該要抓到12-34567891)
09-87654323       D1

Sheet2
A                                     B
12-34567890       R10000,R10001
12-34567891       IR10000
12-34567892       C2,D3

帖子: 233
主題: 53
精華: 0
積分: 292
點名: 0
作業系統: WinXp
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-1-6
最後登錄: 2024-3-8

論壇贊助勳章

14^#

發表於 2012-7-19 16:27 | 只看該作者

感謝Hsieh版大的指導
小弟的函數運用還在起步學習階段，相同函數多要參考多種相似運用來慢慢解析
會慢慢改進學習態度；感激Hsieh版大不吝指教

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 256
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-26

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

13^#

發表於 2012-7-19 09:04 | 只看該作者

回復 12# jackson7015
這種類似問題，其實都可以自己思考，你會發現這個問題中所用的函數不就是MID函數中，擷取長度的變化
最初的技巧只有SUBSTITUTE來將最後一個分隔符號用特定字元取代，得以判斷所需擷取的片段
接下來的變形都是MID或LEFT或RIGHT來擷取部分字串
應該徹底了解整個公式的意義才能加以運用。

學海無涯_不恥下問

帖子: 233
主題: 53
精華: 0
積分: 292
點名: 0
作業系統: WinXp
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-1-6
最後登錄: 2024-3-8

論壇贊助勳章

12^#

發表於 2012-7-19 08:24 | 只看該作者

抱歉，一直麻煩Hsieh 版大
因為想要了解，這種類似問題的相關不同排列擷取，所以才問了相似的問題
目前三種都可正常執行運用
感謝Hsieh 版大的熱心幫忙

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 256
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-26

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

11^#

發表於 2012-7-18 14:07 | 只看該作者

回復 10# jackson7015

好像是在考試唷
=LEFT(MID(SUBSTITUTE(A1,"-",";",LEN(A1)-LEN(SUBSTITUTE(A1,"-",""))),FIND(";",SUBSTITUTE(A1,"-",";",LEN(A1)-LEN(SUBSTITUTE(A1,"-",""))))+1,255),LEN(A1)-(FIND(";",SUBSTITUTE(A1,"-",";",LEN(A1)-LEN(SUBSTITUTE(A1,"-",""))))+1))

學海無涯_不恥下問

帖子: 233
主題: 53
精華: 0
積分: 292
點名: 0
作業系統: WinXp
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-1-6
最後登錄: 2024-3-8

論壇贊助勳章

10^#

發表於 2012-7-18 08:53 | 只看該作者

回復 9# Hsieh

感謝Hsieh板大
函式可正常運作；
若要改成顯示ABC-DEF-ABCDEF，後面紅色字體部分；最後的一個位元(或字體)不擷取
公式要變更哪個地方呢?

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 256
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-26

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

9^#

發表於 2012-7-18 08:37 | 只看該作者

回復 8# jackson7015

=MID(SUBSTITUTE(A1,"-",";",LEN(A1)-LEN(SUBSTITUTE(A1,"-",""))),FIND(";",SUBSTITUTE(A1,"-",";",LEN(A1)-LEN(SUBSTITUTE(A1,"-",""))))+1,255)

學海無涯_不恥下問

帖子: 233
主題: 53
精華: 0
積分: 292
點名: 0
作業系統: WinXp
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-1-6
最後登錄: 2024-3-8

論壇贊助勳章

8^#

發表於 2012-7-18 08:17 | 只看該作者

藉此主題問題
若是將問題一的文字擷取，變更為只擷取ABC-DEF-ABCDEF後面-號紅色字體的部分
請問函數要如何更正
套用Hsieh版大的公式後，會出現ABCDE的擷取資料

問題中的-號，會不定數量2~3個，但都是只需要擷取最後-號的後面的ABCDEF部分而已