Vba 逐行分组间距问题
我有四列标识码,对应于一个有多个条目的个体。我需要得到一个列表,其中所有唯一的识别码对应于一行中的每个人,逗号后跟空格。 我有一个VBA来删除重复项,但VBA不起作用-我认为,因为在我要求它查看的最后一行识别码数据中,逗号后面没有空格。我觉得有一个简单的解决办法,但我没有看到。我对VBA非常陌生,对Excel有一定的了解 这是我用来返回每个人代码的累进值的语句,最后一行是他们所有代码在一个单元格中的顶点Vba 逐行分组间距问题,vba,excel,if-statement,Vba,Excel,If Statement,我有四列标识码,对应于一个有多个条目的个体。我需要得到一个列表,其中所有唯一的识别码对应于一行中的每个人,逗号后跟空格。 我有一个VBA来删除重复项,但VBA不起作用-我认为,因为在我要求它查看的最后一行识别码数据中,逗号后面没有空格。我觉得有一个简单的解决办法,但我没有看到。我对VBA非常陌生,对Excel有一定的了解 这是我用来返回每个人代码的累进值的语句,最后一行是他们所有代码在一个单元格中的顶点 =IF(A12=A11,P11&"," &O12, O12) 请参阅附件的
=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
您的工作表示例未获得attachedI试图上传一个图像来帮助解释这一点,但它不允许我这样做,我会再试一次如果您可以“伪造一个表”会更好在文本中,可以复制/粘贴到工作表中。不能使用图像。好的,不要放弃我…我确实做了一个假表,我在工作表中有它,我只是想弄清楚如何将它附加到这个问题上…很抱歉,我显然是新来的:(我很感激你回答了我!试试你的工作表示例没有得到attachedI试图上传一个图像来帮助解释这一点,但它不允许我,我会再试一次如果你能“伪造一张表”会更好)在文本中,可以复制/粘贴到工作表中。不能使用图像。好的,不要放弃我…我确实做了一个假表,我在工作表中有它,我只是想弄清楚如何将它附加到这个问题上…很抱歉,我显然是新来的:(我很感谢你回答我!试试看
╔════════╦════════════╦════╦═══════════╦════════╦═════════════╦═════╦══════════╦══════════════╦══════════════╦══════════════╦══════════════╦══════════════╦══════════════╦═════════════════════════════╦═══════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════╗
║ 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 ║
╚════════╩════════════╩════╩═══════════╩════════╩═════════════╩═════╩══════════╩══════════════╩══════════════╩══════════════╩══════════════╩══════════════╩══════════════╩═════════════════════════════╩═══════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════╩══════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════╝