Excel 使用VBA批量替换--小白版

时间:2024-03-18 08:03:13

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