从前面去重复比如:12310503这个数从前面去掉重复后是:12305

addyfeng

从前面去重复比如:12310503这个数从前面去掉重复后是:12305

这样用什么函数,急!!!!!!那位指导一下,先谢了!

井底之蛙

这是我以前写的，可以参考一下

将字符串"abcbcdcdefgfghj"里不重复的取出来，得到"abcdefghj"
    Dim mystring$
    Dim i%, j%
    Dim res$
    Dim isok As Boolean
    mystring = "abcbcdcdefgfghj"
    res = Mid(mystring, 1, 1)
    i = 2
    isok = True
    Do While i <= Len(mystring)
        For j = 1 To i - 1
            If Mid(mystring, i, 1) = Mid(res, j, 1) Then
                isok = False
                Exit For
            End If
        Next j
        If isok Then res = res + Mid(mystring, i, 1)
        i = i + 1
        isok = True
    Loop
    MsgBox res

addyfeng

非常感谢回贴,但是我对这个不懂,能否加QQ解说一下,帮帮忙好吗!

addyfeng

QQ224652835

车牌:     你真的知道吗?

井底之蛙

可以用下面的自定义函数

Function change(rg1 As Range) As String
    Dim mystring$
    Dim i%, j%
    Dim res$
    Dim isok As Boolean
    mystring = rg1.Value
    res = Mid(mystring, 1, 1)
    i = 2
    isok = True
    Do While i <= Len(mystring)
        For j = 1 To i - 1
            If Mid(mystring, i, 1) = Mid(res, j, 1) Then
                isok = False
                Exit For
            End If
        Next j
        If isok Then res = res + Mid(mystring, i, 1)
        i = i + 1
        isok = True
    Loop
    change = res
End Function

 

4vzMBe2I.rar (6.26 KB, 下载次数: 11)

2007-8-13 17:40 上传

点击文件名下载附件
从前面去重复比如:12310503这个数从前面去掉重复后是:12305

addyfeng

我不会自定义函数,我用的是OFFICE 2007,能说详细吗?

addyfeng

你发给我的是好的也可以用非常感谢，我现在面临的是怎么打开ＶＢＡ，找都找不到在那，还有怎么把自定义的函数，保存到我的电脑上．我想我搞懂这个就可以啦

[em17]

山菊花

A1=12310503

1、光标定位到第1行，自定义名称：

构造一个序号数组{1;2;3……}，元素个数等于A1中数字的位数：

Row=ROW(INDIRECT("1:"&LEN(Sheet3!$A1)))

A1中不重复数字的个数：

Sum=SUM(--ISNUMBER(FIND(ROW(Sheet3!$1:$10)-1,Sheet3!$A1)))

2、公式：

B1=SUM(RIGHT(SMALL(IF(FIND(MID($A1,Row,1),$A1)=Row,Row*100+MID($A1,Row,1)),ROW(INDIRECT("1:"&Sum))))*10^(Sum-ROW(INDIRECT("1:"&Sum))))

 数组公式，按Ctrl+Shift+Enter结束。

公式限制：0不在数字前面。

如果存在0在前面的情况，可外层嵌套Text()函数:

B1=TEXT(SUM(RIGHT(SMALL(IF(FIND(MID($A1,Row,1),$A1)=Row,Row*100+MID($A1,Row,1)),ROW(INDIRECT("1:"&Sum))))*10^(Sum-ROW(INDIRECT("1:"&Sum)))),REPT("0",Sum))

[此贴子已经被作者于2007-8-13 22:36:11编辑过]

井底之蛙

QUOTE:

以下是引用addyfeng在2007-8-13 21:09:28的发言：

你发给我的是好的也可以用非常感谢，我现在面临的是怎么打开ＶＢＡ，找都找不到在那，还有怎么把自定义的函数，保存到我的电脑上．我想我搞懂这个就可以啦

[em17]

1、打开你要处理的文件
2、按ALT+F11打开VBE的环境
3、“插入”-“模块”，把五楼的代码贴到右半边的空白处
4、“文件”-“关闭并返回到EXCEL”
5、保存文件后就可以使用自定义函数了

函数名：change，它需要一个参数，参数必须为一个单元格引用。
如：A1中是12310503，在B1中输入公式=change(A1)就可以得到12305

addyfeng

8楼的方法,我试过啦,不行,不知道错在那里,能传个附件上来吗?谢谢