[已解决]求教，删除多个单元格内相同的数字

xxxx5683123

{:011:}
将C6单元格内与C2单元格相同的数字删除 ，同时在删除与C4单元格相同的数字，结果显示在C9


详细说明在附件里
删除多个单元格内相同的数字.rar (7.85 KB, 下载次数: 16)

2012-10-30 20:54 上传

点击文件名下载附件   
{:211:}

最佳答案

月排行榜 / 总排行榜

suye1010

2012-10-30 21:47

1. Sub ExtractNo()
   
2. Dim ArrC, Result, i
   
3. Result = Cells(6, 3).Value
   
4. For i = 2 To 4 Step 2
   
5.     For Each ArrC In Split(Cells(i, 3).Value, " ")
   
6.         Result = Replace(Replace(Result, ArrC, ""), "  ", " ")
   
7.     Next
   
8. Next i
   
9. 
   
10. Cells(9, 3) = Result
    
11. 
    
12. End Sub
    

复制代码

跳转到最佳答案楼层

suye1010

1. Sub ExtractNo()
   
2. Dim ArrC, Result, i
   
3. Result = Cells(6, 3).Value
   
4. For i = 2 To 4 Step 2
   
5.     For Each ArrC In Split(Cells(i, 3).Value, " ")
   
6.         Result = Replace(Replace(Result, ArrC, ""), "  ", " ")
   
7.     Next
   
8. Next i
   
9. 
   
10. Cells(9, 3) = Result
    
11. 
    
12. End Sub
    

复制代码

xxxx5683123

suye1010 发表于 2012-10-30 21:47

谢谢高手，真厉害{:211:}{:221:}

hongqiqqq

仰视、仰视
就快要实施新的计划了