去除里的重复号码

azsxd

00 11  22 33 44 55 66 77 88 99 25 29 27 28 26 24 59 57 58 56 54 97 98 96 94 78 76 74  86 84 64 52 92 72 82 62 42 95 75 85 65 45 79 89 69 49 87 67 47 68 48 46 81 80  82 84 85 83 10 12 14 15 13 02 04 05 03 24 25 23 45 43 53 18 08 28 48 58 38 01  21 41 51 31 20 40 50 30 42 52 32 54 34 35 68 63 62 69 60 61 83 82 89 80 81 32  39 30 31 29 20 21 90 91 01 86 36 26 96 06 16 38 28 98 08 18 23 93 03 13 92 02  12 09 19 10 20 21 27 25 23 26 01 07 05 03 06 17 15 13 16 75 73 76 53 56 36 02  12 72 52 32 62 10 70 50 30 60 71 51 31 61 57 37 67 35 65 63 12 15 17 18 13 16  25 27 28 23 26 57 58 53 56 78 73 76 83 86 36 21 51 71 81 31 61 52 72 82 32 62  75 85 35 65 87 37 67 38 68 63 20 29 24 21 25 27 09 04 01 05 07 94 91 95 97 41  45 47 15 17 57 02 92 42 12 52 72 90 40 10 50 70 49 19 59 79 14 54 74 51 71 75  26 28 24 23 25 27 68 64 63 65 67 84 83 85 87 43 45 47 35 37 57 62 82 42 32 52  72 86 46 36 56 76 48 38 58 78 34 54 74 53 73 75 94 96 90 98 93 97 46 40 48 43  47 60 68 63 67 08 03 07 83 87 37 49 69 09 89 39 79 64 04 84 34 74 06 86 36 76  80 30 70 38 78 73 83 87 80 84 81 85 37 30 34 31 35 70 74 71 75 04 01 05 41 45  15 38 78 08 48 18 58 73 03 43 13 53 07 47 17 57 40 10 50 14 54 51 65 63 61 64  60 67 53 51 54 50 57 31 34 30 37 14 10 17 40 47 07 56 36 16 46 06 76 35 15 45  05 75 13 43 03 73 41 01 71 04 74 70 42 47 45 49 46 48 27 25 29 26 28 75 79 76  78 59 56 58 96 98 68 24 74 54 94 64 84 72 52 92 62 82 57 97 67 87 95 65 85 69  89 86

注，所有号是在同一单元格里

雾里花

是不是可以先分列？

雾里花

这人气不够呀

岁月峥嵘2013

1. Sub 去重复()
   
2.     Dim i, j As Integer
   
3.     Dim chongFu, yuanShuJu, yuanShuJu1, yuanShuJu2, quChongfu As String
   
4.     yuanShuJu = Cells(1, 1)
   
5.     For i = 0 To 99
   
6.         chongFu = Right("0" & i, 2)
   
7.         j = InStr(yuanShuJu, chongFu)
   
8.         If j >= 1 Then
   
9. '本来以为可以用replace函数从第j位向后替换重复，结果会出问题，就把源数据拆成两段了
   
10.             yuanShuJu1 = Left(yuanShuJu, j + 1)
    
11.             yuanShuJu2 = Right(yuanShuJu, Len(yuanShuJu) - j - 1)
    
12.             yuanShuJu2 = Replace(yuanShuJu2, chongFu, "  ")
    
13.             yuanShuJu = yuanShuJu1 & yuanShuJu2
    
14.         End If
    
15.     Next
    
16.    
    
17. '本应该替换一次就可以的，但是就算替换100次，还是会有连续的空格，不理解，也许不是空格或者我这个初学者对replace函数的理解不够透彻
    
18.     quChongfu = Replace(yuanShuJu, "  ", " ")
    
19.     For i = 0 To 50
    
20.         quChongfu = Replace(quChongfu, "  ", " ")
    
21.     Next
    
22.     Cells(2, 1) = quChongfu
    
23. End Sub

复制代码

azsxd

岁月峥嵘2013 发表于 2019-3-17 21:49

谢谢了，，，，，，，，，，，，