Access挑战Excel第二十七期：合并，又见合并

pureshadow

Roy，下次这种要祭出代码的，就不要拿出来显摆了，Access有VBA，难道Excel没有VBA么？

1. Sub Sample()
   
2. Dim MyRow As Long, i As Long
   
3. Dim MyFind As Range
   
4. Range("d1:e1") = Range("a1:b1").Value
   
5. i = 1
   
6. For MyRow = 2 To 28
   
7.     Set MyFind = Range("d:d").Find(Cells(MyRow, 1), , , xlWhole)
   
8.     If MyFind Is Nothing Then
   
9.         i = i + 1
   
10.         Cells(i, 4) = Cells(MyRow, 1)
    
11.         Cells(i, 5) = Cells(MyRow, 2)
    
12.     Else
    
13.         Cells(MyFind.Row, 5) = Cells(MyFind.Row, 5) & ";" & Cells(MyRow, 2)
    
14.     End If
    
15. Next
    
16. Set MyFind = Nothing
    
17. End Sub

复制代码

pureshadow

好吧，你会说代码太复杂，那PowerQuery怎么样？

进入PQ神器以后到转换选项卡下分个组：


至于具体的分组依据……就这样吧，直接确定：


不过您可能会说，这确定以后的……与我们想要的效果半点不搭界啊？
不搭界不要紧，改一下公式就好了。
把原来的

1. = Table.Group(更改的类型, {"用户ID"}, {{"计数", each Table.RowCount(_), type number}})

复制代码

改成

1. = Table.Group(更改的类型, {"用户ID"}, {{"结果", each Text.Combine([套餐名称],";")}})

复制代码

就行了，看看是不是这样：


最后上传就好了。


效果都在下面的附件里的，有兴趣就自己打开来看吧。不过！非2016版O365请忽略。

pureshadow

好吧，我承认，这题确实让我损失不少脑细胞，后来脑细胞不够用了，就找了N个SQL大神请教，最后无果……
然后又想尝试公式=TEXTJOIN(",",1,IF(A$2:A$7=D2,B$2:B$7))，最后又无果……
Roy，你赢了！

pureshadow

后来LUXS(DiDi9)同学又给出函数解答方法，如附件。