Excel 使用VBA批量替换

1.需要 Microsoft Office

2.需求：批量替换excel 中的多个值，将id和name俩列对应的数值转为对应的中文名称

 

3.在下边sheet1右键->查看代码，第一个下拉框选择worksheet，第二个下拉框选择BeforeDoubleClick;

 

 

 

 

 

 

 

 4.输入代码

 代码：.Replace "0600", "奥里给" 0600：原字符  奥里给：替换后的字符，如果是多个，依次后面添加 .Replace "aaa", "AAA" 就行

With ActiveSheet.UsedRange.Cells

.Replace "0600", "奥里给"
.Replace "06", "平头哥"
.Replace "20", "鬼哥"
.Replace "14", "鸡哥"
.Replace "01", "石猴子"

End With

 

 

5.ctrl+s 保存，提示报错，选择"否"，保存的时候一定要保存为启用宏的工作簿（xlsm格式），如图：

 

 

6.打开生成的导出数据.xlsm文件，会有一个提示，咱们启用内容，然后双击id这一列，会发现，他变成咱们要替换的字符串了。

 

 是不是很神奇！

借鉴：https://blog.csdn.net/zhaoyong26/article/details/79817206