如附件 这怎么求和

asyou523

可以先用replace函数去掉请前两位，再相加

smhf_6

这表格，输入时，喜欢麻烦不偷懒，统计时又麻烦。两头找麻烦

jjmysjg

一把小刀闯天下 发表于 2018-8-12 22:51
Option Explicit

Sub test()

怎样把结果放到F1里？

一把小刀闯天下

jjmysjg 发表于 2018-8-13 06:16
怎样把结果放到F1里？

MsgBox  改成

[f1]=

-------------
如果无需换行把  & vbnewline   删除

-------------
可以把问题都放上了，看得懂的我来给你掰。QQ一般情况下我是不开的

当然满意是要来小花的，哈哈哈

czyjikemn

一把小刀闯天下 发表于 2018-8-13 08:53
MsgBox  改成

[f1]=

如果我内容里有2个/  比如1/23/0.5  还是要最有一个/后面的数字和  老师能写吗

一把小刀闯天下

czyjikemn 发表于 2018-8-13 11:00
如果我内容里有2个/  比如1/23/0.5  还是要最有一个/后面的数字和  老师能写吗

t = Split(arr(i, j), "/")(1)
把这行用下面2行来替换

t=split(arr(i,j),"/")
t=t(ubound(t))

czyjikemn

一把小刀闯天下 发表于 2018-8-13 11:35
t = Split(arr(i, j), "/")(1)
把这行用下面2行来替换

谢谢老师 但是我运行从第6行到后面几行数据没有加上去 求老师看看

一把小刀闯天下

czyjikemn 发表于 2018-8-13 11:53
谢谢老师 但是我运行从第6行到后面几行数据没有加上去 求老师看看

把这行  arr = [c3].CurrentRegion  改成
  arr = ActiveSheet.UsedRange

-------------
如果再有问题那得上附件啦，你应该会上附件的吧

wychao_1979

1.Ctrl+H,*/替换
2.=SUM(--IFERROR(SUBSTITUTE(A1:C4,LEFTB(A1:C4,FIND("/",A1:C4,1)),""),0))数组。