如何根据某一列的信息，实现所有列对应行的合并？

yq1202

刚接触VBA就遇到这样的问题，请大家帮助解决，不甚感激。主要想法如下：首先根据D列合同编号进行合并，同时将A,B,C列对应行也进行合并，且A列合并后显示最后的日期。最后一列需要求和。实现前的表后实现后的表都在附件Sheet1表里面。

bajifeng

1. Sub db()    'by: bajifeng
   
2. Dim brr()
   
3. lr = [d65536].End(3).Row
   
4. Range("h2:l" & lr) = ""
   
5. Set d = CreateObject("Scripting.Dictionary")
   
6. For i = 2 To lr
   
7.     If d.exists(Cells(i, 4).Value) Then
   
8.     If Cells(i, 1) > Cells(d(Cells(i, 4).Value), 1) Then brr(1, d(Cells(i, 4).Value)) = Cells(i, 1)
   
9.     Else
   
10.         n = n + 1
    
11.         d(Cells(i, 4).Value) = n
    
12.         ReDim Preserve brr(1 To 5, 1 To n)
    
13.         For j = 1 To 5
    
14.             brr(j, n) = Cells(i, j).Value
    
15.         Next
    
16.     End If
    
17. Next
    
18. [h2].Resize(d.Count, 5) = Application.Transpose(brr)
    
19. End Sub

复制代码

bajifeng

楼主自己相加代码测试一下，我暂时上传不了附件。

bajifeng

>>>>>>>>>>>>>>>>>>>