[已解决]怎么将相同日期对应的文本进行汇总

xingguo

怎么由sheet1变为sheet2，将相同日期对应的内容合并到同一单元格中？
用vba怎么实现？
能请教一下吗？
非常感谢！！！

最佳答案

月排行榜 / 总排行榜

橘子红

2016-4-12 21:52

1. Sub x()
   
2. Dim a, x&
   
3. a = Range("a1").CurrentRegion
   
4. For x = 2 To UBound(a) - 1
   
5.      If a(x, 1) = a(x + 1, 1) Then
   
6.           a(x + 1, 2) = a(x, 2) & ";" & a(x + 1, 2)
   
7.           a(x, 1) = "": a(x, 2) = ""
   
8.      End If
   
9. Next
   
10. [h1].Resize(x, 2) = a
    
11. End Sub
    

复制代码

跳转到最佳答案楼层

橘子红

1. Sub x()
   
2. Dim a, x&
   
3. a = Range("a1").CurrentRegion
   
4. For x = 2 To UBound(a) - 1
   
5.      If a(x, 1) = a(x + 1, 1) Then
   
6.           a(x + 1, 2) = a(x, 2) & ";" & a(x + 1, 2)
   
7.           a(x, 1) = "": a(x, 2) = ""
   
8.      End If
   
9. Next
   
10. [h1].Resize(x, 2) = a
    
11. End Sub
    

复制代码

baksy

附件

dsmch

1. Sub Macro1()
   
2. Sheet2.Activate
   
3. [a2:b2000] = ""
   
4. With Sheet1
   
5.     p = .Cells(2, 2)
   
6.     For i = 3 To 8
   
7.         If .Cells(i, 1) = .Cells(i - 1, 1) Then
   
8.             p = p & ";" & .Cells(i, 2)
   
9.         Else
   
10.             Cells(i - 1, 1) = .Cells(i - 1, 1)
    
11.             Cells(i - 1, 2) = p
    
12.             p = .Cells(i, 2)
    
13.         End If
    
14.     Next
    
15. End With
    
16. End Sub

复制代码

xingguo

baksy 发表于 2016-4-12 22:17
附件

非常感谢您的答案，不过我想要的是用VBA的解决方法，就把最佳给了一楼了。还是谢谢您的分享。

xingguo

dsmch 发表于 2016-4-12 23:50

您的答案写的挺好，感觉一楼的答案更简洁一点，就把最佳给了一楼。非常感谢您的分享。