连续的段落合并，后面的数量也合并

wwdfefgg

将  数量估算表  中连续的段落合并到一起，对应的I列到V列的数也合计到一起

ykcbf1100

你试一下。。。

ykcbf1100

原代码基础上改了一下。

quqiyuan

这是草爷的代码，我修改一下，加个val函数

ynzsvt

空文本，加了两个val处理了一下，你自己可以考虑其它的方法。

1. Sub ykcbf()   '//2024.8.12
   
2. With Sheets("数量估算表")
   
3.   r = .Cells(Rows.Count, 4).End(xlUp).Row
   
4.   c = .Cells(6, "XFD").End(1).Column
   
5.   arr = .[c1].Resize(r, c - 1)
   
6. End With
   
7. ReDim brr(1 To UBound(arr), 1 To c)
   
8. On Error Resume Next
   
9. m = 1
   
10. For j = 1 To UBound(arr, 2)
    
11.   brr(m, j) = arr(7, j)
    
12. Next
    
13. For i = 8 To UBound(arr)
    
14.   If arr(i, 2) = arr(i - 1, 4) Then
    
15.    For j = 7 To UBound(arr, 2)
    
16.     brr(m, j) = brr(m, j) + Val(arr(i, j))
    
17.    Next
    
18.    brr(m, 4) = arr(i, 4)
    
19.   Else
    
20.    m = m + 1
    
21.    brr(m, 1) = arr(i, 1)
    
22.    For j = 2 To UBound(arr, 2)
    
23.     brr(m, j) = Val(arr(i, j))
    
24.    Next
    
25.   End If
    
26. Next
    
27. With Sheets("想要的结果-示例3个")
    
28.   .[a7:z10000] = ""
    
29. 
    
30.   ' 这里假设我们只需要brr数组的前20列
    
31.   .[c7].Resize(m, 20) = brr
    
32. End With
    
33. MsgBox "OK！"
    
34. End Sub

复制代码

ynzsvt

就加了两个val函数，你可以考虑用别的方法。

wwdfefgg

多谢各位大师，刚回家，明天去单位测试一下