Excel VBA 查找/替换宏

Question

早安，

我正在处理一个相当大的数据集，并且我正在尝试将已在一个电子表格中修改的值查找/替换回原始值。我想做的是让宏在单元格 A1 中查找信息并将其替换为单元格 B1 中的值，然后继续向下直到单元格 A3600:B3600。一般来说，我很擅长对我在这里找到的代码进行微调，让它做我想做的事，但我不知道我应该寻找什么。

我现在拥有的是：

Sub Macro1()
'
' Macro1 Macro
'

'
Range("A1").Select

Selection.Copy
Cells.Replace What:=ActiveCell.Value, Replacement:="????", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
End Sub

从这里我不知所措。我知道 Range("A1").Select 将粘贴到“查找/替换”框的“查找”部分，但我如何告诉 excel 我想选择另一个单元格，在本例中为 B1，用于更换部分？然后我如何告诉 Excel 我希望它继续这样做，直到它用完 A 列中的值？

提前感谢您提供的任何帮助。

Answer 1

我认为你在寻找类似下面的代码：

Option Explicit

Sub Macro1()

Dim Rng As Range
Dim OrigStr As String, ReplaceStr As String

Set Rng = Range("A1:B3600")
OrigStr = Range("A1").Value2
ReplaceStr = Range("B1").Value2

' option 1: replace only if the whole cell's string equals to OrigStr
Rng.Replace What:=OrigStr, Replacement:=ReplaceStr, LookAt:=xlWhole

' option 2: replace also partial match inside the cell's string
Rng.Replace What:=OrigStr, Replacement:=ReplaceStr, LookAt:=xlPart

End Sub