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

tsgnhj

由于公司的文件自动加密，没法上传附件，见谅。
目前有个表格，如下图，需要将D列所有是文本的单元格向下求和，比如：
d1单元格的值目前是“借方工资”，是本文本，就要换成求和公式，求和区间是第2行至第7行，因为第8行也是文本。
之后d8单元格也要替换成求和公式，只求和第9、10两行，因为第11行也是文本。

谢谢各位大神，实在搞不定了。

liulang0808

模拟了一个，原始数据在A列，模拟结果在B列，当然可以把B列前面的描述字符删除，直接放和值

baofa2

Sub 五点多了()
  Dim i As Long, p As Long
  For i = 1 To Cells(Rows.Count, "D").End(xlUp).Row
    If Val(Cells(i, "D").Value) = 0 Then p = i
    If Val(Cells(i + 1, "D").Value) = 0 Then Cells(p, "D") = "=sum(r" & p + 1 & "c4:r" & i & "c4)"
  Next
End Sub

LIUZHU

求和公式写在哪里？把原来的文字内容覆盖掉吗？

LIUZHU

感觉这个不一定非要用VBA，添加辅助列，用公式也可以做到

swl4561255

1. Sub test()
   
2. ar = [D65536].End(3).Row
   
3. For i = ar To 1 Step -1
   
4.     If Cells(i, 4) <> "" Then
   
5.         s = s + Cells(i, 4)
   
6.     Else
   
7.         Cells(i, 4) = s
   
8.         s = 0
   
9.     End If
   
10. Next
    
11. End Sub

复制代码

cnmlgb9998

用PQ. 局部分组，再求和

tsgnhj

LIUZHU 发表于 2024-4-24 17:17
感觉这个不一定非要用VBA，添加辅助列，用公式也可以做到

没想出来不用VBA的方法，能不能帮个忙？不用VBA的。谢谢。

tsgnhj

LIUZHU 发表于 2024-4-24 17:15
求和公式写在哪里？把原来的文字内容覆盖掉吗？

对，把原来的文字内容覆盖掉。

tsgnhj

baofa2 发表于 2024-4-24 17:14
Sub 五点多了()
  Dim i As Long, p As Long
  For i = 1 To Cells(Rows.Count, "D").End(xlUp).Row

好用，成功了，但是我没看懂，再研究研究，谢谢了。