怎样合并同行中, 不同列中的不同内容??

Eason_He

例如:两行中 有相同的内容, 想在G列得到 合并所有列中,不同的内容,相同的只显示一个.

A	B	C	D	E	F	G
1	UUU	AAA	AAA	EEE	UUU	UUU, AAA, EEE
2	AAA	AAA	EEE	BBB	BBB	AAA, EEE, BBB

有2000多行的数据,是否有何公式可以实现,请各路大侠相助,多谢了!!

Eason_He

因数据有2000多行, 是否有什么公式, 请各路大侠相助!! 多谢.

安全为主

Eason_He 发表于 2013-3-9 15:27
因数据有2000多行, 是否有什么公式, 请各路大侠相助!! 多谢.

打开文件，启用宏，contxt自定义函数
Book1.rar (7 KB, 下载次数: 24)

2013-3-9 19:00 上传

点击文件名下载附件

安全为主

Eason_He

EH 侠圣, 我按照你的公式, 照葫芦画瓢, 没有反应, 怎样启用宏呀. 已附上附件, 帮忙再看看, 多谢了!!

安全为主

Eason_He 发表于 2013-3-9 23:24
EH 侠圣, 我按照你的公式, 照葫芦画瓢, 没有反应, 怎样启用宏呀. 已附上附件, 帮忙再看看, 多谢了!!

源数据有空格了，还有match等于的参数范围也不对……
副本Xl0000400.rar (55.76 KB, 下载次数: 5)

2013-3-11 12:02 上传

点击文件名下载附件

Eason_He

安全为主 发表于 2013-3-11 08:03
源数据有空格了，还有match等于的参数范围也不对……

多谢, 看了你的文件,里面除了公式外, 还有宏代码,但是copy到我的文件中(excel 2007)却不能保留, 不知为何!
Option Explicit
Function Contxt(ParamArray args() As Variant) As Variant
    Dim tmptext As Variant, i As Variant, cellv As Variant
    Dim cell As Range
    tmptext = ""

    For i = 0 To UBound(args)
        If Not IsMissing(args(i)) Then
            Select Case TypeName(args(i))
            Case "Range"
                For Each cell In args(i)
                    tmptext = tmptext & cell
                Next cell
            Case "Variant()"
                For Each cellv In args(i)
                    tmptext = tmptext & cellv
                Next cellv
            Case Else
                tmptext = tmptext & args(i)
            End Select
        End If
    Next i

    Contxt = Left(tmptext, Len(tmptext) - 1)
End Function

安全为主

Eason_He 发表于 2013-3-12 22:02
多谢, 看了你的文件,里面除了公式外, 还有宏代码,但是copy到我的文件中(excel 2007)却不能保留, 不知为何 ...

这个是论坛合并文本的自定义函数contxt，对于vba只会搬家使用，且我的2003的，至于你的07的不好存什么的我就不知道了。{:soso_e112:}

〖吴诩〗

看看这个行不行