Excel宏用县名替换数字邮政编码

Question

问题 - 我们有一个包含数千个地址但没有县的电子表格。

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

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

我编写了以下简单的宏来比较和替换Zip代码和县名。它运行但似乎没有取代任何东西。我没有任何错误，所以我不确定问题出在哪里。有什么想法吗？

  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    

Answer 1

好的，我自己解决了这个问题：

  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