就是简单的求合

铅笔刀子

就是简单的求合

铅笔刀子

是太容易了没人愿意回答吗?

不知道为什么

铅笔刀子 发表于 2019-6-20 20:46
是太容易了没人愿意回答吗?

提问技巧

1.提问之前可以先在论坛搜索相关帖子

2.提问的时候尽量问题说明白点 要有效果图 有表格附件

3.如果别人帮你解决了问题一定要记得回复别人结果 和说声谢谢 有鲜花的话也可以送几朵

4.问题解决后你可以学习别人解决问题的方法

[新手必读]发帖须知、上传附件、截图动画、压缩解压、靓帖推荐：
http://club.excelhome.net/thread-184567-1-1.html

Excel Home论坛学习及使用完全攻略(新人必读)：
http://club.excelhome.net/thread-449518-1-1.html

EH技术论坛的最佳学习方法：
http://club.excelhome.net/thread-117862-1-1.html

chxw68

铅笔刀子 发表于 2019-6-20 20:46
是太容易了没人愿意回答吗?

是求“合”还是求“和”？

铅笔刀子

chxw68 发表于 2019-6-20 21:59
是求“合”还是求“和”？

大哥是求和 我的个天

铅笔刀子

Function MySum(x As Range)
s = 9
For Each cel In x
If cel <> "" Then
y = Split(cel.Value, "+")
For i = 0 To UBound(y)
s = s + Val(y(i))
Next
End If
Next
MySum = s
End Function

这个显示计算错误，请大哥、大姐指导下

铅笔刀子

chxw68 发表于 2019-6-20 21:59
是求“合”还是求“和”？

就是把前面单元格的数字，合计出来

铅笔刀子

不知道为什么 发表于 2019-6-20 21:25
提问技巧

1.提问之前可以先在论坛搜索相关帖子

不知道为什么我又看到你了

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   With Worksheets("sheet2")
   
5.     r = .Cells(.Rows.Count, 2).End(xlUp).Row
   
6.     arr = .Range("d3:p" & r)
   
7.     ReDim brr(1 To UBound(arr), 1 To 1)
   
8.     For i = 1 To UBound(arr)
   
9.       For j = 1 To UBound(arr, 2)
   
10.         If Len(arr(i, j)) <> 0 Then
    
11.           brr(i, 1) = brr(i, 1) + Application.Evaluate(arr(i, j))
    
12.         End If
    
13.       Next
    
14.     Next
    
15.     .Range("q3").Resize(UBound(brr), 1) = brr
    
16.   End With
    
17. End Sub
    

复制代码

chxw68

猜测着做的。工作簿中表格很多，楼主应该说明是计算哪个表中的哪些单元格。