如何实现一串文字中的数字提取？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

如图，在Excel中的数据情况，是一串文字中的年份，想把这个识别出来单独形成年份列，，这个 该怎么做？用Excel或者stata 。。。。

具体数据如下：


数据年份筛选.xlsx (204.7 KB)

2019-7-17 14:58:44 上传

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏3 回帖

关键词：如何实现 用excel EXCEL Stata exce

楼主看下附件，看是不是你想要的结果？

heric221 发表于 2019-7-20 09:58
楼主看下附件，看是不是你想要的结果？

谢谢坛友，好厉害！！求问下怎么实现的？

日新少年 发表于 2019-7-20 10:11
谢谢坛友，好厉害！！求问下怎么实现的？

我是用Excel做的，先自定义函数，再调用该函数即可。
自定义的函数代码为：

1. Function ValueInText(TargetRange As Range) As Double
   
2.       Dim mRegExp As RegExp
   
3.       Dim mMatches As MatchCollection
   
4.       Dim mMatch As Match
   
5. 
   
6.       Set mRegExp = New RegExp
   
7.       With mRegExp
   
8.           .Global = True
   
9.           .IgnoreCase = True
   
10.          .Pattern = "([0-9])?[.]([0-9])+|([0-9])+"
    
11.          Set mMatches = .Execute(TargetRange.Text)
    
12.          For Each mMatch In mMatches
    
13.             If Len(mMatch.Value) = 4 Then ValueInText = mMatch.Value
    
14.          Next
    
15.      End With
    
16. 
    
17.      Set mRegExp = Nothing
    
18.      Set mMatches = Nothing
    
19. End Function

复制代码

用stata也能搞定，使用正则表达式，
gen year=""
replace year=ustrregexs(0) if ustrregexm(cntet," (\d{4})")  

我是梅梅 发表于 2019-10-23 19:09
用stata也能搞定，使用正则表达式，
gen year=""
replace year=ustrregexs(0) if ustrregexm(cntet," (\d ...

哇   高手！！！ 谢谢啊

heric221 发表于 2019-7-20 11:24
我是用Excel做的，先自定义函数，再调用该函数即可。
自定义的函数代码为：

太感谢你了