匹配并replace另一个表单元格

我没有经验，当谈到这种types的查询，我卡住了。

我发现了一个我已经使用的工作查询，这里是逻辑：

“如果Sheet2中的任何单元格A列= Sheet1列B中的任何单元格，则将sheet2列更改为sheet1列的单元格值”

这个公式是：

Sub Test1() Application.ScreenUpdating = False Dim cell As Range, varFind As Variant With Sheets("Sheet1") For Each cell In Sheets("Sheet2").Columns(1).SpecialCells(2) Set varFind = .Columns(2).Find(What:=cell.Value, LookIn:=xlFormulas, LookAt:=xlWhole) If Not varFind Is Nothing Then cell.Value = .Cells(varFind.Row, 1).Value Set varFind = Nothing Next cell End With Application.ScreenUpdating = True End Sub 

这对我来说很好，但我需要稍微不同的。 它需要遵循这个逻辑：

“如果Sheet2中的任何单元格A列= Sheet1列B中的任何单元格，则将sheet1列的单元格值更改为sheet2列B值”

任何人都可以帮忙吗？

Answer 1

[更新，因为我需要将表2中的列从A更改为B]

正如你已经写了这个，你只需要改变这一行

If Not varFind Is Nothing Then cell.Value = .Cells(varFind.Row, 1).Value

至

If Not varFind Is Nothing Then .Cells(varFind.Row, 1).Value = cell.Offset(0,1).Value

如果性能是一个问题，可以提高代码速度。 另外，如果SpecialCells在表2列B中没有常量单元格，您将会看到一个潜在的代码。请注意如果您希望代码进一步调整