Excel自动替换VBScript

Posted 2023-04-10 kklinux

一、创建包含原始值和新值的Excel文件

如图实例：

二、打开VBScript代码界面

按住 ALT + F11 键打开 Microsoft Visual Basic for Applications窗口。

（右键工作表--查看代码）

 

三、插入VBScript模块

点击 插入 > 模块，并将以下代码粘贴到“模块”窗口中。

Sub MultiFindNReplace()

Dim Rng As Range

Dim InputRng As Range, ReplaceRng As Range

xTitleId = "Replace tool for Excel"

Set InputRng = Application.Selection

Set InputRng = Application.InputBox("Original Range ", xTitleId, InputRng.Address, Type:=8)

Set ReplaceRng = Application.InputBox("Replace Range :", xTitleId, Type:=8)

Application.ScreenUpdating = False

For Each Rng In ReplaceRng.Columns(1).Cells

    InputRng.Replace what:=Rng.Value, replacement:=Rng.Offset(0, 1).Value

Next

Application.ScreenUpdating = True

End Sub

四、运行代码

按 F5 键来运行此代码，在弹出的提示框中，请指定要用新值替换值的数据范围。

点击 OK，并显示另一个提示框以提醒您选择在步骤1中创建的条件。 看截图：

点击 **OK**，所有具体的值已被您立即需要的新值所取代。

vbscript 报表：复制或替换

Function rng_copy_to(r11, c11, c12, r21, c21, c22, sh_from, Optional r12 = "", Optional r22 = "", Optional sh = "")
    If sh = "" Then sh = ActiveSheet.Name
    If r12 = "" Then r12 = r11
    If r22 = "" Then r22 = r21
    atmp = Sheets(sh_from).Range(c11 & r11 & ":" & c12 & r12)
    Sheets(sh).Range(c21 & r21 & ":" & c22 & r22) = atmp
End Function


Sub replace_group()
    relpace_all "", "", "data1"
End Sub
Function relpace_all(str1, str2, Optional sh1 = "")
    If sh = "" Then sh = ActiveSheet.Name
    sh1.Activate
    For i = 2 To euc
        Rows(i).replace str1, str2
    Next
End Function

Sub replace_lookup1()
    replace_lookup2 ,,,
End Sub
Function replace_lookup2(col1, col2, str1, str2, Optional times = 1, Optional sh1 = "")
    If sh = "" Then sh = ActiveSheet.Name
    For i = 2 To Sheets(sh1).Cells(65536, 1).End(xlUp).row
        If Cells(i, col1) = str1 Then
            Cells(i, col2) = str2
            If times = 1 Then Exit For
        End If
    Next
End Function