一个单元格内录入了两个手机号码  ，一部分相同 一部分不同，如何将相同的只保留一个呢？可以通过下面的VBA删除  6为删除的列

1. 
   
2. <P>Sub deldata()
   
3.    Dim i As Integer
   
4.    For i = 1 To 8000  </P>
   
5. <P>        If  Left(Cells(i, 6), 11) = Right(Cells(i, 6), 11) Then
   
6.             Cells(i, 6).Select
   
7.             MsgBox Left(Cells(i, 6), 11) & "|" & Right(Cells(i, 6), 11)
   
8.             Cells(i, 6).Value = Left(Cells(i, 6), 11)
   
9.         End If
   
10.    Next
    
11. End Sub
    
12. </P>

复制代码

一个单元格内录入了两个手机号码  ，一部分相同 一部分不同，如何将相同的只保留一个呢？可以通过下面的VBA删除  6为删除的列

1. 
   
2. <P>Sub deldata()
   
3.    Dim i As Integer
   
4.    For i = 1 To 8000  </P>
   
5. <P>        If  Left(Cells(i, 6), 11) = Right(Cells(i, 6), 11) Then
   
6.             Cells(i, 6).Select
   
7.             MsgBox Left(Cells(i, 6), 11) & "|" & Right(Cells(i, 6), 11)
   
8.             Cells(i, 6).Value = Left(Cells(i, 6), 11)
   
9.         End If
   
10.    Next
    
11. End Sub
    
12. </P>

复制代码