这个计数要怎么写公式

uxt

一行单元格内有运算式，要分别相加相减，奇偶列分别相加。

fzxba

1. Sub test0()
   
2.   Dim ar, i As Long, j As Integer, k As Integer
   
3.   ar = Range("A1").CurrentRegion
   
4.   For i = 2 To UBound(ar)
   
5.     For j = 1 To 2
   
6.       ar(i, j) = 0
   
7.     Next
   
8.     For j = 3 To UBound(ar, 2)
   
9.       k = (j Mod 2) + 1
   
10.       ar(i, k) = ar(i, k) + Evaluate(ar(i, j))
    
11.     Next
    
12.   Next
    
13.   Range("A1").CurrentRegion.Resize(, 2) = ar
    
14. End Sub

复制代码

uxt

fzxba 发表于 2023-2-12 14:43

谢谢大哥您的宏是把总和计算出来。我想要的效果是各个+号的数字相加，即总和的格式还是要保持“？+？+？”这样。

一直都在zz

Sub AddSubtract()
    Dim rng As Range
    Set rng = Range("A1")
    For i = 0 To 7
        If i Mod 2 = 0 Then
            rng.Offset(0, i).Value = rng.Offset(0, i).Value + rng.Offset(0, i + 1).Value
        Else
            rng.Offset(0, i).Value = rng.Offset(0, i).Value - rng.Offset(0, i + 1).Value
        End If
    Next i
End Sub

uxt

一直都在zz 发表于 2023-2-12 18:00
Sub AddSubtract()
    Dim rng As Range
    Set rng = Range("A1")

谢谢哦！！运行到rng.Offset(0, i).Value = rng.Offset(0, i).Value - rng.Offset(0, i + 1).Value时，提示类型不匹配。

fzxba

uxt 发表于 2023-2-12 17:51
谢谢大哥您的宏是把总和计算出来。我想要的效果是各个+号的数字相加，即总和的格式还是要保持 ...

测试.rar (12.64 KB, 下载次数: 4)

2023-2-12 20:00 上传

点击文件名下载附件

更新在这，不灌了……

uxt

fzxba 发表于 2023-2-12 18:18

大哥，是我没表述好。我的意思是总和的格式为“？+？+？”，比如“1+2+3“+“2+3+4“＝“3+5+7“。“3+5+7”就是总和。您把各个单元格的数列集中在总和了。

uxt

fzxba 发表于 2023-2-12 18:18
更新在这，不灌了……

大哥您太厉害了，帮了我的大忙，谢谢！！！