逐行列分组间距问题

我有四列的Ident代码对应于一个人有多个条目。 我需要得到一列与所有唯一的识别码对应的每一个人在一行中用逗号后面跟着一个空格。 我有一个VBA删除重复，但VBA将无法正常工作 – 我认为，因为这些逗号之后没有一个空格后面的我的代码数据的最后一行，我要求看看。 我觉得有一个简单的解决scheme，我只是没有看到它。 我非常新的VBA和Excel适度。

这是我用来返回与每个人有关的代码的渐进值的陈述，最后一行是所有代码在一个单元格中的顶点

=IF(A12=A11,P11&"," &O12, O12) 

请参阅附加文件列P – 当它达到四个或更多的代码时，逗号之后没有空格，VBA副本去除程序不起作用。

[我的工作表样本

我得到了公式后，我应该能够运行此VBA摆脱所有代码的高潮线路中的重复…我认为…

 Function RemoveDupes2(txt As String, Optional delim As String = " ") As String Dim x 'Updateby20140924 With CreateObject("Scripting.Dictionary") .CompareMode = vbTextCompare For Each x In Split(txt, delim) If Trim(x) <> "" And Not .exists(Trim(x)) Then .Add Trim(x), Nothing Next If .Count > 0 Then RemoveDupes2 = Join(.keys, delim) End With End Function 

我不知道还有什么可以尝试的，有成千上万的我需要经过

任何人可以给我的帮助将是惊人的，我会很感激。 我发现这个网站上的公式和VBA，并修改它们到我的需要，但我认为我不太了解它足够正确地修改它。

 ╔════════╦════════════╦════╦═══════════╦════════╦═════════════╦═════╦══════════╦══════════════╦══════════════╦══════════════╦══════════════╦══════════════╦══════════════╦═════════════════════════════╦═══════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════╗ ║ Number ║ First Name ║ MI ║ Last Name ║ Suffix ║ Patient DOB ║ Sex ║ Zip Code ║ Home Phone ║ Ident Code 1 ║ Ident Code 2 ║ Ident Code 3 ║ Ident Code 4 ║ Service Date ║ Row Groups ║ Individual Code Set ║ ╠════════╬════════════╬════╬═══════════╬════════╬═════════════╬═════╬══════════╬══════════════╬══════════════╬══════════════╬══════════════╬══════════════╬══════════════╬═════════════════════════════╬═══════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════╣ ║ 5 ║ Jane ║ D ║ Doe ║ ║ 1/1/1999 ║ F ║ 44444 ║ 333-333-3333 ║ G10 ║ T76 ║ ║ ║ 2/5/1995 ║ G10, T76 ║ G10, T76 ║ ║ 5 ║ Jane ║ D ║ Doe ║ ║ 1/1/1999 ║ F ║ 44444 ║ 333-333-3333 ║ G10 ║ E78.5 ║ D70.6 ║ Q90.28 ║ 2/3/2017 ║ G10, E78.5, D70.6, Q90.28 ║ G10, T76,G10, E78.5, D70.6, Q90.28 ║ ║ 5 ║ Jane ║ D ║ Doe ║ ║ 1/1/1999 ║ F ║ 44444 ║ 333-333-3333 ║ B15 ║ ║ ║ ║ 5/7/2017 ║ B15 ║ G10, T76,G10, E78.5, D70.6, Q90.28,B15 ║ ║ 5 ║ Jane ║ D ║ Doe ║ ║ 1/1/1999 ║ F ║ 44444 ║ 333-333-3333 ║ B15 ║ ║ ║ ║ 6/5/2015 ║ B15 ║ G10, T76,G10, E78.5, D70.6, Q90.28,B15,B15 ║ ║ 2 ║ Bob ║ L ║ Man ║ ║ 5/5/2007 ║ M ║ 44444 ║ 333-333-3333 ║ I10 ║ K21.0 ║ E03.9 ║ M77.11 ║ 5/5/2015 ║ I10, K21.0, E03.9, M77.11 ║ I10, K21.0, E03.9, M77.11 ║ ║ 2 ║ Bob ║ L ║ Man ║ ║ 5/5/2007 ║ M ║ 44444 ║ 333-333-3333 ║ H44.256 ║ ║ ║ ║ 3/3/1995 ║ H44.256 ║ I10, K21.0, E03.9, M77.11,H44.256 ║ ║ 2 ║ Bob ║ L ║ Man ║ ║ 5/5/2007 ║ M ║ 44444 ║ 333-333-3333 ║ H44.256 ║ ║ ║ ║ 2/8/1978 ║ H44.256 ║ I10, K21.0, E03.9, M77.11,H44.256,H44.256 ║ ║ 2 ║ Bob ║ L ║ Man ║ ║ 5/5/2007 ║ M ║ 44444 ║ 333-333-3333 ║ H44.256 ║ ║ ║ ║ 3/8/2014 ║ H44.256 ║ I10, K21.0, E03.9, M77.11,H44.256,H44.256,H44.256 ║ ║ 2 ║ Bob ║ L ║ Man ║ ║ 5/5/2007 ║ M ║ 44444 ║ 333-333-3333 ║ M22.58 ║ ║ ║ ║ 6/1/1956 ║ M22.58 ║ I10, K21.0, E03.9, M77.11,H44.256,H44.256,H44.256,M22.58 ║ ║ 2 ║ Bob ║ L ║ Man ║ ║ 5/5/2007 ║ M ║ 44444 ║ 333-333-3333 ║ Z78.563 ║ N35 ║ Z12.39 ║ J23.5 ║ 5/4/2016 ║ Z78.563, N35, Z12.39, J23.5 ║ I10, K21.0, E03.9, M77.11,H44.256,H44.256,H44.256,M22.58,Z78.563, N35, Z12.39, J23.5 ║ ║ 2 ║ Bob ║ L ║ Man ║ ║ 5/5/2007 ║ M ║ 44444 ║ 333-333-3333 ║ E03.9 ║ N35 ║ R19.7 ║ O22.3 ║ 2/2/1998 ║ E03.9, N35, R19.7, O22.3 ║ I10, K21.0, E03.9, M77.11,H44.256,H44.256,H44.256,M22.58,Z78.563, N35, Z12.39, J23.5,E03.9, N35, R19.7, O22.3 ║ ║ 2 ║ Bob ║ L ║ Man ║ ║ 5/5/2007 ║ M ║ 44444 ║ 333-333-3333 ║ H26.9 ║ Z01.818 ║ B23.356 ║ ║ 3/5/2017 ║ H26.9, Z01.818, B23.356 ║ I10, K21.0, E03.9, M77.11,H44.256,H44.256,H44.256,M22.58,Z78.563, N35, Z12.39, J23.5,E03.9, N35, R19.7, O22.3,H26.9, Z01.818, B23.356 ║ ╚════════╩════════════╩════╩═══════════╩════════╩═════════════╩═════╩══════════╩══════════════╩══════════════╩══════════════╩══════════════╩══════════════╩══════════════╩═════════════════════════════╩═══════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════╝ ╔════════╦════════════╦════╦═══════════╦════════╦═════════════╦═════╦══════════╦══════════════╦══════════════╦══════════════╦══════════════╦══════════════╦══════════════╦═════════════════════════════╦═══════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════╦══════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════╗ ║ Number ║ First Name ║ MI ║ Last Name ║ Suffix ║ Patient DOB ║ Sex ║ Zip Code ║ Home Phone ║ Ident Code 1 ║ Ident Code 2 ║ Ident Code 3 ║ Ident Code 4 ║ Service Date ║ Row Groups ║ Individual Code Set ║ VBA ║ ╠════════╬════════════╬════╬═══════════╬════════╬═════════════╬═════╬══════════╬══════════════╬══════════════╬══════════════╬══════════════╬══════════════╬══════════════╬═════════════════════════════╬═══════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════╬══════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════╣ ║ 5 ║ Jane ║ D ║ Doe ║ ║ 1/1/1999 ║ F ║ 44444 ║ 333-333-3333 ║ G10 ║ T76 ║ ║ ║ 2/5/1995 ║ G10, T76 ║ G10, T76 ║ G10, T76 ║ ║ 5 ║ Jane ║ D ║ Doe ║ ║ 1/1/1999 ║ F ║ 44444 ║ 333-333-3333 ║ G10 ║ E78.5 ║ D70.6 ║ Q90.28 ║ 2/3/2017 ║ G10, E78.5, D70.6, Q90.28 ║ G10, T76,G10, E78.5, D70.6, Q90.28 ║ G10, T76,G10, E78.5, D70.6, Q90.28 ║ ║ 5 ║ Jane ║ D ║ Doe ║ ║ 1/1/1999 ║ F ║ 44444 ║ 333-333-3333 ║ B15 ║ ║ ║ ║ 5/7/2017 ║ B15 ║ G10, T76,G10, E78.5, D70.6, Q90.28,B15 ║ G10, T76,G10, E78.5, D70.6, Q90.28,B15 ║ ║ 5 ║ Jane ║ D ║ Doe ║ ║ 1/1/1999 ║ F ║ 44444 ║ 333-333-3333 ║ B15 ║ ║ ║ ║ 6/5/2015 ║ B15 ║ G10, T76,G10, E78.5, D70.6, Q90.28,B15,B15 ║ G10, T76,G10, E78.5, D70.6, Q90.28,B15,B15 ║ ║ 2 ║ Bob ║ L ║ Man ║ ║ 5/5/2007 ║ M ║ 44444 ║ 333-333-3333 ║ I10 ║ K21.0 ║ E03.9 ║ M77.11 ║ 5/5/2015 ║ I10, K21.0, E03.9, M77.11 ║ I10, K21.0, E03.9, M77.11 ║ I10, K21.0, E03.9, M77.11 ║ ║ 2 ║ Bob ║ L ║ Man ║ ║ 5/5/2007 ║ M ║ 44444 ║ 333-333-3333 ║ H44.256 ║ ║ ║ ║ 3/3/1995 ║ H44.256 ║ I10, K21.0, E03.9, M77.11,H44.256 ║ I10, K21.0, E03.9, M77.11,H44.256 ║ ║ 2 ║ Bob ║ L ║ Man ║ ║ 5/5/2007 ║ M ║ 44444 ║ 333-333-3333 ║ H44.256 ║ ║ ║ ║ 2/8/1978 ║ H44.256 ║ I10, K21.0, E03.9, M77.11,H44.256,H44.256 ║ I10, K21.0, E03.9, M77.11,H44.256,H44.256 ║ ║ 2 ║ Bob ║ L ║ Man ║ ║ 5/5/2007 ║ M ║ 44444 ║ 333-333-3333 ║ H44.256 ║ ║ ║ ║ 3/8/2014 ║ H44.256 ║ I10, K21.0, E03.9, M77.11,H44.256,H44.256,H44.256 ║ I10, K21.0, E03.9, M77.11,H44.256,H44.256,H44.256 ║ ║ 2 ║ Bob ║ L ║ Man ║ ║ 5/5/2007 ║ M ║ 44444 ║ 333-333-3333 ║ M22.58 ║ ║ ║ ║ 6/1/1956 ║ M22.58 ║ I10, K21.0, E03.9, M77.11,H44.256,H44.256,H44.256,M22.58 ║ I10, K21.0, E03.9, M77.11,H44.256,H44.256,H44.256,M22.58 ║ ║ 2 ║ Bob ║ L ║ Man ║ ║ 5/5/2007 ║ M ║ 44444 ║ 333-333-3333 ║ Z78.563 ║ N35 ║ Z12.39 ║ J23.5 ║ 5/4/2016 ║ Z78.563, N35, Z12.39, J23.5 ║ I10, K21.0, E03.9, M77.11,H44.256,H44.256,H44.256,M22.58,Z78.563, N35, Z12.39, J23.5 ║ I10, K21.0, E03.9, M77.11,H44.256,H44.256,H44.256,M22.58,Z78.563, N35, Z12.39, J23.5 ║ ║ 2 ║ Bob ║ L ║ Man ║ ║ 5/5/2007 ║ M ║ 44444 ║ 333-333-3333 ║ E03.9 ║ N35 ║ R19.7 ║ O22.3 ║ 2/2/1998 ║ E03.9, N35, R19.7, O22.3 ║ I10, K21.0, E03.9, M77.11,H44.256,H44.256,H44.256,M22.58,Z78.563, N35, Z12.39, J23.5,E03.9, N35, R19.7, O22.3 ║ I10, K21.0, E03.9, M77.11,H44.256,H44.256,H44.256,M22.58,Z78.563, N35, Z12.39, J23.5,E03.9, R19.7, O22.3 ║ ║ 2 ║ Bob ║ L ║ Man ║ ║ 5/5/2007 ║ M ║ 44444 ║ 333-333-3333 ║ H26.9 ║ Z01.818 ║ B23.356 ║ ║ 3/5/2017 ║ H26.9, Z01.818, B23.356 ║ I10, K21.0, E03.9, M77.11,H44.256,H44.256,H44.256,M22.58,Z78.563, N35, Z12.39, J23.5,E03.9, N35, R19.7, O22.3,H26.9, Z01.818, B23.356 ║ I10, K21.0, E03.9, M77.11,H44.256,H44.256,H44.256,M22.58,Z78.563, N35, Z12.39, J23.5,E03.9, R19.7, O22.3,H26.9, Z01.818, B23.356 ║ ╚════════╩════════════╩════╩═══════════╩════════╩═════════════╩═════╩══════════╩══════════════╩══════════════╩══════════════╩══════════════╩══════════════╩══════════════╩═════════════════════════════╩═══════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════╩══════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════╝