符合多条件的单元格合并到一个单元格

tdarling

大侠帮我看看如何将符合多个条件的单元格 。按要求合并到一起，附件的左侧表格转换成右侧的，谢谢。

一把小刀闯天下

Option Explicit

Sub test()
  Dim arr, dic(1), i, m, n
  For i = 0 To UBound(dic)
    Set dic(i) = CreateObject("scripting.dictionary")
  Next
  arr = Range("b5:d" & [b5].End(xlDown).Row)
  ReDim brr(UBound(arr, 1), 100)
  For i = 1 To UBound(arr, 1)
    If Not dic(0).exists(arr(i, 1)) Then m = m + 1: dic(0)(arr(i, 1)) = m: brr(m, 0) = arr(i, 1)
    If Not dic(1).exists(arr(i, 2)) Then n = n + 1: dic(1)(arr(i, 2)) = n: brr(0, n) = arr(i, 2)
    If Len(brr(dic(0)(arr(i, 1)), dic(1)(arr(i, 2)))) = 0 Then
      brr(dic(0)(arr(i, 1)), dic(1)(arr(i, 2))) = arr(i, 3)
    Else
      brr(dic(0)(arr(i, 1)), dic(1)(arr(i, 2))) = brr(dic(0)(arr(i, 1)), dic(1)(arr(i, 2))) & "," & arr(i, 3)
    End If
  Next
  [f3].Resize(m + 1, n + 1) = brr
End Sub

tdarling

嗷，这个是自定义函数么？怎么操作，可否再讲一下怎么操作，或者可以用现成的公式和函数么 ？

tdarling

一把小刀闯天下 发表于 2020-3-8 20:00
Option Explicit

Sub test()

嗷，这个是自定义函数么？怎么操作，可否再讲一下怎么操作，或者可以用现成的公式和函数么 ？

一把小刀闯天下

tdarling 发表于 2020-3-8 20:26
嗷，这个是自定义函数么？怎么操作，可否再讲一下怎么操作，或者可以用现成的公式和函数么 ？

这是VBA论坛，你这还不会运行VBA代码，够晕的

花几分钟查一下怎么在Excel中运行VBA代码就可以了，，，