首页>有声问答>

EXCEL中特定文字，如果把信息整理出来。

>

EXCEL中特定文字，如果把信息整理出来。

2022-12-16 17:53

3个回答
2022-12-16 20:46
Sub 提取()
Dim arr(1 To 99, 1 To 3)
brr = [a1].CurrentRegion.Resize(, 2)
Set regex = CreateObject("VBScript.RegExp")
regex.Global = True
regex.Pattern = "([,;；])([^;；]+)报价(\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……），然后点击按钮运行以上宏代码，直接出结果，如图所示：

 

2022-12-16 19:28
用一个自定义函数提取数字可以实现。（文本数字提取函数）
2022-12-16 18:26
=MID(A1,FIND(",",A1)+1,FIND("报价",A1)-FIND(",",A1)-1)
=TRIM(LEFT(RIGHT(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"报价",REPT(" ",100)),"元/吨,",REPT(" ",100)),"吨",REPT(" ",100)),900),100))
=REPLACE(TRIM(LEFT(RIGHT(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"报价",REPT(" ",100)),"元/吨",REPT(" ",100)),"吨",REPT(" ",100)),800),100)),1,1,"")
=REPLACE(TRIM(LEFT(RIGHT(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"报价",REPT(" ",100)),"元/吨",REPT(" ",100)),"吨",REPT(" ",100)),700),100)),1,1,"")
=TRIM(LEFT(RIGHT(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"报价",REPT(" ",100)),"元/吨",REPT(" ",100)),"吨",REPT(" ",100)),600),100))
=REPLACE(TRIM(LEFT(RIGHT(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"报价",REPT(" ",100)),"元/吨",REPT(" ",100)),"吨",REPT(" ",100)),500),100)),1,1,"")
相关问答
怎么把故事的重要信息整理出来?
1个回答2024-02-14 03:09
重要的信息，我们要知道，任何一个故事都是由时间，地点，人物，还有其中的情节，抓住这几个重点。
如何提取excel信息
1个回答2023-01-27 09:05
您好，方法 1、在电脑磁盘或桌面上新建一个Excel表格。 2、双击打开Excel表格，这时我们看到，姓名和班级是没有分开的，那么，我们要做的就是将姓名和班级分开。 3、在旁边的单元格中输入【班级】和...
全文
如何将EXcel 表中每行的相关信息按照固定的格式批量生成新的EXcel 表,每行生成一张表。
1个回答2022-12-24 14:13
不知道！
EXCEL如何提取需要的信息？
3个回答2023-01-26 20:32
G1=iferror(index(a:a,small(if($c:$c="超时",row(c:c),""),row(a1))),"")同时按Ctrl+shift+回牛形成数组公式后向右拉再向下拉自动填...
全文
信息的不完整性
1个回答2022-06-01 16:18
给你说半截话，信息传达不清楚，不明确，这就是住处的不完整性。
整蛊短信息
1个回答2024-02-16 03:45
有一天小乌龟问妈妈，妈妈有人发短信骚扰我，我是回还是不回？乌龟妈妈说:猪才回，是乌龟就坚决不回！
excel中身份证信息隐藏
1个回答2023-03-16 19:10
1、=REPLACE(A2，2,1，"*") 2、按【Ctrl+Enter】组合键确认，这样A2中的＂李四＂就变成了＂李*＂，调整参数，可以全部隐藏，自己实践一下。身份证号码信息同理依此类推。
信息的不完整性指的是什么?
1个回答2022-05-31 02:43
是不完整，缺失，不符合全部要领···········
我我我枪手的调整信息
1个回答2023-01-20 15:25
[2012/08/06] ●1回合1次，把这张卡1个XYZ素材取除才能发动。这张卡的表示形式的以下效果适用。 ◇起动效果（进入连锁）。 ◇只能在自己的主要阶段发动。 ◇把这张卡的1个XYZ素材取除...
全文
发信息整蛊女朋友攻略
1个回答2024-06-06 23:30
我无言的望着你，就像贫血的星星，照不见你来时的脚印。此刻的心情，就像那枚硬币，一半是风暴一半是花朵。多想用我的一生换取你的美丽。 春天有个习惯叫做温暖，风筝有个习惯叫做远方，小草有个习惯叫做成长，我...
全文
扫码下载APP
听书听课听播客，随时随地陪伴你
热门问答
热门搜索更多
  • A
  • B
  • C
  • D
  • E
  • F
  • G
  • H
  • I
  • J
  • K
  • L
  • M
  • N
  • O
  • P
  • Q
  • R
  • S
  • T
  • U
  • V
  • W
  • X
  • Y
  • Z