怎样在一堆文本里提取股票代码(提取数字)

怎样在一堆文本里提取股票代码(提取数字)


■网友
1、使用公式
假设你的文本在A1中,那你可以在B1中输入以下公式并下拉至出现1048576为止(在1048576上边的数字就是A1中所有股票的代码)
=SMALL(IF(ISNUMBER(--MID($A$1,ROW($1:$500),6)),--MID($A$1,ROW($1:$500),6),4^10),ROW(A1))
注意:此公式为数组公式,需要同时按下 Ctrl+Shift+回车 三键结束输入,否则公式无效
怎样在一堆文本里提取股票代码(提取数字)


2、使用vba自定义函数,代码及效果图如下,VBA自定义函数的方法自行百度即可,不难
Public Function tqgp(rng As Range)For i = 1 To Len(rng) If IsNumeric(Mid(rng, i, 6)) Then tqgp = tqgp \u0026amp; Mid(rng, i, 6) \u0026amp; "、" End IfNext itqgp = Mid(tqgp, 1, Len(tqgp) - 1)End Function怎样在一堆文本里提取股票代码(提取数字)



■网友
**首先,分析股票代码的规则。**如果你的这段文本在Word里,我们分析股票代码发现他们是规则的,即:(xxxxxx),x表示数字。这样我们可以用查找一次性全部找到。具体步骤如下:
【怎样在一堆文本里提取股票代码(提取数字)】 怎样在一堆文本里提取股票代码(提取数字)

**然后,复制找到的股票代码。**可以先复制到Word的空白行,然后再复制到Excel,这应该很简单了。结果如图所示。
怎样在一堆文本里提取股票代码(提取数字)


■网友
文本处理请用re


    推荐阅读