Excel中如何编写代码 有条件求和公式

Adel345

如附件所示，B列中的数字，A列标记为合计数的，在F1中用公式求和（保留两位小数），跪求各位大神给我写段代码，感谢感谢！

2217918

看下，是不是你所需要的？

Adel345

2217918 发表于 2024-7-16 22:33
看下，是不是你所需要的？

大神，怎么显示成公式，比如=B8+B25+B38  ，显示出来的就是这个数字  但是是有公式的，大神，麻烦再帮我看下

ww87725244

1. Sub aa()
   
2. Dim ar, i, k
   
3. With Sheet1
   
4.   ar = .UsedRange
   
5.   For i = 1 To UBound(ar)
   
6.     If ar(i, 1) = "合计" Then
   
7.       k = k & "+" & .Cells(i, 2).Address(0, 0)
   
8.     End If
   
9.   Next
   
10.   .Range("g1").Formula = "=" & Mid(k, 2, Len(k))
    
11. End With
    
12. End Sub
    

复制代码

Adel345

ww87725244 发表于 2024-7-22 22:50

大神，可以了，跪谢！！

Adel345

ww87725244 发表于 2024-7-22 22:50

大神， .Range("g1").Formula = "=" & Mid(k, 2, Len(k))   这句话什么意思，能解释一下不？为啥要用mid从第二位取，不能直接等于  k  吗

ww87725244

Adel345 发表于 2024-7-23 22:37
大神， .Range("g1").Formula = "=" & Mid(k, 2, Len(k))   这句话什么意思，能解释一下不？为啥要用mid ...

因为合并后，最前面有一个“+”号，所以要从第二个取值

yes_cn

=SUMIF($A$2:$A$1000,$A$8,$B$2:$B$1000)

是我理解错了吗