excel表格操作

[ZXYperseverance]

我想问大家一个excel问题，希望各位大神，知道的回答下。谢谢了


例如 我现在有2列，A列和B列， 并且每一个都是唯一的值，我想生成C列，C列的数据是A和B交集之后的数据。
如何才能生成像下面那样C列的数据呢？


A列 B列 C列
花生 雪糕 花生
牛奶 牛奶 牛奶
饼干 冰淇淋 饼干
香蕉 花生 香蕉
雪糕
冰淇淋

[Runnerchin]

复制A的所有数据，粘贴到C，复制B的所有数据，紧跟着A的内容追加到C后边，选中C列，“数据”标签-> 删除重复项->弹出的提示框里选择“不选定扩展区域”

[chang_bo]

方法很多： http://www.officezhushou.com/excel2013/741.html

[hanson1025]

Sub demo()
    Dim arr, i&, j%, dic As Object
    Set dic = CreateObject("scripting.dictionary")
    arr = Sheets("sheet1").[a1].CurrentRegion
    For j = 1 To UBound(arr, 2)
        For i = 1 To UBound(arr)
        If arr(i, j) <> "" Then
            If Not dic.exists(arr(i, j)) Then
                dic(arr(i, j)) = ""
            End If
        End If
        Next
    Next
    Sheets("sheet1").[a1].Resize(dic.Count, 1) = Application.Transpose(dic.keys)
End Sub

把所有列内容复制到A列