rpct.net
当前位置:首页 >> ExCEl中如何用VBA提取单元格中的数字并且相加? >>

ExCEl中如何用VBA提取单元格中的数字并且相加?

求和 即可

请查收附件.代码如下32313133353236313431303231363533e78988e69d8331333335333735.Sub tq() Dim r, n As Long Dim rg As Range Dim BGArr r = Range("A" & Rows.Count).End(xlUp).Row BGArr = Range("B1:G" & r) n = Mid(

文件发过来 xtx98@qq.com

亲,是否一定要用VBA?公式岂不是更简单?如下图,B1的公式如下,右拉到D1,然后下拉到底:=MID($A1,COLUMN(A$1),1) E1的公式如下,右拉到G1,然后下拉到底:=--RIGHT((B1+OFFSET($C$1,COUNTA($C:$C)-1,)),1)

如果不嫌麻烦的话,可以先分列(以空格为分隔符),再求和.下面的公式可以一次搞定,如果单元格内数字不超过20个的话,=sumproduct(--(0&trim(mid(substitute(a20," ",rept(" ",99)),row(1:99)*99-98,99))))

假设2113 64/14:13:40 在A2单元格,5261那么用下面的代4102码可以分别1653将 64 与 14:13:40 分别提取到内 B2和C2 单元格中容.Sub ChaiJie() [B2] = Mid([A2], 1, InStr([A2], "/") - 1) [C2] = Mid([A2], InStr([A2], "/") + 1, Len([A2]) - InStr([A2], "/")) End Sub

如果你的数据在a列,从a1开始,按照以下步骤:你按ctrl+f3在名称中输入:aa在引用位置中输入:=evaluate(a1)确定在b1中输入:=aa下拉复制b1

一种比较笨的方法选中该列然后选数据--分列(分隔符号勾选其它,后面填=)完成后可将L后面的数据分离出来.再进行一次分列,分隔符号填+ 这样你再将分离出来的数据再设置公式相加就行了

如果是数字+文本格式,公式如下:文本在前,数字在后 =RIGHT(A2,2*LEN(A2)-LENB(A2))数字在前,文本在后 =LEFT(A2,2*LEN(A2)-LENB(A2))如果是数字+文本或文本+数字这种格式就不适用

在U13单元格输入公式:=-LOOKUP(,-LEFT(E13,ROW($1:$3)))在V13单元格输入公式:=-LOOKUP(,-MID(E13,FIND(" 评论0 0 0

bycj.net | lstd.net | tbyh.net | gmcy.net | snrg.net | 网站首页 | 网站地图
All rights reserved Powered by www.rpct.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com