[已解决]如何计算三列数据之和

蓝天一片云

如何用VBA将E列数据等于B列+C列+D列数据之和.

最佳答案

月排行榜 / 总排行榜

hrpotter

2012-5-23 18:45

1. Sub test()
   
2.     Dim ar, s
   
3.     Dim i As Long, j As Long
   
4.     ar = Range("a1").CurrentRegion
   
5.     ReDim br(1 To UBound(ar), 1 To 1)
   
6.     For i = 1 To UBound(ar)
   
7.         s = ""
   
8.         For j = 2 To 4
   
9.             If ar(i, j) <> "" Then
   
10.                 If s = "" Then
    
11.                     s = ar(i, j)
    
12.                 Else
    
13.                     s = s & "+" & ar(i, j)
    
14.                 End If
    
15.             End If
    
16.         Next
    
17.         br(i, 1) = Evaluate(Replace(s, "X", "*"))
    
18.     Next
    
19.     Range("e1").Resize(UBound(br), 1) = br
    
20. End Sub

复制代码

跳转到最佳答案楼层

hamsik11

那个为啥不用8*10而用8X10哪？

hrpotter

1. Sub test()
   
2.     Dim ar, s
   
3.     Dim i As Long, j As Long
   
4.     ar = Range("a1").CurrentRegion
   
5.     ReDim br(1 To UBound(ar), 1 To 1)
   
6.     For i = 1 To UBound(ar)
   
7.         s = ""
   
8.         For j = 2 To 4
   
9.             If ar(i, j) <> "" Then
   
10.                 If s = "" Then
    
11.                     s = ar(i, j)
    
12.                 Else
    
13.                     s = s & "+" & ar(i, j)
    
14.                 End If
    
15.             End If
    
16.         Next
    
17.         br(i, 1) = Evaluate(Replace(s, "X", "*"))
    
18.     Next
    
19.     Range("e1").Resize(UBound(br), 1) = br
    
20. End Sub

复制代码

那么的帅

hamsik11 发表于 2012-5-23 18:33
那个为啥不用8*10而用8X10哪？

自定义函数完成
自定义函数-数据求和.rar (6.88 KB, 下载次数: 10)

2012-5-23 18:47 上传

点击文件名下载附件