请教大神，Excel 如何自动将满足条件的单元格内容合并在一起

simatt · 发表于 2017-12-12 18:19

niko88819 · 发表于 2017-12-12 19:18

本帖最后由 niko88819 于 2017-12-12 19:22 编辑

是这意思吗？请楼主参考一下吧

sdc3211772 · 发表于 2017-12-12 20:24

Sub dddd()
Dim d As Object, arr, arr1(), i%, n%, m%
Set d = CreateObject("scripting.dictionary")
arr = Sheets("欠料明细").Range("a2:c" & Sheets("欠料明细").Cells(Rows.Count, 1).End(xlUp).Row)
Range("a:b").ClearContents
[a1] = "订单单号": [b1] = "欠料汇总"
For i = 1 To UBound(arr)
If arr(i, 3) < 0 Then
      If Not d.exists(arr(i, 1)) Then
      n = n + 1
      d(arr(i, 1)) = n
      ReDim Preserve arr1(1 To 2, 1 To n)
      arr1(1, n) = arr(i, 1)
      arr1(2, n) = arr(i, 2)
Else
      m = d(arr(i, 1))
      arr1(2, m) = Join(Array(arr1(2, m), arr(i, 2)), "、")
      End If
End If
Next
Cells(2, 1).Resize(n, 2) = Application.Transpose(arr1)
End Sub

simatt · 发表于 2017-12-13 08:24

niko88819 发表于 2017-12-12 19:18
是这意思吗？请楼主参考一下吧

#NAME?下载出来显示这个？

niko88819 · 发表于 2017-12-13 08:34

楼主，你的工作表要有我的自定义函数代码才能正常执行的

gykg-excel · 发表于 2017-12-13 10:22

2016=TEXTJOIN("、",,IF(欠料明细!C:C<0,欠料明细!B:B,""))

simatt · 发表于 2017-12-13 11:01

niko88819 发表于 2017-12-13 08:34
楼主，你的工作表要有我的自定义函数代码才能正常执行的

需要用到VBA么

niko88819 · 发表于 2017-12-13 12:00

对的，函数公式没办法解决就要用自定义函数或是vba

simatt · 发表于 2018-3-5 08:39

谢谢各位的帮助

		自动登录	找回密码
密码			免费注册

[求助] 请教大神，Excel 如何自动将满足条件的单元格内容合并在一起

评分