EXCEL如何利用VBA实现批量字段的替换？ excel的vba在哪里打开

• excel中如何利用VBA批量替换单元格中某个字符的字体
• excel 怎么用替换批量替换
• excel中用vba实现替换
• 请问EXCEL如何利用宏代码批量替换

excel中如何利用VBA批量替换单元格中某个字符的字体

参考代码：

Sub Demo

    Range("A1").Replace "C", "SJQY"

End SubA1 可以根据实际情况加以修改！

excel 怎么用替换批量替换

利用excel自带的vba功能就可以批量替换。如

可以通过下面的vba程序一次性全部把1替换成V，把2替换成U

Sub 批量替换()

Cells.Replace What:="1", Replacement:="v"

Cells.Replace What:="2", Replacement:="u"

End Sub

在中间多写几个那样的语句就是了。

excel中用vba实现替换

Sub test()

Dim xRng(1 To 1, 1 To 3)

Do

Workbooks.Open Application.GetOpenFilename("Excel文件（*.xls & *.xlsx）,*.xls;*.xlsx", , "请选择"), 0, 1

Cells.Find(What:="name").Activate

xRng(1, 1) = Selection.Offset(0, 1)

xRng(1, 2) = Selection.Offset(1, 1)

xRng(1, 3) = Selection.Offset(2, 1)

ActiveWorkbook.Close 0

ThisWorkbook.ActiveSheet.Range("A60000").End(xlUp).Offset(1, 0).Resize(1, 3) = xRng

Loop While MsgBox("继续下一文件？", vbYesNo, "Hi") = vbYes

End Sub

请问EXCEL如何利用宏代码批量替换

在G2内写下面的公式，然后下拉，结果就是需要的F列结果，可以复制粘贴值过去：

=SUBSTITUTE(F2,E2,"")

例如：