Question

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

Answer 1

运行以下宏即可
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

Answer 2

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 类型，可选。该方法的替换格式。

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

Answer 3

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