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

【问题标题】：Excel Macro to replace numeric zip code with county nameExcel宏用县名替换数字邮政编码
【发布时间】：2012-06-30 01:00:08
【问题描述】：

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

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

到目前为止我已经尝试过 - 县名在 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

【问题讨论】：

标签： replace zip

【解决方案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

【讨论】：