Replace Excel宏将数字邮政编码替换为县名称

问题-我们有一个电子表格，有数千个地址，但没有县

目标-我们希望将县添加到每个记录中。我们可以使用邮政编码识别县，并有一个邮政编码和县名列表

到目前为止，我一直在尝试——县名在A列，对应的邮政编码在B列。我将地址列表复制到同一个电子表格中，从D列的邮政编码开始

我编写了以下简单的宏来比较邮政编码并将其替换为县名称。它可以运行，但似乎不能替代任何东西。我没有收到任何错误，所以我不确定问题出在哪里。有什么想法吗

  Public Sub Take_Two_Replace_Zip_With_Name()

  Dim LastBCell As Long
  Dim B As Integer
  Dim Bcell As Range

  LastBCell = ActiveSheet.Range("B65000").End(xlUp).Row

  For B = LastBCell To 2 Step -1
  Set Bcell = ActiveSheet.Cells(B, 2)

  If Bcell = Bcell.Offset(0, 2) Then Bcell.Offset(0, 2) = Bcell.Offset(0, -1)
  Next B

  End Sub    

---

好的，我自己解决的：

  For Each Bcell In Range("B2:B100").Cells

  Columns("D:D").Cells.Replace What:=Bcell, Replacement:=Bcell.Offset(0, -1).Value,          LookAt:=xlPart, _
          SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
          ReplaceFormat:=False

  Next Bcell