0

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

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

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

1 回答 1

0

好的，我自己解决了：

  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
于 2012-06-30T01:25:24.507 回答