[已解决]这个查找替换宏该如何修改

357111

   ~  

最佳答案

月排行榜 / 总排行榜

grf1973

2015-11-5 15:22

上面的没看，仅查找部分的，可以用先把要查找的内容存入数组，然后对数组各值逐一查找。

1. Cells.Select
   
2.     arr = Array("PSG2 Test NT16 -", "(SOT23)", "(Reel No. Scan)", "PSG2 ", "Test NT16 -", " SOT23", _
   
3.             "Test Semicon (Manual) -", "Schedule Test -", " (Manual)", "_New processing", "Dispatch Test -", "BE-TM-")
   
4.     For i = 0 To UBound(arr)
   
5.         Selection.Replace What:=arr(i), Replacement:="", LookAt:=xlPart, _
   
6.             SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
   
7.             ReplaceFormat:=False
   
8.     Next

复制代码

跳转到最佳答案楼层

grf1973

上面的没看，仅查找部分的，可以用先把要查找的内容存入数组，然后对数组各值逐一查找。

1. Cells.Select
   
2.     arr = Array("PSG2 Test NT16 -", "(SOT23)", "(Reel No. Scan)", "PSG2 ", "Test NT16 -", " SOT23", _
   
3.             "Test Semicon (Manual) -", "Schedule Test -", " (Manual)", "_New processing", "Dispatch Test -", "BE-TM-")
   
4.     For i = 0 To UBound(arr)
   
5.         Selection.Replace What:=arr(i), Replacement:="", LookAt:=xlPart, _
   
6.             SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
   
7.             ReplaceFormat:=False
   
8.     Next

复制代码

357111

有没有更简单的方法      每次查找都要重复    那个代码  如果查找很多就要很多行 感觉不是 简洁的方法  请懂行的人帮忙修改下

357111

grf1973 发表于 2015-11-5 15:22
上面的没看，仅查找部分的，可以用先把要查找的内容存入数组，然后对数组各值逐一查找。

很好 很好  非常好  很专业

357111

grf1973 发表于 2015-11-5 15:22
上面的没看，仅查找部分的，可以用先把要查找的内容存入数组，然后对数组各值逐一查找。

如果想   只 替换 掉  i 列空格  应该怎么改进呢  如果我把 " " 加入上面的数据组 所有单元格空格都没有了

357111

如果想   只 替换 掉  i 列空格  应该怎么改进呢  如果我把 " " 加入上面的数据组 所有单元格空格都没有了

357111

grf1973 发表于 2015-11-5 15:22
上面的没看，仅查找部分的，可以用先把要查找的内容存入数组，然后对数组各值逐一查找。

如果还想    替换 掉  i 列空格  应该怎么改进呢  如果我把 " " 加入上面的数据组 所有单元格空格都没有了

grf1973

[I:I].select
selection.Replace........

无聊的疯子

建一个查找替换库，然后用个循环就行了

A列是查找的值，B列是替换的内容
然后直接循环，，方便改又直观

357111

无聊的疯子 发表于 2015-11-6 16:05
建一个查找替换库，然后用个循环就行了

A列是查找的值，B列是替换的内容

能做一个 案列吗