条件汇总多行数据及删除没用行

xyh2732

需要合并单元格以及汇总每行的文字以及金额，会有两种情况

条件：根据C列如果单元格为空就把下方数据汇总到上面有内容的行里，然后删除C列单元格为空的行。

第一种：请看表格6-8行C列为合并单元格，只保留追上面一行，把C列后面的数据如果是文字的就汇总到一个单元格用“/”区分，如果是金额的就汇总到第一行汇总后把没用的行删除。比如表格6-8行数据，把这3行的数据都汇总到第6行内，汇总后把第7-8行删除。合并后请看第9行内容。

第二种请款是C列没有合并单元格请看表格11-14行要求一样吧数据汇总到第一行内，汇总后把没用的行数删除。比如表格11-14行数据，把这4行的内容全部汇总到第11行内，然后把12-14行删除，汇总后请看表格15行数据 合并单元格金额及数据.rar (111.38 KB, 下载次数: 23)

2022-5-24 20:12 上传

点击文件名下载附件

xyh2732

有人可以帮忙解决吗

hasyh2008

今天电脑上不了，需要的话加QQ：504265918

eennoo

1. Sub main()
   
2. Dim fore, back
   
3. Range("C:D").UnMerge
   
4. lastRow = Range("B65536").End(xlUp).Row
   
5. Application.DisplayAlerts = False
   
6. Range("C6:C" & lastRow).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
   
7. fore = 0
   
8. For i = 5 To lastRow
   
9. If Cells(i, "C") = Cells(i + 1, "C") Then
   
10. s = s & "" & Cells(i, "D")
    
11. fore = i
    
12. Else
    
13. 
    
14. If fore > 0 Then
    
15. Range("C" & fore + 1 & ":C" & back + 1).Merge
    
16. 
    
17. s = s & "" & Cells(i, "D")
    
18. s = Right(s, Len(s) - 1)
    
19. Range("D" & fore + 1 & ":D" & back + 1).Merge
    
20. Range("D" & fore + 1 & ":D" & back + 1) = s
    
21. s = ""
    
22. End If
    
23. 
    
24. fore = 0
    
25. back = i
    
26. 
    
27. End If
    
28. 
    
29. 
    
30. Next
    
31. Range("D:D").WrapText = True
    
32. End Sub
    

复制代码

我行我速2008

不行吗？？？？？？