求和 即可
请查收附件.代码如下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