从表中查找和替换

Question

我是Macro的初学者，在我的办公室里，我有一个像一个工作簿上的工作，我们有两列，一列有英文单词，另一列俄语单词，这个文件是高手。我必须在另一本范围为M51的工作簿中找到并用俄语替换这个英语（范围各不相同），我需要这个宏。

Answer 1

在Sheet 1上输入的FIND和REPLACE值，并在Sheet2上执行F＆amp; R。

以前的警告

Dim Findtext As String
Dim Replacetext As String
Findtext = Sheets("Sheet1").Range("B2").Value
Replacetext = Sheets("Sheet1").Range("C2").Value
Sheets("Sheet2").Select
Cells.Replace What:=Findtext, Replacement:=Replacetext, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False