excel vba中关于多单元无同内容合并

试试:

Sub test()
   With ActiveSheet
        For i = 10 To 58 'j:bf列
            Row = .Cells(65536, i).End(xlUp).Row - 1 '倒数第二
            num = 0: yy = 0: xx = ""
            ReDim Arr(0)
            For j = Row To 2 Step -1
                x = .Cells(j, i)
                If x <> "" Then
                   y = Len(x)
                   yy = num + y
                   ReDim Preserve Arr(yy)
                   For k = y To 1 Step -1
                       Arr(num + y - k) = Mid(x, k, 1)
                   Next
                   num = num + y
                End If
            Next
             Set d = CreateObject("scripting.dictionary")
             For m = 0 To num
                 d(Arr(m)) = d(Arr(m))
             Next
             brr = d.keys
             For n = 1 To d.Count
                 xx = xx & brr(n - 1)
             Next
             Set d = Nothing
             Erase Arr, brr
            .Cells(1, i) = xx
        Next
   End With
End Sub

没看懂结果是怎么组合出来的

描述太复杂，请截图说明。

就是把非空的单元格，里面的数据，去重，提取出来？