一列数据中两个文本单元格之间的数据求和

ykcbf1100

参与一下，附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf() '//2024..4.24
   
2.     r = Cells(Rows.Count, 4).End(3).Row
   
3.     Cells.Interior.ColorIndex = 0
   
4.     For i = r To 1 Step -1
   
5.         If Val(Cells(i, 4)) Then
   
6.             Sum = Sum + Cells(i, 4)
   
7.         Else
   
8.             Cells(i, 5) = Sum
   
9.             Cells(i, 4).Interior.ColorIndex = 6
   
10.             Cells(i, 5).Interior.ColorIndex = 8
    
11.             Sum = 0
    
12.         End If
    
13.     Next
    
14. End Sub
    
15. 
    

复制代码

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, br, i&, r&
   
    ar = Range("D1", Cells(Rows.Count, "D").End(xlUp)).Value
    ReDim br(1 To UBound(ar), 0)
    For i = 1 To UBound(ar)
        If IsNumeric(ar(i, 1)) Then
            br(r, 0) = br(r, 0) + ar(i, 1)
        Else
            r = i
        End If
    Next i
   
    [E1].Resize(UBound(br)) = br
    Beep
End Sub

gwjkkkkk

..............

cnmlgb9998

PQ解决这种问题 最好用。 还要什么 VBA？？？？？？

东山飞鸽

用涵数公式求和

tsgnhj

cnmlgb9998 发表于 2024-4-24 19:35
PQ解决这种问题 最好用。 还要什么 VBA？？？？？？

不会PQ。。。

咔咔乱坠

365函数，参与一下
楼主没放附件，故借11楼ykcbf1100老师的附件为例
就例题

1. =T(SCAN(,VSTACK(D1:D26,"0"),LAMBDA(x,y,IF((y>="0")*N(x),x&"",IF(N(x),x+y,MAX(y,))))))

复制代码

增加条件：应对两个单元格连续都是文本时

1. =T(SCAN(,VSTACK(D1:D26,"0"),LAMBDA(x,y,IF((y>="0")*N(x),x&"",IF(N(x),x+y,IFERROR(--y,))))))

复制代码

沧海一笑121

第一步：CTRL+G定位:选择常量，勾选文本(其他不勾选)，筛选出文本；
第二步：复制公式=SUBTOTAL(9,D3:D$26)*2-SUM(D3:D$26)，粘贴；
第三步：CTRL+Enter

sunya_0529

WPS里的JSA练习一下——