换一批小说人物名字

替换功能提供一次多个替换，比如把整篇文字中的所有相同文字替换成另一个固定文字，仅限于相同的替换，而不同的文字不可能一次全部替换

一、方便有一刚学过点儿中文的美国老外来到中国，中国朋友请他吃饭。到了饭店落座，中国朋友说：“对不起，我去方便一下。”见老外不明白，在座的中国朋友告诉他说“方便”在中文口语里是“上厕所”的意思。哦，老外意会了。席中，中国朋友对老外说：“希望我下次到美国的时候，你能帮助提供些方便。”老外纳闷了：他去美国，让我提供些厕所干吗？道别时，另一位在座的中国朋友热情地对老外说：“我想在你方便的时候请你吃饭。”见老外惊讶发愣，中国朋友接着说：“如果你最近不方便的话，咱们改日。...”老外无语。“...咱找个你我都方便的时候一起吃饭。”老外随即晕了。

这个估计要采用VBA编程来循环所有单元格按指定的规则对一个一个的单元格一次性替换完成，如果用一般的替换，会造成重复替换，得不到预期的结果的。
思路：读取一个单元格中的字符串，然后判断该字符串的长度，然后将该字符串中一个一个的字符分离出来，然后对字符进行判断，按照指定的规则进行替换，完毕后，将该新的字符组合得到替换后的新字符串再来赋值给该单元格，如此反复处理每一个单元格即可。
单击工具-宏，新建一个宏名，单击创建，然后复制如下代码并自己修改一下即可：
Dim str As String
For c = 1 To n 'n指代的是该表中该类数据所在列的最大列数，自己按实际情况修改，默认从第1列开始
For r = 1 To m 'm指代的是该表中该类数据所在行的最大行数，自己按实际情况修改，默认从第1行开始
nstr = Len(Cells(r, c).Text)
For i = 1 To nstr
strtmp = Mid(Cells(r, c).Text, 1, 1)
Select Case strtmp
Case "a"
strtmp = "b"
Case "b"
strtmp = "n"
Case "c"
strtmp = "v"
Case "g"
strtmp = "z"
Case "r"
strtmp = "o"
Case "h"
strtmp = "s"

'在这里把你的替换规则按上面的形式补充完整
End Select
str = str + strtmp
Next i
Cells(r, c).Value = str
str = ""
strtmp = ""
Next r
Next c

大家爽才是真的爽

B表的B1单元格输入
=INDEX(A表!A:A,MATCH(A1,A表!B:B,0))
下拉填充就可以了

2015年高考志愿填报考生应该选择易报考的专业和院校！

a如果你想直接获得填报结果肯定是需要付钱的

b要么只能免费咨询一些问题～～

公式中的内容也可以直接进行替换处理。

你公式中都是将s4:s4改为"s4:s"，因而可使用替换方式解决问题。

CTRL+H——查找内容输入s4:s4——替换为输入"s4:s"——全部替换。

油盐酱醋老一套，锅碗瓢盆实在闹
横批：换换口味

按键盘上的+

部落战争 不错