VBA批量替换EXCEL里面的内容,求代码~~

运行以下宏即可
Sub 查找与替换()
Dim Cz As String
Dim Th As String
Cz = InputBox("请输入被替换的字符")
Th = InputBox("请输入替换的字符")
Cells.Replace What:=Cz, Replacement:=Th, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

Cells.Replace
返回 Boolean 类型，指示指定区域内单元格中的字符。使用本方法并不会更改选定区域或活动单元格。
格式：expression.Replace(What, Replacement, LookAt, SearchOrder, MatchCase, MatchByte, SearchFormat, ReplaceFormat)
expression 必需。该表达式返回一个 Range 对象。
What Variant 类型，必需。Microsoft Excel 要搜索的字符串。
Replacement Variant 类型，必需。替换字符串。
LookAt Variant 类型，可选。可为以下 XlLookAt 常量之一：xlWhole 或 xlPart。
SearchOrder Variant 类型，可选。可为以下 XlSearchOrder 常量之一：xlByRows 或 xlByColumns。
MatchCase Variant 类型，可选。如果为 True，则进行区分大小写的搜索。
MatchByte Variant 类型，可选。只有当在 Microsoft Excel 中选择或安装了双字节语言支持时，才可以使用本参数。如果为 True，则使双字节字符仅匹配双字节字符。如果为 False，则双字节字符可匹配其等价的单字节字符。
SearchFormat Variant 类型，可选。该方法的搜索格式。
ReplaceFormat Variant 类型，可选。该方法的替换格式。

具体的代码得看你需要进行什么样的替换，这样没头没脑的，实在没法写出代码来。

直接用Ctrl+H,不可以吗？