VBA如何在一列数据中将包含某字符的单元格挑选出来，并合并在一个单元格中（分号分...

zhangzhanggu

求助各位大神，如何才能把B列中包含A列中各单元格字符的相应单元格匹配给A列，并且能以分号分隔合并在一个单元格内。谢谢大家！

jiminyanyan

上个附件．．．．．．．．．．

zhangzhanggu

jiminyanyan 发表于 2018-4-5 20:45
上个附件．．．．．．．．．．

多谢回复，麻烦您帮忙解答。

duquancai

Sub test()
    Dim arr, brr(), fg As Boolean
    r = Range("a:b").Find("*", , , , 1, 2).Row
    arr = Range("a1:b" & r)
    ReDim brr(1 To r, 1 To 2)
    For i = 1 To r
        brr(i, 1) = arr(i, 1)
        For j = 1 To r
            If InStr(arr(j, 2), arr(i, 1)) * Len(arr(i, 1)) Then
                If Not fg Then
                    brr(i, 2) = arr(j, 2): fg = True
                Else
                    brr(i, 2) = brr(i, 2) & ";" & arr(j, 2)
                End If
            End If
        Next
        fg = False
    Next
    Range("e1").Resize(r, 2) = brr
End Sub

zhangzhanggu

duquancai 发表于 2018-4-5 21:10
Sub test()
    Dim arr, brr(), fg As Boolean
    r = Range("a:b").Find("*", , , , 1, 2).Row

完美！谢谢老师！

jjmysjg

留下记号，谢谢