[已解决]如何自动把china替换成中国？

subca

假设工作簿1中有3列数据：A,B,C
A列下面全是china, B，C列是其他的信息（可能也带有china字样)

现在想建一个模板，让以后每一次把新数据粘贴到这个模板时，模板会自动替换A列的信息为中国。 而不是粘贴后再手动使用 替换 命令。

最佳答案

月排行榜 / 总排行榜

hrpotter

2012-9-5 16:47

G列的，里面有修改的方法
自动转化模板.rar (8.61 KB, 下载次数: 2)

2012-9-5 16:47 上传

点击文件名下载附件

跳转到最佳答案楼层

haigang221

有点含糊 最好 给个表 说明下

hrpotter

自动转化模板.rar (8.87 KB, 下载次数: 8)

2012-9-5 14:14 上传

点击文件名下载附件

fjmxwrs

请测试，不论是大小写，也不管是A列还是其他列，所有的都替换（单元格事件完成）
自动模板.rar (8.04 KB, 下载次数: 1)

2012-9-5 15:23 上传

点击文件名下载附件

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim Rng As Range
   
3. Application.EnableEvents = False
   
4. For Each Rng In UsedRange
   
5. Rng.Value = Replace(LCase(Rng.Value), "china", "中国")
   
6. Next Rng
   
7. Application.EnableEvents = True
   
8. End Sub

复制代码

subca

谢谢各位，继续等待回答

hrpotter

G列的，里面有修改的方法
自动转化模板.rar (8.61 KB, 下载次数: 2)

2012-9-5 16:47 上传

点击文件名下载附件