将特定的内容替换成空

112ppp

将特定的内容替换成空

smiletwo

112ppp

我只是写的个示例，不一定就是中国，或省之类的，有些其他的内容，意思就是要把多个不一样的内容，替换成空。然后像我写的代码那样，需要更简化点的。需要用代码解决。

Elites

1. Sub ReplaceChinaProvince()
   
2. '定义变量i
   
3. Dim i As Long
   
4. '循环读取D列所有数据
   
5. For i = 1 To Cells(Rows.Count, "D").End(xlUp).Row
   
6.     '判断D列数据中是否包含“中国”或者“**省”
   
7.     If InStr(1, Cells(i, 4), "中国") > 0 Or InStr(1, Cells(i, 4), "**省") > 0 Then
   
8.         '如果包含则将D列数据中的“中国”或者“**省”替换为空，其他字符保留，写入F列
   
9.         Cells(i, 6) = Replace(Cells(i, 4), "中国", "")
   
10.         Cells(i, 6) = Replace(Cells(i, 6), "**省", "")
    
11.     Else
    
12.         '不包含则将D列数据写入F列
    
13.         Cells(i, 6) = Cells(i, 4)
    
14.     End If
    
15. '循环结束
    
16. Next i
    
17. '宏代码结束
    
18. End Sub

复制代码

顺便说一下，新版本的EXCEl的XLSX格式不支持保存宏，改成XLS格式。如果硬要用XLSX格式，可以用substitute公式替换相应字符

112ppp

smiletwo 发表于 2023-2-28 15:49

老师，您这个并没有达到我要的目的。我主要是希望把多个不一样的信息，都替换成空，这里只是写个的例子。而主要是想知道代码应该怎么写。现在表中只是知道一个内容替换成空，如果要有多个内容替换成空的情况，代码该如何写。

xiaocake

112ppp 发表于 2023-2-28 16:06
老师，您这个并没有达到我要的目的。我主要是希望把多个不一样的信息，都替换成空，这里只是写个的例子。 ...

上面老师给你写了正则表达式，是给你指了路，这条路能否实现目的，你得去走一下再下结论。
如果不会使用，请自行搜搜相关内容。

smiletwo

不嫌麻烦的话，可以用以下代码：

112ppp

smiletwo 发表于 2023-2-28 16:35
不嫌麻烦的话，可以用以下代码：

这个就是我想要的，感谢，老师。但是需要在原列中进行修改，而不是放到另一列上。F列只是写出要达到的结果。

smiletwo

112ppp 发表于 2023-2-28 17:19
这个就是我想要的，感谢，老师。但是需要在原列中进行修改，而不是放到另一列上。F列只是写出要达到的结 ...

这点问题就自己改改了。F1 改为D1。

tanglf188

能解决大部分问题：
ActiveSheet.Range("D:D").Replace "*省", ""