我有四列Ident代码，对应一个具有多个条目的个体。我需要在一行上获得与每个人相对应的所有唯一Ident代码的列表，其中包含逗号，后跟空格之间的空格。 我有一个VBA来删除重复项，但是VBA将无法工作 - 我想因为逗号在我要求它查看的Ident代码数据的最后一行中没有空格。我觉得有一个简单的解决方案，我只是没有看到它。我对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 ║
╚════════╩════════════╩════╩═══════════╩════════╩═════════════╩═════╩══════════╩══════════════╩══════════════╩══════════════╩══════════════╩══════════════╩══════════════╩═════════════════════════════╩═══════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════╩══════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════╝