找回密码
 立即注册
搜索
123
返回列表 发新帖
楼主: 山高水浊

文字数字组合的如何提取数字求和?

27
回复
2249
查看
[复制链接]

0

主题

4

帖子

-2

幻币

初入江湖

Rank: 1

积分
0
2022-2-15 16:21:07 显示全部楼层
=SUM(IFERROR(--MID(SUBSTITUTE(SUBSTITUTE(TRIM(MID(SUBSTITUTE(A3,",",REPT(" ",100)),(ROW(1:99)-1)*100+1,100)),"件",""),"色",""),2,99),"")) 数组,三键结束
PPT学习论坛
回复 支持 反对

使用道具 举报

0

主题

5

帖子

0

幻币

初入江湖

Rank: 1

积分
0
2022-2-17 12:05:05 显示全部楼层
数组中的“色”“件”解释一下吗?有时候可能会替换成其他名称,格式不变。
PPT学习论坛
回复 支持 反对

使用道具 举报

0

主题

1

帖子

0

幻币

初入江湖

Rank: 1

积分
1
2022-2-17 18:27:34 显示全部楼层
拆成数组"紫色3件";"蓝5件";"青7件";"绿色12件";"黄66件";"橙12件";"红色99件"后替换掉“色”和“件"方便提取中间的数字
PPT学习论坛
回复 支持 反对

使用道具 举报

0

主题

5

帖子

-3

幻币

东方不败

积分
-1
2022-2-18 18:04:35 显示全部楼层
=SUM(IFERROR(--RIGHT(TEXT(MID(SUBSTITUTE(D3,"件",REPT(" ",9)),ROW(1:199),9),),8),))
PPT学习论坛
回复 支持 反对

使用道具 举报

1

主题

8

帖子

2

幻币

初入江湖

Rank: 1

积分
5
2022-2-24 00:48:02 显示全部楼层
Sub RegExp()
  Dim RegExp, Match, iMatch, MhVal$, SumMh%, i%
  For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
  Set RegExp = CreateObject("vbscript.regexp")
  RegExp.Pattern = "(\d+)"
  RegExp.Global = True
  Set Match = RegExp.Execute(Cells(i, 1))
  If Match.Count > 0 Then
    For Each iMatch In Match
      MhVal = iMatch.submatches(0)
      SumMh = SumMh + Val(MhVal)
    Next
  End If
  Cells(i, 2) = SumMh
  SumMh = 0
  Next i
End Sub
工作簿1.zip (16.06 KB, 下载次数: 10)
PPT学习论坛
回复 支持 反对

使用道具 举报

1

主题

12

帖子

2

幻币

初入江湖

Rank: 1

积分
15
2022-2-26 00:34:59 显示全部楼层
=EVALUATE(SUBSTITUTE(TRIM(CONCAT(MIDB(A3,ROW($1:$99),1)))," ","+")) 三键结束
PPT学习论坛
回复 支持 反对

使用道具 举报

1

主题

8

帖子

2

幻币

初入江湖

Rank: 1

积分
12
2022-2-26 14:23:31 显示全部楼层
=SUMPRODUCT(--TEXT(MID(TEXT(MID(SUBSTITUTE(A3,"件",REPT(" ",9)),ROW($1:$88),9),),2,8),"[>];;0;!0"))
PPT学习论坛
回复 支持 反对

使用道具 举报

0

主题

7

帖子

0

幻币

初入江湖

Rank: 1

积分
0
2022-3-3 22:39:51 显示全部楼层
这个问题我回答了很多次了,在不规则的文本中提取字符,非正则表达式公式莫属。
使用方法如图所示
PPT学习论坛
回复 支持 反对

使用道具 举报

123
您需要登录后才可以回帖 登录 | 立即注册