有条件合并单元格内容

ggy111111

大神们 帮忙解决一下，想了很久 没有思路解决，附件有数据和希望的效果展示

希望实现的功能	1、	在表2中，删除重复编码
	2、	不同的活动类型合并在对应的一个单元格内，且对应相对应的日期，用横杆隔开

一把小刀闯天下

Option Explicit

Sub test()
  Dim i As Long, j As Long, k As Long, m As Long, arr, tt As String
  With Sheets("数据源")
    arr = .Range("a1:bg" & .Cells(Rows.Count, "a").End(xlUp).Row + 1)
  End With
  ReDim t(1 To UBound(arr, 2)) As String
  m = 2
  For i = 2 To UBound(arr, 1) - 1
    For j = i To UBound(arr, 1) - 1
      For k = 2 To UBound(arr, 2)
        tt = Trim(arr(j, k))
        If Len(tt) Then t(k) = t(k) & "-" & tt
      Next
      If arr(j, 1) <> arr(j + 1, 1) Then
        arr(m, 1) = arr(i, 1)
        For k = 2 To UBound(arr, 2)
          If Len(t(k)) Then arr(m, k) = Mid(t(k), 2)
        Next
        ReDim t(1 To UBound(arr, 2)) As String
        m = m + 1: i = j: Exit For
      End If
  Next j, i
  With Sheets("2").[a1]
    .CurrentRegion.ClearContents
    .Resize(m - 1, UBound(arr, 2)) = arr
  End With
End Sub

ggy111111

一把小刀闯天下 发表于 2018-9-20 11:51
Option Explicit

Sub test()

代码有点难理解 能否备注一下呢，学习一下，多重循环加上数据的应用初学者看不懂

ggy111111

一把小刀闯天下 发表于 2018-9-20 11:51
Option Explicit

Sub test()

为什么可以在arr (同一数组中)进行运算也可以实现呢？进行运算的过程中arr也变了吗？

酷似内涵

ggy111111 发表于 2018-10-12 23:29
为什么可以在arr (同一数组中)进行运算也可以实现呢？进行运算的过程中arr也变了吗？

是的，可以把arr看成单元格。