在Excel中查找和替换列

Question

So I'm trying to write a VBA subroutine where we have 2 inputs

The first column is the current value and the second column is the value I want to replace it with.

The issue I am running into is that it is not doing it for all of my worksheets just the one I am doing it on.

Where should I proceed?

Sub MultiFindNReplace()

    Dim Rng As Range
    Dim InputRng As Range, ReplaceRng As Range

    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

Answer 1

Have you looked at a search for "for each worksheet in workbook"? This might do it.

Sub MultiFindNReplace()

Dim Rng As Range
Dim InputRng As Range, ReplaceRng As Range

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 ws In ActiveWorkbook.Worksheets
    ws.Activate
    For Each Rng In ReplaceRng.Columns(1).Cells
         InputRng.Replace what:=Rng.Value, replacement:=Rng.Offset(0, 1).Value
    Next
Next

Application.ScreenUpdating = True

End Sub

EDIT

Based on your comments, your code is not really at all going to address your need, since you want to programatically select your range. This code will work if all of your "search" columns are column "B":

Sub MultiFindNReplace()

Dim Rng As Range
Dim ReplaceRng As Range
Dim colNum as Int

colNum = 2 '2 = B

Application.ScreenUpdating = False

For Each ws In ActiveWorkbook.Worksheets
    ws.Activate
    'Sets the range from row 2 of the selected column to the last available row in the same column
    Set ReplaceRng = Range(Cells(2, colNum), Cells(Rows.Count, colNum).End(xlUp))
    For Each Rng In ReplaceRng.Columns(1).Cells
         InputRng.Replace what:=Rng.Value, replacement:=Rng.Offset(0, 1).Value
    Next
Next

Application.ScreenUpdating = True

End Sub