excel问题

[dellxng2000]

A B C D E F
太原刚玉 太原刚玉 南都电源 南都电源 江南高纤 东安黑豹
石油济柴 石油济柴 湘电股份 江南高纤 中科三环 中科三环
南宁糖业 南都电源 顺网科技 中科三环 南都电源 江南高纤
.......

我需要的结果是：如上表格 A,B,C,D,E,F六列数据。每列里都出现的显示在G列里。
excel能实现这个功能么。请高手帮忙

[ZenRoi]

Sub GetStockName()
    Dim Arr, k%, icl%
    Dim Dic As Object, Itm

    Arr = [A1].CurrentRegion
    Set Dic = CreateObject("Scripting.Dictionary")
    For icl = 1 To 6
        For k = 1 To UBound(Arr)
            Dic(Arr(k, icl)) = Dic(Arr(k, icl)) + 1
        Next
    Next

    For Each Itm In Dic
        If Dic(Itm) < 6 Then Dic.Remove Itm
    Next
    Arr = Dic.keys

    [G1].Resize(UBound(Arr) + 1) = Application.Transpose(Arr)
    Set Dic = Nothing
End Sub

[suhuanqi_andy]

不知道楼主是不是想要这样的效果？

A列 B列 C列 D列 E列 F列 G列
a b c d e f abcdef

如果以上是你想要的，那就在G1那个单元格输入公式：
=A1&B1&C1&D1&E1&F1

然后复制G1这个单元格内容，选中G2开始到G。。你要粘贴的区域，粘贴即可。

[books248]

[Quote=引用楼主 dellxng2000 的回复:]
每列里都出现的显示在G列里。
[/Quote]
希望写完再检查一下，上句话让人莫名其妙

[大路谈数字化]

A1&B1&C1&D1&E1&F1


鼠标拉一下即可

[lihw98]

你给的数据是不是不完整？每一列都出现的数据就一个，放在一个单元格就可以了，或者是放哪一行里，总之，楼主问的我无法回答。

[poloyzhang]

好似双击边角也行

[synwaytest]

看不懂啊，我记得excel有个下拉选择的功能，是不是要在G列选择啊。

[dellxng2000]

可能表达有误会。我的意思是。A,B,C,D,E,F每列里都出现的内容显示在G列里。
比如 中科三环，如果A,B,C,D,E,F 列里都有，那么显示在G列里。

谢谢各位关注。这个问题已经解决了。