excel vba合并第2字符串

Sub xx()
    Dim d As Object
    Set d = CreateObject("Scripting.Dictionary")
    s = "明"
    For Each c In [b5:i12]
        For i = 2 To Len(c)
            x = Mid(c, i, 1)
            d(x) = d(x) + 1
        Next
    Next
        k = d.keys
        t = d.items
    For j = 0 To d.Count - 1
        If t(j) = 1 Then s = s & k(j)
    Next
        [d1] = s
End Sub

Sub 合并()

        For Each rng In Range("b5:c6")

            If Left(rng, 1) = "明" Then s = s & Mid(rng, 2, 1)

        Next

    MsgBox "明" & s

End Sub

你要的结果可以实现