EXCEL中特定文字,如果把信息整理出來。

2022-12-16 17:53

3個(gè)回答
Sub?提取()
Dim?arr(1?To?99,?1?To?3)
brr?=?[a1].CurrentRegion.Resize(,?2)
Set?regex?=?CreateObject("VBScript.RegExp")
regex.Global?=?True
regex.Pattern?=?"([,;;])([^;;]+)報(bào)價(jià)(\d+)元/噸,(\d+)噸"
For?i?=?1?To?UBound(brr)
????Set?matches?=?regex.Execute(brr(i,?1))
????For?Each?Match?In?matches
????????p?=?p?+?1
????????arr(p,?1)?=?Match.submatches(1)
????????arr(p,?2)?=?Match.submatches(2)
????????arr(p,?3)?=?Match.submatches(3)
????Next
Next
Cells(Rows.Count,?3).End(xlUp).Offset(1).Resize(p,?3)?=?arr
End?Sub

把原文字放在A1單元格(多段文字則依次放入A2、A3……),然后點(diǎn)擊按鈕運(yùn)行以上宏代碼,直接出結(jié)果,如圖所示:

?

用一個(gè)自定義函數(shù)提取數(shù)字可以實(shí)現(xiàn)。(文本數(shù)字提取函數(shù))
=MID(A1,FIND(",",A1)+1,FIND("報(bào)價(jià)",A1)-FIND(",",A1)-1)
=TRIM(LEFT(RIGHT(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"報(bào)價(jià)",REPT(" ",100)),"元/噸,",REPT(" ",100)),"噸",REPT(" ",100)),900),100))
=REPLACE(TRIM(LEFT(RIGHT(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"報(bào)價(jià)",REPT(" ",100)),"元/噸",REPT(" ",100)),"噸",REPT(" ",100)),800),100)),1,1,"")
=REPLACE(TRIM(LEFT(RIGHT(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"報(bào)價(jià)",REPT(" ",100)),"元/噸",REPT(" ",100)),"噸",REPT(" ",100)),700),100)),1,1,"")
=TRIM(LEFT(RIGHT(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"報(bào)價(jià)",REPT(" ",100)),"元/噸",REPT(" ",100)),"噸",REPT(" ",100)),600),100))
=REPLACE(TRIM(LEFT(RIGHT(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"報(bào)價(jià)",REPT(" ",100)),"元/噸",REPT(" ",100)),"噸",REPT(" ",100)),500),100)),1,1,"")
相關(guān)問答
怎么把故事的重要信息整理出來?
1個(gè)回答2024-02-14 03:09
重要的信息,我們要知道,任何一個(gè)故事都是由時(shí)間,地點(diǎn),人物,還有其中的情節(jié),抓住這幾個(gè)重點(diǎn)。
如何提取excel信息
1個(gè)回答2023-01-27 09:05
您好,方法 1、在電腦磁盤或桌面上新建一個(gè)Excel表格。 2、雙擊打開Excel表格,這時(shí)我們看到,姓名和班級是沒有分開的,那么,我們要做的就是將姓名和班級分開。 3、在旁邊的單元格中輸入【班級】和...
全文
EXCEL如何提取需要的信息?
3個(gè)回答2023-01-26 20:32
G1=iferror(index(a:a,small(if($c:$c="超時(shí)",row(c:c),""),row(a1))),"")同時(shí)按Ctrl+shift+回牛形成數(shù)組公式后向右拉再向下拉自動填...
全文
信息的不完整性
1個(gè)回答2022-06-01 16:18
給你說半截話,信息傳達(dá)不清楚,不明確,這就是住處的不完整性。
整蠱短信息
1個(gè)回答2024-02-16 03:45
有一天小烏龜問媽媽,媽媽有人發(fā)短信騷擾我,我是回還是不回?烏龜媽媽說:豬才回,是烏龜就堅(jiān)決不回!
excel中身份證信息隱藏
1個(gè)回答2023-03-16 19:10
1、=REPLACE(A2,2,1,"*") 2、按【Ctrl+Enter】組合鍵確認(rèn),這樣A2中的"李四"就變成了"李*",調(diào)整參數(shù),可以全部隱藏,自己實(shí)踐一下。身份證號碼信息同理依此類推。
信息的不完整性指的是什么?
1個(gè)回答2022-05-31 02:43
是不完整,缺失,不符合全部要領(lǐng)···········
我我我槍手的調(diào)整信息
1個(gè)回答2023-01-20 15:25
[2012/08/06] ●1回合1次,把這張卡1個(gè)XYZ素材取除才能發(fā)動。這張卡的表示形式的以下效果適用。 ◇起動效果(進(jìn)入連鎖)。 ◇只能在自己的主要階段發(fā)動。 ◇把這張卡的1個(gè)XYZ素材取除...
全文
發(fā)信息整蠱女朋友攻略
1個(gè)回答2024-06-06 23:30
我無言的望著你,就像貧血的星星,照不見你來時(shí)的腳印。此刻的心情,就像那枚硬幣,一半是風(fēng)暴一半是花朵。多想用我的一生換取你的美麗。 春天有個(gè)習(xí)慣叫做溫暖,風(fēng)箏有個(gè)習(xí)慣叫做遠(yuǎn)方,小草有個(gè)習(xí)慣叫做成長,我...
全文
熱門問答