[求助]如何找出不重复的汉字

rufo · 发表于 2008-4-18 14:50

有一列数据如下：

张三
　　李四
　　陈飞飞
　　王四
　　李三
　　李小飞
　　陈大飞

我要得到的结果为：张、三、李、四、陈、飞、王、小、大。

hbf5B3KT.rar (2.31 KB, 下载次数: 6)

lanyuu · 发表于 2008-4-18 15:00

先分列，再找

samsoncsr · 发表于 2008-4-18 15:03

这题求不重复的字符要用函数解决，估计神仙都头疼。

除非用辅助列。

方法思路如下：

用&把A1到A20合并，然后用MID把合并的字符一一拆解到单个单元格，然后求不重复的字符，最后用Index或Offset排序。

很复杂。

楼上的分列也是一种方法，可以适度取代以上的一一拆解。

[此贴子已经被作者于2008-4-18 15:07:22编辑过]

hbhfgh4310 · 发表于 2008-4-18 15:14

直接使用公式难度较大，分几步操作后获得。不知是否合适。

FX7A0GfJ.rar (16.64 KB, 下载次数: 13)

saobazt · 发表于 2008-4-18 15:33

1.先将A1:A20以无格式文本粘贴到word中

2.在word中将","和"^p"替换掉,这样可以得到一个无间断文本串

3.将文本拷贝回到EXCEL的一个单元格中

4.最后用公式去除重复文本

请版主指点公式写法

rangers · 发表于 2008-4-18 15:40

先分列，把名字分成一格一个字，然后弄到一列里，再用数据透视表就ok了。

gvntw · 发表于 2008-4-18 15:46

给一个用公式+定义名称直接得到结果的方法。

如果数据量大，建议用VBA。

M4SyXZk9.rar (3.39 KB, 下载次数: 29)

gvntw · 发表于 2008-4-18 16:07

用VBA速度快多了：

Sub gvntw()
    Dim i As Long
    Dim c As Range
    Dim rg As Range
    Dim tmp As String
    Dim Class As New Collection

    Application.ScreenUpdating = False
    For Each c In Range("A1:A" & Range("A65536").End(xlUp).Row)
        tmp = tmp & c.Value
    Next

    tmp = Replace(tmp, "，", "")
    Range("B:S").ClearContents

    On Error Resume Next
    For i = 1 To Len(tmp)
        Class.Add Mid(tmp, i, 1), Mid(tmp, i, 1)
    Next

    On Error GoTo 0
    Set rg = Range("B2")
    For i = 1 To Class.Count
        rg = Class(i)
        Set rg = IIf(rg.Column = 19, Cells(rg.Row + 1, 2), rg.Offset(, 1))
    Next

    Application.ScreenUpdating = True
End Sub

m8VEhVj4.rar (11.53 KB, 下载次数: 13)

shaowu459 · 发表于 2008-4-18 18:33

把列宽设置成255，然后选中，用编辑菜单填充中的重排命令可以减少操作量，也可以用函数a2&a1下拉连接文本

rufo · 发表于 2008-4-19 14:02

非常感谢！这里高手如云，这里才是我的好老师。

		自动登录	找回密码
密码			免费注册

[求助]如何找出不重复的汉字

回复：（rufo）[求助]如何找出不重复的汉字