excel中批量替换部分列的部分字符

Question

sheet1中A列“张” 姓改成“李”姓，名字不变，“王” 姓改成“周”姓，名字不变。以此类推，每个sheet都有上百个姓要改，且一个工作簿有几十个sheet,不可能一个个sheet打开改过来，求大神赐教简便方法，或者怎么写宏代码
有十几个工作簿，每个工作簿都有几十个sheet

Answer 1

Sub 替换()
For i = 1 To 10000
Cells(i, 1).Replace "美国人", "American"
Cells(i, 1).Replace "日本人", "Japanese"
Cells(i, 1).Replace "中国人", "Chinese"
'还有什么国家按上面的写
Next
End Sub追问

只改姓，不改名，如何处理？
你说的replace是整个单元格只要带“张”就替换“李”万一名字为“张三张”需要的结果是“李三张”用你的方法就是“李三李”了

Answer 2

写VBA宏程序吧，装进数组，用取出左一的姓氏进行select-case判断 处理后装回表格。追问

求代码。。。
取姓氏判断我也知道，但是如何写vb代码啊？语法不熟，还请赐教

追答

自己研究一下写代码吧。
当然，运气好也许能碰个没事干的给你写一个

Answer 3

按ctrl+h查找内容“张”替换内容“李”,点选项，选工作簿，替换全部即可，其它类推追问

一个工作簿还能接受就一个个替换就上百次，但十个工作簿就要操作上千次，不现实啊